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18M MAINTENANCE OIAGNOSTIC PROGRAM PART NO. 4248244 IBM MAINTENANCE OLAGNOSTIC PROGRAM PART NO. 4248244 
PAGE 1 PAGE 1A 
1011 SECTION 1--INITIAL PRINTER DIAGNOSTIC TESTS MOO 12 1611 SECTION 1--INITIAL PRINTER DIAGNOSTIC TESTS MOO 12 
ERR LOC GBIJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBVECT CODE ADDR STMT SGURCE STATEMENT 
2% LAS¥ CHG :09:12 75 OA72 F2 10 O7 68 JT *+10 
3 DECK 4 OA75 CO 87 1527 69 8 REPLCE REPLACE 
4 SEQ 0 OATS 240040 OA7B 70 oc XL3*240040° B2N2, B2S2, CABLE (G6C553) GK 
OA0O 5 UVWXYZ START X*AQO® CA7C CO 87 1527 71 B REPLCE REPLACE 
6 TREP OA80 280000 OA8B2 72 oc XL3* 280000 B2N2, B2R2 
7 OA83 78 01 03 73 Al TBN 3(,XR1PeX*OL* CHECK FOR PR MALFUNCTION 
7 OAB6 78 C2 02 74 TBN 2¢,XR1)-X*02° XTRA CYCLE 
Q eAKERERERRAKARERES SHEERS EESERESEE LESS EEEERERE ERR ERSEARESESS ERASE SHERTATSE CSS OA89 78 08 Ol 75 TBN 1(,XR1),x*08* FEEDBACK SW SAMPLED 
9 * * OA8BC F2 90 4C T6 JF AG 
10 * 5471 PRINTER KEYBOARD DIAGNOSTIC TESTS * OASF 30 SC LELS 77 MvI MMAL ¢C®at 
1l # + OA93 3C 5C 1DDF 78 MVI MXTRAsCP* 
l2 * SECTION 1--INITIAL PRINTER TESTS * Oag7 3C SC 1077 79 MVI MEDS,C®a? 
13 3 * OA9B 7A 10 O01 80 TBN 1(,XR1}—¢X*10° CHECK FOR FEEDBACK Sw ON 
14 SHRRERKETAREAE SELLS AERA ESERESA SSS SERS EEEEREEAESEE LEAKE SARA EEKSRERE SES OAGE Fz 10 07 Bl JT NS2 04 
15 *#%e sc cd OAA1 CO 87 1527 82 B REPLCE REPLACE 
16 ***% SECTICN PREFACE aes OAAS5 880000 CAAT 83 oc XL3"880000° B2R2- B2L2 
17 *¢*2 eee OAAS 3A FF 1CB3 84 NS2 SBN FUSTAT,BDFUSE SET BAD FUSE FLAG ON 04 
1B FHKE HERESRHARE SASS EETER ESSERE AS SHELA GHEE KER ERSKEELATEAELAASL SER ALESHLHES OAAC OC OA 18C9 1EE6G 85 MVC MSGCAB-9(11),ALLIN ADD MSGe TO CABLE PRINT 
19 OAB2 CO 87 1527 86 B REPLCE REPLACE 
19 OABS 242040 OABS 87 oc XL3'242040° B2N2, B2S2— StT,s CABLE (GC553) GK 
OAOO 21021 OAOL 20 oc xt2'1011° PROGRAM 10 AND REVISION LEVEL OABS 78 O1 03 88 A2 TBN 30,XR1}5,X7018 CHECK FOR PR MALFUNCTION 
OA0N2 00 OAO02 2l co xL1L*0o* SECTION FLAGS OABC F2 90 OB 89 Je A3 
OA03 OG 0A03 22 oc xL1‘'ao* CURRENT ROUTINE NUMBER OABF 3C 5C 1E18 90 MMVI MMAL pC out 
OA04 GOOG 0agd 23 OC XL2'00* RESERVED OAC3 CO 87 1527 9L B REPLCE REPLACE 
OA06 OA1IG OAO7 24 oc AL2(RTNOL) ADDRESS OF FIRST ROUTINE OAC? 280900 OCACQ 92 DC XL3* 2800008 B2N2-, B2R2 
OA08 0000 OA09 825 DC XL2*00° RESERVED OACA 78 O1 02 93 A3 TBN =. 2(,XR1) X01? ChECK CYCLE TOO LONG 
OAQOA FOGOCO OA0C 26 MFCU oc XL3*FOQ000® MFCU SPUT ENTRY OACD F2 90 30 94 JE AS 
oacd 105000 OAOF 27? DC xiL3*105000° CONSOLE SPUT ENTRY CADO 3C SC 1OCF 95 MVI MCTL Cts! 
28 * OAD4 CO 87 1527 96 8 REPLCE REPLACE 
29 F8SSS4EES SESEREASS OAC8 280000 OADA 97 DC XL3* 280000: B2N2, B2R2 
30 * RTNOL] * SENSE TEST * RTNOL * OADB 78 O1 O03 S98 AG TBN 3(,XRLIX*O1* PRINTER . ALFUNCTION 
31 *ERSKEESS FSSESETRS OADE 78 04 02 99 ¥BN 2(,XR1) X*048 FEECBACK ¥O0O LATE 
32 * OAE1 F2 90 4SF 100 JF A8 
33 2 ROUTINE PREFIX OAE4 3C SC 1£18 101 MYT MMAL »Cfexe 
COCALO 01 0A10 34 RTNOL OC XLL‘O18® ROUTINE PREFIX OAE8B 3C SC IDEC 102 MVI MF2L,C's# 
0OA11 00 OAlLl a5 oc xt1‘oo® NC INTERVE* TION REQUIRED OAEC 78 10 02 103 TaN 2% sXR1}-X*108* CHECK CYCLE FL ON 
OA1l2 GD14 OA13 36 oc AL2(RTNO2) ADDRESS GF NEXT ROUTINE OAEF F2 10 O7 104 JT +10 
37 * OAF?e CO 87 1527 105 B REPLCE REPLACE 
OA14 CO 87 O21A 38 B PRINT PRINT OAF6 OCO0000 OAFB 106 DC KXL3*OCO0GO! BZS2_5 B2R2 
OAl1B 42 0A18 39 DC xL1°42° ROUTINE OAF9 CO 87 1527 107 8 REPLCE REPLACE 
OA19S Of 0A19 40 oc IL1'14* TITLE OAFD 600000 OAFF 108 DC xL3'600000° B2M2, B2N2 
CALA i8EA OA1B 41 oc AL2(MSGO1) 0600 78 04 O2 109 A5 YBN 2(,XR1),xX*04! CHECK FEEDBACK TOO LATE 
OAIC 10€1 OALD 42 oc XL2°10E1° 0603 F2 90 6F ilo J All 
OAlE OC G2 1AOA 1870 43 MVC MSG26(3),BLON 0806 3C SC 1OEC LL MYT MF2L Cte? 
OA24 GC 22 I9EA 1LAOA 44 MVC MSG25(3) »MSG26 OBOA CO B87 1527 112 8 REPLCE REPLACE 
OAZ2A CO B37 O2Z1A 45 B PRINT PRINT CBOE 280000 O6b1G 1213 oC Xi3*280000' BENZ, B2R2 
QAZE 02 OAZE 46 oc xt1l‘'o2¢ INITIAL 0811 78 68 Ol 114 Ae TAN 1(,XR1L} eX" 0E8 CKECK FEEDBACK SAMPLED 
OA2F 4E OA2F 47 oc 1L1*78* INSTRUCTIONS 0414 F2 90 Ob 115 JF AT 
OA30 1938 0A31 48 oc AL2(MSGO03) OB17 3C SC 1077 116 MUI MFOS ,Ct#e 
OA32 CG 87 O21A 49 8 PRINT PRINT 0818 CO 87 1527 117 8 REPLCE REPLACE 
OA36 CS 0A36 50 oc xbL1*06* RESET OB1LF 280000 O62: i18 OC XL3' 2800008 B2N2, B2R2 
OA37 CE OA3T 51 DC TL1°14* THE CB22 78 02 O1 119 AT TEN li eXR1LIgxX* Oz! CHECK LONG FN SAMPLED 
OA38 1C©G9 OA39 52 DC AL2(MSGRES) HALT OB25 F2 90 3C 120 JF Ald 
OA3A CO 87 0222 53 B HALT : C828 3C SC 1043 12? Mvi MLFNS,Cfae 
OA3E id0€1 OA3F 54 oc XL2°10E1* Opec CO BT 1527 i22 6 REFLCE REPLACE 
OASC OC G3 ICFE 1CF6 55 MYC STSHOB(4),ZERG CLEAR EXPECTED STATUS C530 A&00C0 O&32Z 1?8 cc XL2*ABOGCO? LENZ, B2R2, LEL 
OA46 C2 Ol ICF7 56 LA STATUS-—3,-XR1 0833 78 O1 G3 124 AB TEN BEyX¥R1L}E ge X*OE& CRECK PR BMALe 
OA4SA 70 19 03 57 SNS 3(,XR1)-X*19° SAVE 0236 78 82 92 125 TRN 2teKAli ek C2? CREC™ XTRA CYTLE 
OA4D 7O 13 O1 58 SNS 1¢,XR1),X*1i8! STATUS OB3S9 Fe SO OF Leh JF AS 
OA5O 40 02 02 1CF6 59 CLC 2¢eXR1L),ZERO(3) IF STATUS C63C 3C 5C 1£18 le? MMVI MHAL Cie 
OA55 F2 01 07 60 JNE Alll ALL ZERO, 0646 3C S¢ idDF 128 HVE MXTRA,C*R® 
0a58 CO 87 1527 61 8 REPLCE REPLACE O6B44 CO 87 1827 129 B REPLCE REPLACE 
OAdSC ADO00O OASE 62 DC yiL3*AQQo0o® B2L2 AND B2N2 CB48 080000 OB4A 130 DC XL3*O80000* BZR2 
OASF 79 20 02 63 Alll TBF =z ts+XR1)X*20! CRECK 1.34 SECGND BIT OFF 0848 78 O1 03 131 AS TBM = =63% sXR1),X* O18 CRKECK PR FALF 
OA62 F2 10 IE 64 JT Al OBSE 78 01 02 132 TBN 2¢eXR1L}-X*O1* CHECK CYCLE 100 LONG 
Oa65 OC GS IAOA 3 9CC 65 MVC MSG26(7),G00F 06851 CO 90 OABY 133 BF A2 
OA6B 3A G2 ICB1 66 SBN MARK, MARKS 0B55 3C 5C 1E18 134 MVI MMAL »C Pat 
OA6F 78 10 03 67 TBN 3(eXR1) eX*#108 CHECK BUSY ON 0829 3C SC 1DCF 135 MVI MCTL,Ctat 
CATE 29AUGT5 O7NOV75 PROG ID 1O1-1l DATE 2SAUG75 O7TNOVTS PROG ID 101-1 
EC NOw 827804 827805 PAGE 1 €C NO} 827804 827805 PAGE 1A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO 4248244 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO} 4248244 
PAGE 2 PAGE 2A 
2011 SECTION 1--INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 1011 SECTION 1--INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE AODR STMT SOURCE STATEMENT 
0650 CO 87 1527 136 8 REPLCE REPLACE 0054 3C 5c 1090 204 MVI MFD,C'*?* 
0861 0C0040 0863 137 oc XL3*9C0040' B2R2, B2S2¢ CABLE(GC553) GK 0CS8 CO B87 1527 205 8 REPLCE REPLACE 
0864 78 10 03 138 AlO TBN 3 yXR1L} 2X2 10° CHECK FOR PRINTER 8USY OCSC 200000 OC5E 206 oc XxL3*200000° B2N2 
OB67 F2 90 GA 139 JF Al4& OCSF 78 02 03 207 A20 TBN 3 yXR1)eX'02° CHECK XLATOR CHECK ON 
OB6A 3C 5C 1E61 140 MVI MBUSY,Cte® oc62 F2 90 08 208 JF A211 
OB6E CO 87 1527 141 8 REPLCE REPLACE Oc6sS 3C 5C 1E2D 209 MvI MXLAT»C*** 
0872 200000 OB74 142 DC XL3*200000° A-62N2 Oc69 CO BT 1527 210 8 REPLCE REPLACE 
0875 78 Ll 03 143 All TBN 30 eXR1}eX*1L* CHECK INT PEND, PR BUSY, PR MALF oced £00000 OC6F 211 oc xL3*€00000* B2L2+ B2M2, B2N2 
0B78 78 O1 02 144 TBN JCeXRLD eX*OL® CHECK CYCLE TOO LONG Oc70 79 10 02 212 A2ll TBF 2¢eXR1L)eX'10° CHECK CYCLE FL OFF 
OBT8 F2 90 17 145 JF Al2 Oc73 F2 10 O7 213 JT A2l 
OB7E 3C 5C 1E€18 146 avI MMAL ,C'#* oc76 CO 87 1527 214 B REPLCE REPLACE 
oss2 3C 5C 1€81 147 MVI MBUSY,»C**#° OCTA 200000 oc7c 215 oc XL3*200000°* A-S2N2 
OB86 3C SC LESA 148 MVI MPEND ,C°®® o 216 * 
OBBA 3C 5C 10CF 149 MMVI MCTL»C*#!? ‘ 217 * 5.24 MILLISECOND CHECKOUT 
OBBE CO B87 1527 150 B REPLCE REPLACE 218 * 
0892 080006 0894 151 oc xL3*080000° A-B2R2 OC70 OC 03 1CFE 1CF6 219 A2l MVC STSHDB(4),ZERO CLEAR 
0BS5 78 06 92 152 Al2 TBN 1(9XR1)_9xX*06" CHECK LONG FN SW AND SAMPLED ocs3 OC O14 1CF8 1CF6 220 MVC STATUS-2€2) e ZERO STATUS 
0p98 F2 90 10 153 JF 413 ocs9 C2 O01 OOAS 221 LA 165eXR1L 
0898 3C SC 1043 154 MVI MLFENS»C*** OC8D 30 19 1LCFA 222 $22 SNS STATUS ,X*198 
Oos9F 3c SC 1061 155 MVI MLFEN,C he? 0C91 39 40 1CF9 223 TBF STATUS—15X*40° 
OBA3 OC OA 18CA 1B8F 156 Wwe MSGCAB—-8(11) LONG oc95 F2 10 19 224 JT $2-4 
OBAS 3A O1 ICB2 157 SBN PRTMSGeX* O01 SET PRINT MSG FLAG GNK oc98s 36 O1 1DGA 225 A HEXFF ,XR1 
OBAD 3C F7 1E08 158 MVI FOBsX*FT® MOVE IN PROPER NO} GNK ocec co O01 ocsD 226 BNZ S22 
OBBL CO 87 1527 159 B REPLCE REPLACE OCAO OC O6 19EA 19CC 227 MVC SG25(7),GO0OF 
OBBS 249040 O8B7T 160 oc XL34240040° A-B2N2, A-B2S2+s CABLE(6C553) 6K OCA6 3A 04 1CB1 228 SBN MARK » MARKS 
o0g88 78 18 O01 161 Al3 TBN 1(0,XR1)-X'18° CHECK FEEDBACK SH AND SAMPLED OCAA CO 87 1527 229 B REPLCE REPLACE 
0868 CO 90 OB1L 162 BF A6 OCAE A0OC000 ocspo0 3 230 oc xL3*A00000* B2L2,B2N2 
OBBF 3C 5C 1060 163 MvVI MFD,C*** OCBL C2 O01 OGAS 231 LA 165~,XR1i WALT 
OBC3 3C SC 1077 164 VI MEDS Cee? OcBS 30 19 LCFA 232 S2 SNS STATUS eX* 19° S1z% 
OBCT OC OF LBCF 1B89F 165 MVC MSGCAB—3(16).F DSH oce9 38 40 1CFS9 233 TBN STATUS~12X*40* MSEC 
OBCD CO 87 1527 166 8 REPLCE REPLACE OCBD F2 10 LF 234 JT $1 FOR 
os 0801 040040 OBbD3 167 pc XL3*040040° A-B2S2, CABLE(G6C553) is OCCO 36 O01 100A 235 A HEXFF XR 2-62 BIT sien Sa aeees 
0804 78 08 03 168 Al4 YBN 3(,XR1}ex'08° CHECK END OF LINE occ4s co Ol OCB5 236 BNZ $2 
OBO7T F2 90 11 169 JF A15 oCcs8 OC O03 1L9E7T 1COD 237 MvC MSG25-3(4) 4608 SeTuP 
OBDA 3C 5C 1LE54 170 VI MEOL,C*#® OCCE 3A 04 1€81 238 SBN MARK » MARKS ERROR 
OBDE OC 06 18C6 1BAD 171 MVC MSGCAB-12(7) ,EOQL oco2 cC O1 LCFA LCF6 239 MVC STATUS( 2}, ZERO MESSAGE 
OBES CO 87 1527 172 B REPLCE REPLACE ocDs CO 87 1527 240 B REPLCE REPLACE 
OBES 280040 OBEA 173 oc XL3"260040° B2N2- B2R2¢ CABLE(GC553) ocpc Adooc00 OCDE 241 : DC xL3*Aco000* B2L2, B2N2 
OBEB 78 64 G3 174 AL5 TBN Bl eXRLIX*04S CHECK END OF FORM OCDF C2 OL 0046 242 $1 LA 7TOeXR1 
OBEE F2 90 19 175 JF Alé OCE3 30 19 1CFA 243 $3 SNS STATUS» X*19° WAIT 
OBF1 3C SC LE47 176 vi MEGF ,Ch*® OCE7T 39 40 1CF9 244 TSF STATUS—1 »X*40° 265 MSEC 
OSF5 OC 06 18C6 1LBAG6 177 MVC MSGCAB-12(7) EOF OcEB F2 10 OB 245 JT $5 FOR 2262 
OBFB 3A O1 1CB2 178 SBN PRTMSGsX*OL® SET PRINT MSG FLAG GNK OCEE 36 OL LDOA 246 A HEXFE,XRI BIT TO GO DOWN 
OBFF 3C F6 LEDB 179 MMVI FDB,X*F6* MOVE IN PROPER NOo GNK OcF2 CO 01 OCE3 247 BNZ $3 
0C03 CO 87 1527 180 8 REPLCE REPLACE CCE6 F2 87 17 248 J $4 : 
OCOT 2490040 oco9 181 oc XL3*240040° B2N2_ B2S2s CABLE (GC553) OCFS OC 03 19€7 1C11l 249 $5 MVC MSG25-3(4) ,STAY SETUP 
OCOA 78 80 03 182 Al6 TBN 3(.XR1) 2X80" CHECK INT PENDING OCFF 3A 04 1CB1 250 SBN MARK »MARKS ERROR 
ocod F2 90 O06 183 JF AlT op03 OC O1 1CF8 ICFE 251 MVC STATUS=2(2) ZERO MESSAGE 
OC1O 3C SC LEBA 184 MVTt MPEND,C**#* ‘ ovo9 CoO 87 1527 252 8 REPLCE , REPLCE 
0014 CO 87 1527 185 B REPLCE REPLACE x opod 800000 ODOF 253 oc xL3'8000005 A-B2L2 
Oc18 200000 OC1A 186 oc xL3'200000° A-B2N2 0010 CO 87 0216 254 S4& 8 LINK GO TG NEXT ROUTINE 
oclp 78 O2 02 187 AlT TBN 24eXR1) 2X 02° CHECK XTRA CYCLE nee 255 * 
OCLE F2 90 O86 188 JF A18 > 256 SFeeSESEE SRESSETEE 
6C21 3C 5C 1iCDF 189 MVI MXTRAsC*#® 257 ® RTNO2 * LOAD 1/0 TESTS * RINO2 * 
0c25 CO 8? 1527 190 8 REPLCE REPLACE ae 258 Sb84tbSS SERSELERS 
0C29 280000 oc28 191 oc xL3°280000° A-B2N2,_ B2R2 i 259 * 
oc2C 78 30 02 192 Al8 TBN 2(,XR1)5X*80° CHECK PRINTER ENABLE 260 © ROUTINE PREFIX 
Oc2F F2 90 06 193 JF A19d P= 0014 02 0D14 261 RTNO2 OC xL1¢°02° ROUTINE NUMBER 
0C32 3C SC LEO? 194 MVI MPEN,C*#® i 001s OO 0015 262 oc XLL*O00* NO INTERVENTION REQUIRED 
0C36 CO 87 1527 195 B REPLCE REPLACE OD16 OFA} OD17% 263 De AL2(RTNO3) ADDRESS OF NEXT ROUTINE 
OC3A A00000 oc3c «(196 oc xL3*ao00000* B2L2, B2N2 a 264 . 
OC30 78 04 OF 197 Al9 TBN 1(9XR1) eX!04* CHECK LONG FN Si Ss 264 
OC40 F2 90 GB 198 JF A201 CD18 CO 87 O21A 265 B PRINT PRINT 
0C43 3C 5C 1061 199 MVI MLFN,C*S® ~ coic 41 opic. 266 oc XL1°41° ROUTINE 
0C47? CG BT 1527 200 8 REPLCE REPLACE fe OD1D 28 DNDID 267 pc 1L1°40* TITLE 
0c4B 200000 9C4D 201 oc xL3*200000* A~-B2N2 ODLE 1960 ODLF 268 oC AL2(MSGO04) 
OC4e 78 10 O1 202 A201 TBN 1(,XR1),X*10° CHECK FEEDBACK SWITCH ON : 00720 10A2 0D21 269 oc XL2*10A2° 
0c51 F2 90 OB 203 JF A290 x 0022 3A 10 :CB8l 270 SBN MARK «MARKS 
se ak 
DATE 29AUGTS OTNOVTS proc 1D 101-1 \ DATE 29auGT7S O7NOV7S PROG ID 101-1 
EC Nf. 827804 827805 PAGE 2. EC NOw 827804 827805 PAGE 2a 
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IBM MAINTENANCE OIAGNOSTIC PROGRAM PART NO. 4246244 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 4248244 
PAGE 3 PAGE 3A 
1011 SECTIGN 1--INITIAL PRINTER DIAGNOSTIC TESTS M00 12 1011 SECTION 1--INITIAL PRINTER DIAGNOSTIC TESTS MOO 12 
ERR LOC GB8JECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
? 

0026 CO 8&7 1527 271 8 REPLCE IF LOOPING OCCURS, OE27 2C 00 1CFB OO 339 MVC STSHDB-3(1).0(9XR2) 

OD2A 880060 OD2C 272 oc XL3"880000° REPLACE A-B2L2,B2R2 OE2C 38 06 1CF8 340 SBF STATUS—22X*068 SET LONG FN OFF 

O02D0 CO 87 O2ZI1A 273 8 PRINT SPACE OE30 38 80 1CF7 341 SBF STATUS~3»9X* 80! SET UPPR SH REQ OFF 

OD31 14 0031 274 oc XL1°14° 4 LINES OE34 38 04 1CFA 342 SBF STATUS »X*04* SET €OF SWITCH OFF 

0032 CO 87 0222 275 8 HALT O£38 OD 03 ICFA ICFE 343 CLC STATUS(4) .STSHDB CHECK FOR 

0036 10A2 0037 276 oc XL2*10A2* OE3E F2 81 0B 344 JE B7 GOOD STATUS 

0038 3C 80 6D90 277 MVI BLI¢l,X*s8o® INITIALIZE OE&41 3C SC 1E&2D 345 MVI MXLAT,C*%«? 

003C 3C 80 ODBS 278 VI B34+1,X* 80° FOR LOWER OE45 CO 87 1527 346 B REPLCE REPLACE 

0040 3C 40 0089 279 MMVI B12+1,X"'40* SHIFT REQUIRED OE49 £00000 OCE4B 347 oC XL3*ECOO0O? L22M2, AND N2 

0044 C2 01 1C12 280 LA TABLE1, XRL SET ADDRESS OE4C E2 O02 O1 348 B7 LA 1(,XR2) »XR2 CHECK FOR 

0D48 C2 G2 1€38 281 LA TABLE3,XR2 COUNTERS OE4SF BD FF OO 349 CLI O(eXR2) eX" FFE ENO 

O04C OC O2 ICFE 1001 282 MVC STSHDB( 3),STATL SET XPTD STATUS OE52 CO O1 OE15 350 BNE B61 

0052 O02 O02 Ol 283 REPO2 LA 1(,XR1),XR1 INCREMENT COUNTER O€&56 OC 03 1CFE 1D0€E 351 MVC STSHDB (4) ,STATNP INITIALIZE 

0055 2C OO ICFB 00 284 MVC STSHDB-3(1},00sXR2) PUT T/R CODE IN STATUS OE5SC C2 O01 1C€80 352 B71 LA TABLE6, XR1 FOR NO PRINT 

OOSA 71 18 00 285 Lia O(»XR1) -X*18* OE60 D2 O01 Ol 353 LA L(eXRL)-XR1L 

O05D 30 19 ICFA 286 SNS STATUS, X*198 SAVE 0CE63 71 18 00 354 L10 O(,XR1),x*18° LOAD BUFFER 

O06! 30 18 ILCF8 287 SNS STATUS—2 4X*18' STATUS OE66 30 19 1ICFA 355 SNS STATUS 2X*19! SAVE 

0065 CO 8&7 1837 288 8 mMOD1 SET RESERVED OFF OE6A 30 18 1CF8 356 SNS STATUS~-2-X*1B¢ STATUS 

OD6S 3B 04 ICFS 289 SBF STATUS-24¢X"06* SET LONG FUNCTION OFF SE6E CO 87 1837 357 B MOD1 

0060 38 80 ICF7 290 SBF STATUS-34X*80' SET UPPR CASE MODE SW OFF O£72 38 O06 1CF8 358 SSF STATUS—2¢X*068 SET LONG FN OFF 

0071 38 0& 1CFA 291 SSF STATUS, X*04* SET EGF SWITCH OFF OEF76 3B 80 1CF7 359 SBF STATUS-3—eX* 80 SET UP CASE REQ OFF 

0075 3S 02 I1CFA 292 TBE STATUS, X*02° CHECK XLATOR OETA 3B 04 1CFA 360 SBF STATUS, X'04! SET EGF SWITCH OFF 

OD79 F2 39 08 293 JT 81 CHECK OFF OE7E OD 03 ICFA ICFE 36) cic STATUS(4) ¢STSHDB CHECK FOR 

OL7C 3C SC LE2D 294 MVI MXLAT,C ese OE84 F2 81 16 362 JE B8 CORRECT STATUS 

0p80 CO 87 1527 295 B REPLCE REPLACE OE87 3C SC 1E20 363 MVI MXLAT,C'S?® 

0084 CGOG000 O086& 296 oc XL3*C000008 12,42 OE8B 3C SC 1D01C 364 MVI MNOP,CS? 

OD87 20 00 ICF7 OO 297 81 cLC STATUS—301)50(.XR2) CHECK T/R CODE OE8F CO 87 1527 365 8 REPLCE REPLACE 

OnNBCc F2 B1 1l2 298 JE 62 0E93 E00000 OE9S 366 oc XL3*EO0000° L2eM2,AND N2 

OD8F 38 80 iCF8 299 Bll TBN STATUS-22X*80° CHECK FOR LOWER OE96 70 6&6 O00 367 CLI O(,XR1L} -X*66& CHECK 

0093 F2 10 O86 300 JT B2 SHIFT REQUIRED 0€99 CO 01 OE6O 368 BNE B7144 FOR END OF LIST 

0096 3C SC 1089 301 MVI MLWR,Ct se OE9D CO 87 0216 369 BS B LINK 

OD9A CO 87 1527 302 8 REPLCE REPLACE ». 370 # : 

OO9E Co0c000 ODAO 303 oc xL3*C00000* L2, M2 371 ##492444% HEESEEEED 

ODA1L 20 00 1CF7 00 304 82 cic STATUS—301)500eXR2) CHECK a 372 * RITNOZ * START 1/0 TESTS * RINOS * 

ODA6 F2 81 OB 305 JE 83 T/R CODE x, 373 *&exSt424% $$O948C4E 

ODAS 3C 38 171C 306 MvI LEN1 .X* 38° 374 * 

ODAD CO 87 1527 307 8 REPLCE REPLACE vd 375 % ROUTINE PREFIX 

ODE1 600000 odB3 308 oc XL3*6000008 B2K2, B2N2 “ OEA1 03 OEAL 376 RTNOZ OC xXt1*o3* ROUTINE PREFIX 

OOB4 38 80 ICF8 309 B3 TON STATUS~2 »X*80° CHECK tw SHIFT ON OEA2 00 OEA2 377 oc XL1'OO* NO INTERVENTION REQUIRED 

O0B8 39 40 1CF8 310 812 TBE STATUS=2,X*40! CHECK UP SHIFT 3FF OEA3 OFI1A QEA& 378 oc AL2(RTNO4) ADDRESS OF NEXT ROUTINE 

ODBC F2 10 0B 311 JT 84 % 379 

OOBF 3C SC 1DB9 312 vi MLWR,Ci oe 379 

00c3 CO 87 1527 313 8 REPLCE REPLACE OEAS CO 87 O21A 380 8 PRINT PRINT 

o0C7 6c00Cc00 oO0CcCS 314 oc xL3'600000° B2H2, B2N2 OEAS 41 OEAS 381 DC xL1*41° ROUT INE 

ODCA OO O02 ICFE ICFA 315 B84 CLC STSHO8(3),STATUS CHECK OEAA 29 OEAA 382 oc IL1*4}°¢ TITLE 

ODDO F2 10 O07 316 JT 85 REMAINING STATUS VEAB 1989 OEAC 383 oc AL2(MSGO5) 

0003 CG 87 1527 317 8 REPLCE REPLACE QEAD 10A3 OEAE 384 cc XL2*10A3* 

ODD7 600000 0009 318 oc XL3'600000° B2M2, B2N2 QOEAF 3a 10 1iCBl 385 SBN MARK » MARK3 

OODA E2 G2 01 319 BS LA 10¢XR2) eXR2 CHECK FOR OEB3 CO B87 1527 386 B REPLCE IF LOOPING, 

ODDO BO FF 00 320 C.l 0(sXR2),X* FFE END OF LOWER CASE OEBT 800000 CEBS 387 pc XL3*800000° REPLACE B2L2 

ODEO CO 01 0052 321 BNE REPO2 OEBA CO 87 O2Z1A 388 8 PRINT SPACE 

ODES 3D 40 0090 322 CLI Bil¢#1,X*40° CHECK FOR OEBE 14 OEBE 389 ec XLIt14# 4 LINES 

ODES F2 81 1C 323 JE Bé END OF UPPER CASE CEBF CO 87 0222 390 8 HALT 

ODEB 3€ 40 0090 324 MVI B11¢1,X*40° INITIALIZE OEC3 10A3 OEC4 391 DC XL2'10A3° 

ODEF 3C £0 0085 325 AVI 8341,_,X*408 FOR OEC5 OC O3 LCFE 1CF6 392 mvc STSHOB(4).ZERG 

ODF3 3C 80 0089 326 MVI B12+1-X*80° UPPER DJECB F3 18 O00 393 $10 X*00',PRNT CIS4BLE PRINTER 

OOF7 C2 OL 1025 327 LA TABLE2,XR1 CASE OECE CO 87 1848 394 B SENSOR SAVE STATUS 

OOFB C2 02 1C38 328 LA TABLE3,XR2 OED2 39 BO 1CF9 395 TBF STATUS—1,X*80F CHECK ENABLE OFF 

ODFF 3C 4&0 1ICFC 329 MVI STSHDB—-2,X*40° OED6 F2 10 OB 396 JT Cl 

OCE03 CO B7 OD52 330 8 REPO2 OED9 3C 5C LEO? 397 MVI MPEN,C eee 

OEOT C2 02 1C46 331 86 LA TABLE4,XR1 ESBCDIC TABLE OEDD CO &7 1527 398 B REPLCE REPLACE 

OE0B C2 02 1C€65 332 LA TABLES, XR2 T/R TABLE OEE1 AVO000 OEE3 3939 DC XL3*A0Q0008 B2L2, 82N2 

OEOF OC O2 ICFE ICF6 333 MVC STSHDB(3),ZERO SETUP FOR OEES F3 18 04 400 Cl S10 X*04°,PRNT ENABLE PRINTER 

OE15 D2 O01 O1 334 B61. LA 1(.XR1),XR) LOWER SHIFT OEE7T CO 87 1848 401 & SENSOR SAVE STATUS 

OE18 71 18 00 335 Lid O00eXR1) eX*188 OEEB 38 80 1CF9 4£02 TBN STATUS-1-X*80° CHECK ENABLE ON 

0CE1B68 30 19 ICFA 336 SNS STATUS, X*198 OEEF F2 10 O08 £G3 JT c2 

OclF 30 18 ICFS 337 SNS STATUS~2 .X*18* OEF2 3C SC 1LEOT 404 VI MPEN,C tue 

0E£23 CO 87 1837 338 8 #001 OEF6 CO 87 1527 405 B REPLCE REPLACE 

| 
Date 29AUGT5 O7NOVTS PROG ID 101-1 DATE 29AUGT5S O7TNOVT5 PROG ID 101-1 
€C NG. 827804 827805 PAGE 3. EC NOw 827804 827805 PAGE 3A 
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1011 
ERR LOC 


_OEFA 
OEFD 
OFOO 
OF04 
OF08 
OFOB 
OFOF 
OF13 
OF 16 


OFIA 
OF1B 
OFIC 


OFI1E 
OF 22 
OF23 
OF24 
OF 26 
OF 28 
OF2C 
OF2D 
OF2E 
OF30 
OF34 
OF38 
OF3B 
OF3F 
OF40 
OF41 
OF43 
OF47 
OF49 
OF4D 


OF53 
OF57 
OF58 
OF59 
OF5B 
OFSE 
OF61 
OF65 
OF69 
OF6D 
OF 70 
OFT4S 
OFT8 
OF TC 
OF8O 
OF83 
OFB7 
GFsB 
OFB8E 
OF92 
OF96 
OF99 
OFSD 
OFAI 
OFAS 


DATE 
FC NO. 


SECTION 1--INITIAL PRINTER DIAGNOSTIC TESTS 


QBJECT CODE 


aod0o00o0 

F3 18 00 
CO 87 18465 
39 80 1CF9 
F2 10 08 
3C 5C LEO? 
CO 87 1527 
800000 

CO 87 0216 


0% 
oc 
FFFF 


CO 87 O21A 
41 

19 

19A2 

1LOEC 

CO &7 Q21A 
Oo 

28 

1AA9 

3A 10 1CB1 
co B87 1527 
800000 

CO 87 O21A 
06 

OE 
1C09 
co 87 
10EC 
3c 10 
oc 02 


0222 


ICFE 
1CFD 


co 87 
06 

oc 
1E6D 
F3 18 O21 
F3 18 82 
CO 87 14EC 
CO 87 1848 
28 10 1CFA 
F2 10 29 
CO 87 1504 
3C 60 ICFE 
cO 87 1848 
39 80 ICFA 
F2 10 08 
3C 5C EBA 
co 87 1527 
200000 

3C SC 1E8A 
CO 87 1527 
cs80000 

CO 87 1504 
CO 687 1848 
39 05 1CF9 
F2 10 10 


O21A 


Z29AUGT5 
827804 


1CF6 


OTNOVT 
827605 


ADOR STMT SOURCE STATEMENT 


OEFC 


OF15 


OFLA 
OF18 
OF10 


OF22 
OF 23 
OF 25 
OF27 


OF2C 
OF2D 
OF 2F 
OF3A 
OF 3F 
OF40 
OF 42 


OF48 


OF57 
OF58 
OFSA 


OF 8D 


OF98 


5 


406 oC 
407 C2 sia 
408 B 
409 TBF 
4lu JT 
411 MVI 
412 B 
413 oc 
414 C3 B 
415 & 

416 *¥4900888 
417 * RTNO4 * 
418 *ESSEEKRE 
419 * 

420 * 

421 RTNO4 DC 
422 oc 
423 oc 
424 

424 

425 8 
426 OC 
427 oc 
428 oc 
429 oc 
430 8 
431 oc 
432 BC 
433 DC 
434 SBN 
435 B 
436 oc 
437 B 
438 oc 
439 DC 
440 OC 
441i 8 
442 BC 
443 MVI 
444 MVC 
445 * 

446 * 

447 * 

448 8B 
449 oc 
450 oc 
451 oc 
452 S10 
453 SIo 
454 B 
455 B 
456 TBN 
457 JT 
458 8 
459 MVI 
460 8 
461 TBF 
462 JT 
463 MMVI 
464 B 
465 DC 
466 D2 VI 
467 B 
468 : oC 
469 Dl 8 
470 B 
471 TBF 
472 JT 


PART NO. 
PAGE 
MOD 12 
xL3*a00000° B2L2~- B2N2 
X*00* sPRNT DISABLE PRINTER 
SENSOR SAVE STATUS 
STATUS~1 sX*80° CHECK ENABLE OFF 
c3 
MPEN,C*#? 
REPLCE REPLACE 
XL3*800000* B2L2 
LINK GO TO NEXT ROUTINE 
PRINTER MALFUNCTION TESTS. 
ROUTINE PREFIX 
XL1*O4! RUUTINE PREFIX 
XL1‘°O0° NC INTERVENTIGN REQUIRED 
XL2*FFFF® LAST ROUTINE 
PRINT PRINT 
XL1°41° ROUTINE 
IL1*25° TITLE 
AL2(MSG606) 
XL2*10EC* 
PRINT PRINT 
XL1‘'OL* WATCH 
It 1*40° TYPEBALL 
AL2(MSGPMF? 
MARK ,MARK3 
REPLCE 
XL3*800C000* REPLACE B2L2 
PRINT 
XL1*06° 
IL1'14§ 
ALZ2(MSGRES? 
HALT 
XL2*10EC 
STSHDB,X*10° SET PRINTER 


STSHDB-1(3) sZERO 


PRINTER BUSY TEST 


PRINT 
xL1°06' 
ILi*i2é 

AL 2(PRBUSY? 
X*O1* sPRNT 
X*82* gPRNT 
DELOS 
SENSOR 
STATUS sX*108 
O1 

SAV3 
STSHDB,xX*°80* 
SENSOR 
STATUS +X*80! 
D2 
MPEND,»C*#? 
REPLCE 
XL3*200000* 
MPEND,C**? 
REPLCE 
XL3*C80000* 
SAV3 

SENSOR 
STATUS~1 4X*05° 
$6 


BUSY ON 


PRINT 
"PRINTER 
Busy? 


RESET PRINTER 
START PRINT 

WAIT 

SAVE STATUS 

CKECK FOR BUSY ON 


RESEF MALFUNCTION 
SET INTRPT PEND ON 
SAVE STATUS 
CHECK FOR 

INTRPT PEND OFF 


REPLACE 
A-B2N2 


REPLACE 
B2L2¢82M2_B2R2 
RESET STATUS 


CHECK BITS OFF 


PROG ID 
PAGE 


4248244 
4 


¥ESSEKERSE 


* RTNOG © 
ERKELRESS 
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1011 
ERR Loc 


OFA8 
OFAC 
OFBO 
OFBS 
OFB7 
OFBB 
OFBE 
OFC2 
OFCS 
OFCS 
OFCA 
OFCB 


a> 


OFCD 
OFD1 
OFDS 
OFD8 
oFoc 
OFDF 
OFE3 
OFET 
OFEB 
OFEF 
OFF2 
OFF6 
OFFA 
OFFD 
1001 
1004 
1008 
100C 
100F 
1013 
1016 
101A 
1010 
1021 
1025 
1023 
102C 
1030 
1033 
1037 
103A 
103E 
1942 
1046 


"106A 


104D 
1051 
1055 
1059 
1050 
1061 
1065 
1069 
106D 
2070 
1074 


ek 1077 


1078 
LOTF 


Ok 1083 


’ 
i 


101-1: « 


4 | 


| 
| 
i 
| 
{ 
| 


i 





1086 
108A 
1080 


oo 


DATE 
EC NO. 





GBYECT CODE 


3C 5C 1DEC 
3C 5C 10CF 
38 05 1CF9 
F2 10 O07 
co 87 1527 
080000 

CO 87 1527 
880000 

CO 87 O21A 


co 87 
200000 
co 87 1527 
9860000 
39 80 
38 10 
38 08 1CF8 
39 01 1CFA 
F2 10 79 
3C 5C 1E61 
3C SC 1E8A 
3C 5C 1077 
3c 65C 1€18 
3C 5C 1D0F 
3c 5C 1DEC 
38 OL ICFA 
38 O02 1CF9 
F2 90 O07 
CO 87 1527 
4C0000 

38 O1 1CFA 
38 02 1CFS 
39 15 1CF9 
F2 90 07 
Co 87? 1527 
600000 

32 01 1CFA 


1CFA 
1CFA 


29AUG75 
627804 


O7NOV7 
827805 


SECTION 1--INITIAL PRINTER DIAGNOSTIC TESTS 


MoD 12 


ADOR STMT SOURCE STATEMENT 


OFBD 
OFC4 


OFCS 
OFCA 
OFCC 


OFFC 


1032 


1039 


1076 


108C 


5 


473 
474 
475 
476 
477 
478 
479 
480 
481 S6 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
5il 
§12 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 D4 
535 

536 

537 

538 

539 

540 05 


B92 


“ne 


D81 
D80 


MVI 
MVI 
TBN 
JT 
B 
pC 
B 
boc 
8 
oc 
DC 
oc 


MF2L,C°*® 
MCTL»C°#? 
STATUS~15X'0O5°* 
092 

REPLCE 
xXL3*080000° 
REPLCE 
XL3*°880000* 
PRINT 
xL1*06* 
IL1*15° 
AL2( FEED) 


FEEDBACK SWITCH TEST 


MVI 
MVI 
$t0 
8 
$10 
8 
SNS 
SNS 
TBF 
JT 
MVI 
B 
oc 
TBN 
JT 
MVI 
8 
$10 
B 
$10 
8 
$10 
8 

8 
TBN 


TBF 
TBN 
TBN 
TBE 
JT 

MVi 
MVI 
MVI 
MVE 
MVI 
MVI 
TBN 
TBN 
JF 


oc 
TBN 
TBN 
TBF 
JF 


BC 
TBN 


STSHDB,X*10' 
STSHDB-2,X'08* 
X*82*,PRNT 
DEL49 

X*22* ePRNT 
DELOS 

STATUS »X*19° 
STATUS—2,X'1B* 
STATUS—2,X%'02° 
*4+14 
MLFENS,Ct** 
REPLCE . 
XL3"8e0000! 
STATUS-2,X'08' 
D8O 

MEDS,C##? 

SAV3 

X*82* sPRNT 
DEL4S 
X*22*.PRNT 
DELOS 

X*O2% oPRNT 
DELOS . 

SENSOR 
STATUS 2 X* 10° 
DSi 

REPLCE 
XL3*200000° 
REPLCE 
XL3*980000° 
STATUS ¢X*80! 
STATUS ,X*10° 
STATUS~2 sX'08* 
STATUS *X* 01° 
o3 

MBUSY,C*#* 
MPEND,C'*® 
MFOS,Ct*¢ 

MMAL »C** 
MXTRASC PS 
MF2L,C*#* 
STATUS sX*O1* 
STATUS~1-2X%*02° 
D4 

REPLCE 
XL3*4C0000° 
STATUS eX*O1* 
STATUS~-1,X*02° 
STATUS—15X°15° 
D5 

REPLCE 
XL3*600000° 
STATUS ¢X*O1* 


PART NO. 
PAGE 


IF MALF BITS STILL ON 


REPLACE 
B2R2 
REPLACE 
B2L2s B2R2 
PRINT 
* FEEDBACK 
SWITCH® 


SET PRINTER BUSY ON 
SET FABK SW SAMPLED ON 
ISSUE START PRINT 
WAIT 34.6 MILLISECONDS 
SET FEEDBACK SWITCH 
WAIT 8 MILLISECONDS 
SAVE 

STATUS 
CHECK LONG 

FUNCTION SAMPLED OFF 


REPLACE 
B2L2- B2R2 
CHECK FOR FC SAMP ON 


ISSUE PRINT COMMAND 
WAIT 34.6 MILLISECONDS 
SET FEEDBACK SwITCH 
WAIT 8 MILLISECONDS 
RESET FEEDBACK SWITCH 


CHECK FOR BUSY ON 


REPLACE 
B2N2 


B2P2~ B2R2 
UNTERRUPT PEND OFF 
FOR BUSY 

FOR FO8K SAMPLED 
MALFUNCTION CFF 


B2L2- 
CHECK 
CHECK 
CHECK 
CHECK 


CrECK FOR MALFUNCTION: 
CHECK FOR XTRA CYCLE 


REPLACE 

B2M2s B2R2- B2S2 
MALFUNCTION ON 
XTRA CYCLE ON 


CYCLE Fi AND OTHER MALF OFF 


REPLACE 
B2M2, B2N2 
MALFUNCTION ON 


PROG ID 
PAGE 


4248244 
4A 


101-1 
4A 
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PAGE 


1011 SECTION 1--INITIAL PRINTER DIAGNOSTIC TESTS MoO 12 1011 SECTION 1--INITIAL PRINTER OIAGNOSTIC TESTS MOD 12 


ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


1091 38 06 1CF9 541 TBN STATUS-1,X'06* XTRA CYCLE AND FDBACK 2 LATE ON 609 + 
1095 F2 90 07 542 JF D6 1172 CO 87 1504 610 010—s:~B SAV3 RESET SNS BITS 
1098 CO 87 1527 543 B REPLCE REPLACE 1176 CO 87 021A 611 8B PRINT PRINT 
109C 8co00o 109E 5444 oC XL3*8C0000' B2L2, B2R2, B2S2 117A 06 117A 612 OC = XL 1" 06* "RESET 
109F 39 80 1CFA 545 D6 TBF STATUS,X*8)* CHECK INT PEND 1178 OA 117B 613 nya IL1*10¢ BUSY* 
10A3 F2 10 07 546 JT 07 117C 1A01 1170 614 DC AL2(RSBSY) 
1046 CO 87 1527 547 B REPLCE REPLACE 117E 3C 10 1CFE 615 MVI  STSHDB,X*10* SET BUSY ON 
10AA A80C00 10AC 548 DC XL3*A80000° B2L2, B2N2e B2R2 1182 3C OA 1CFC 616 MVI  STSHDB-2,X*OA* SET FDBACK SAMP AND LONG FN SAMP 
10AD CC 87 1504 549 B SAV3 1186 F3 18 42 617 SIG = X*42", PRNT ISSUE CARRIER RETURN COMMAND 
10B1 38 10 1CFA 550 TBN STATUS,X*10* CHECK 1189 CO 87 14C5 618 B DEL49 WAIT 
10B5 F2 10 07 551 JT = 8 BUSY RESET 1180 CO 87 14EC 619 B DELOS 42 MILLISECONDS 
1088 CO 87 1527 552 B REPLCE REPLACE 1191 F3 18 32 620 S1Q = -X*32", PRNT SET FEEDBACK AND LONG FN 
106C 200000 10BE 553 0C = xXL3*200000' A~B2N2 1194 CO 87 14EC 621 B DELOS WAIT 8 MILLISECONDS 
10BF CO 87 1527 554 B REPLCE REPLACE 1198 CO 87 1848 622 B SENSOR SaVE STATUS 
10C3 980000 10C5 555 Dc XL3*980000* B2L2, B2P2, B2R2 119C 3B 24 1CFA 623 SBF = STATUS, X"248 SET NON-PRINT CHAR AND EOF SWITCH OFF 
10C6 3C 80 1CFE 556 MVI  STSHDB,X*80° SET INTRPT PEND ON 1140 3B 80 1CF7 624 SBF = STATUS—3+X*80! SET UPPR CASE MODE Sw OFF 
10CA 38 18 1CFC 557 SBF  STSHDB-2,X*18* SET FDBACK OFF 1144 OD 02 1CFA 625 CLC = STATUS(3) , STSHDB CHECK FOR 
10CE F3 18 02 558 SIO —-X* 02" PRNT RESET FEEDBACK SW OFF 11AA F2 &1 67 626 JE 012 GOOD STATUS 
10D1 CO 87 14EC 559 B DELOS WAIT 8 MILLISECONDS 11AD 38 90 1CFA 627 TBN STATUS,X*908 CHECK INTRPT PEND AND BUSY ON 
10D5 CO 87 1848 560 B SENSOR SAVE STATUS 1181 38 OA 1CF8 628 T8N  STATUS~2,X'OA! CHECK LONG FN AND FEEDBACK ON 
1009 39 10 1CFA 561 TRF  =STATUS,X*10* CHECK BUSY OFF 11B5 F2 90 17 629 JF 070 
100D F2 10 08 562 JT = 92 11B8 3C 5C 1E8A 630 MVI - MPEND,Cese 
10EQ 3C 5C 1E61 563 MVI = MBUSY.C*#* 11BC 3C SC 1€61 631 MVI MBUSY,C*#*® 
10E4 CO 87 1527 564 B REPLCE REPLCE 11C0 3C SC 1043 632 MVI -MLFNS,C*#® 
10E8 480000 10EA 565 oc XL3*480000° B2M2, B2R2 1104 3C SC 1077 633 MVI MFDS,C*s 
10EB COQ 87 1504 566 091 ~=—s:B SAV3 RESET MALF BITS | 11C8 CO 87 1527 634 B REPLCE REPLACE 
567 * 11CC 280000 LICE 635 DC x1 3*280000° B2N2~ B2R2 
568 * LONG FUNCTION SWITCH TEST 7 L1CF 39 08 1CFA 636 D70 ‘TBE STATUS,x*08" CHECK END GF LINE ON 
569 * a 1103 F2.10 13 637 JT = 13 
10EF CO 87 021A 570 B PRINT PRINT | 1106 3C SC 1E54 638 MVI -MEOL eC * ee 
10F3 06 10F3 571 DC XL1°06! ‘LONG 110A 3A O1 1CB2 639 SBN  PRTMSG,X*O1* SET PRInf MSG FLAG GNK 
a 10F4 ‘14 10F4 $72 oc IL1*20° FUNCTION . 11DE 3C Fl 1EDB 640 HVI FOB. X'F 1° MOVE IN PROPER NO. GNK 
10F5 1075 10F6 573 DC  AL2{(LONGG) SWITCH® 11E2 CO 87 1527 641 B REPLCE REPLACE rindee teere = tenes 
10F7 3C 00 1CFE 574 MVI STSHDByX*00° SET 11£6 0C0040 LLE8 642 OC xXL3*0C0040! B2R2, B2S2- CABLE(GC553) GK 
10FB 3C 02 1CFC 575 MVI S$TSHDB-2,X*02°* XPTD STATUS 11E9 38 04 1CF9 643 013 TBN STATUS—15X"04! CHECK FEED 2 LATE 
1OFF F3 18 12 576 SIO —- X12" »PRNT ISSUE LONG FN COMMAND L1ED F2 90 08 644 JF OAS 
1102 CO 87 14EC 577 B DELOS WAIT 8 MILLISECONDS 11FO 3C 5C 1DEC 645 MVI -MF2L,C*se 
1106 CO 87 1848 578 B SENSOR SAVE STATUS 11F4 CO 87 1527 646 B REPLCE REPLACE 
110A 39 08 1CF8 579 TBF STATUS-2,X'08* CHECK FEEDBACK 11F8 480000 LIFA 647 DC XL3*480000° B2M2, B2R2 
110€ F2 10 08 580 JT #416 SWITCH SAMPLE’ OFF | 11FB 39 10 1CFA 648 01S TBF STATUS,X*10° CHECK BUSY ON 
1111 3C 5C 1077 581 MVI - MEDS,Cte® Le LIFF 3C SC 1E61 649 MVI MBUSY,C*#? 
1115 CO 87 1527 582 B REPLCE REPLACE 1203 F2 10 07 . 650 JT D6 
1119 880000 111B 583 pC = XL3* 8800008 B2L2~ B2R2 1206 CO 87 1527 651 B REPLCE REPLACE 
111C 38 02 1CF8 584 TBN STATUS-2,X*02° CHECK LONG FN 120A 440000 120C 652 OC XL3'4400008 A-B2M2, B2S2 
1120 F2 10 4F 585 JT =—-010 1200 CO 87 1527 653 016 —s:B REPLCE REPLACE 
1123 CO 87 1504 586 8 SAV3 RESET SNS BITS 1211 C80000 1213 654 DC XL3*°C8co0o? B2L2_ B2M2_ B2R2 
1127 OC 03 1CFE 1CF6 587 MVC = STSHDB(4),ZERO SET 1214 F3 18 12 655 D12 = SIO.—- X*12* PRNT RESET FEEDBACK SW 
1120 3A 80 ICFE 588 SBN STSHDB,X*80° XPTD STATUS 1217 CO 87 14EC 656 B DELOS 
1131 3A 02 1CFC '  §89 SBN STSHDB-25X*02° SET LONG FUNCTICGN SAMPLED ON 1218 38 18 iCFC 657 SBF = STSHDB-2+X*18¢ SET FEEDBACK SW OFF 
1135 3C SC 1043 590 MMVI - MLENS,C*s? 121F CO 87 1848 658 B SENSOR 
1139 €3 18 42 591 S10 = X*42*  PRNT CARRIER RETURN COMMAND 1223 38 24 1CFA 659 SBF = STATUS ¢X*24* SET NON-PRINT CHAR AND EOF SW OFF 
113C CO 87 14C5 592 B DEL49 1227 38 60 1CF7 660 SBF  STATUS-3,X*80* SET UPPR CASE MODE SW OFF 
1140 CO 87 14EC 593 B DELOS 122B OD 02 1CFA 1CFE 661 CLC STATUS(3),STSHDB CHECK STATUS 
1144 F3 18 32 594 SIO -X*32*,PRNT SET FDBACK AND LONG FN 1231 2 81 OF 662 JE 017 : 
1147 CO 87 14EC 595 B DELOS 1234 3C 5C 1043 663 MvVI - MLENS,Co#® 
114B F3 18 12 596 SIO X12", PRNT OPEN FEEDBACK ; 1238 3C SC 1E61 664 MVI - MBUSY,C*#* 
114E CO 87 14EC 597 B DELOS 123C CO 67 1527 665 B REPLCE REPLACE 
1152 F3 18 02 598 S10 X02" »PRNT OPEN LONG FUNCTION 1240 080000 1242 666 DC XL3"0800008 A-B2R2 
1155 CO 87 14EC 599 B DELOS ‘ 1243 3C 80 1CFE 667 D177 = MVI-_—s STSHDB,X*80# SET INTRPT PEND ON 
1159 CO 87 184B 600 B SENSOR SAVE STATUS 1247 3C 00 1CFC 668 MVI  STSHDB-24X"00! SET LONG FN OFF 
115D 39 10 1CFA 601 TBF  STATUS,X*10° CHECK BUSY OFF 1248 F3 18 02 669 SIO —-X*02* yPRNT RESET LONG FN 
1161 F2 10 07 602 JT «069 124E CO 87 14EC 670 B DELOS WAIT B MILLISECONDS 
1164 CO 87 1527 603 8 REPLCE REPLACE 1252 CO 87 1848 671 B SENSOR 
1168 980000 116A 604 . oC  XL3*980000 L2, R2, P2 1256 39 10 1CFA 672 TBF = STATUS,»X*10* BUSY OFF 
116B CO 87 1527 605 069 ~—s:B REPLCE REPLACE . 125A F2 10 0B 673 JT = 018 
116F 380000 1171 606 DC XL3*380000" B2N2_ B2R2_ B2P2 1250 3C SC 1€61 674% MVI MBUSY,C*t® 
607 * ; 1261 CO 87 1527 675 B REPLCE REPLACE 
608 * RESET BUSY TEST \ 1265 480009 1267 676 DC XL3°480000° B2M2— B2R2 
s” 
DATE 29AUG75  OTNOV7S PROG ID 101-i \ DATE 29AUG75 = OTNOVTS PROG ID 101-1 
EC 80. 827804 827605 PAGE 5 EC NO. 827804 827805 PAGE SA 


é 
} 
g 
§ 
2 
t 





IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248244 IBM MAINTENANCE OIAGNOSTIC PROGRAM PART NG. 4248244 
PAGE 6 |; PAGE 6A i 
1011 SECTION 1--INITIAL PRINTER OIAGNOSTIC TESTS MOD 12 1011 SECTION l--INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ’ 
1268 CO 87 1504 677 018 8 SAV3 RESET SNS BITS 1348 3B 20 1CFA 745 SBF STATUS,»X*20° SET NON-PRINTABLE CHAR OFF 
678 * 134F CO 87 1527 746 B REPLCE REPLACE 
679 * FEEDBACK TOO LATE TEST 1353 240000 1355 747 pc XL3*240000° B2N2, B2S2 
680 * 1356 CO 87 1504 748 S 8 SAV3 RESET MALFUNCTION BITS 
126C CO 87 O21A 681 8 PRINT PRINT 749 ® 
1270 06 1270 682 oC XL1*06¢ *FEEDBACK 750 * CYCLE TOO LONG TEST 
1271 11 1271 683 OC ILL*17* TOO 751 * 
1272 1DFO 1273 684 oc AL2(FD2) LATE® 135A CO 87 O21A 752 8 PRINT PRINT 
1274 3C 82 1282 685 MVI SI102¢2,x*82* 135E 06 135E 753 oc XL1°06* *CYCLE 
1278 3C 11 LCFE 686 MVI STSHDB,Xtll? SET BUSY AND MALF ON 135F OE 135F 754 oc IL1°24¢ Too 
127€ 3C 04 ICFO 687 MVI STSHDH—1-X'04* SET FEEDBACK 2 LATE ON 1360 1DDD 1361 755 DC AL2(TLONG? LONG® 
1280 F3 18 00 688 S102 SIQ *#-*_,PRNT ISSUE COMMAND 1362 3C 81 1CFE 756 MVI STSHDBsxX*8l* SET INTRPT PEND AND MALF ON 
1283 3D 82 1282 689 CLI = S1024+2,X*82° WAIT 100 1366 3C O1 1CFD 757 MVI - STSHDB-1,X'91° SET CYCLE 2 LONG ON 
1287 F2 81 08 690 JE D19 MSEC IF PRENT 136A F3 18 82 758 SIO X*82*,PRNT ISSUE PRINT COMMAND 
1284 CO 87 14EC 691 8 DELOS OTHERWISE WAIT 1360 CO 87 14C5 759 B DEL49 WAIT 34.6 MILLISECONDS 
:28€ CO 87 1402 692 B DEL1OO 209 MSEC 1371 F3 18 22 760 SIO X*22*, PRAT ISSUE FEEDBACK COMMAND 
1292 C9 87 i4D2 693 019 B DEL100 1374 C2 01 0032 761 LA 50.XR1 WAIT 
1296 CO 87 14EC 694 B DELOS 1378 CO 87 1402 762 B DEL100 FIVE 
129A 30 42 1282 635 CLI S10242,X*42° 137C 36 O01 1DOA 763 A HEXFF,XRE SECONDS 
129E F2 81 SA 696 JE 020 1380 CO 01 1378 764 BNZ WAIT 
1zAL CO 87 1848 697 & SENSOR SAVE STATUS 1384 F3 18 02 765 SIO X*0Z2*%_PRNT RESET FEEDBACK SWITCH 
12A5 3B 24 1CFA 698 SBF STATUS» X*24# SET NON-PRINT CHAR AND ECF SW OFF 1387 CO 87 14EC 166 8 DELOS WATT & MSEC 
12A9 38 80 ICFT 699 SBF STATUS—3-X"80* SET UPPR CASE MODE SW OFF 138B CO 87 1848 767 B SENSOR SAVE STATUS 
12AD OD 02 1CFA ICFE 700 CLC = STATUS (3) » STSHDB 138F 38 24 1CFA 768 SBF = STATUS» X*248 SET NON-PRINT CHAR AND EOF SW OFF 
12B3 F2 81 39 701 JE D221 1393 38 80 1CFT7 769 SBF STATUS~3-X*80* SET UPPR CASE MODE Sw OFF 
12B6 3C SC 1E18 702 MVI MMAL,Ce*? 1397 OD O02 ICFA 770 CLC =STATUS(3).STSHOB CHECK FOR 
12BA 3C 5C 1DEC 703 MVI = «MF 2L,C**® 139D F2 81 3D 771 JE D26 CORRECT STATUS 
128E 39 O01 ILCFA 704 TBF STATUS.X*OL? CHECK FUR MALF 13A0 3C SC 1DCE 72 MVE MCTL,C's? 
12C2 F2 90 15 705 JF 022 13A4 3C 5C 1£18 773 MVI MMAL,Ct#? 
12C5 38 04 1CF9 706 TBN STATUS~1+X*°04* CHECK FOR FEECBACK 2 LATE 13A8 38 OL LCF9 774 TBN STATUS-1,X'O1* CHECK CYCLE 2 LONG 
12C9 F2 10 07 TO7 JT 023 13AC F2 10 15 775 JT 027 
12CC CO 87 1527 708 8 REPLCE REPLACE ; 13AF 38 O21 1CFA 776 TBN STATUS,X*O1* CHECK MALF 
1200 8coGcoc 12D2 709 oc XL3'scoooot B2L2, B2RZ, B2S2 1383 F2 10 07 777 JT 028 
1203 CO 87 1527 710 023 8 REPLTE REPLACE 1386 CO 87 1527 778 B REPLCE REPLACE 
1207 280000 1209 711 oc XL3*280000* B2N2_, B2R2 13BA 8CO000 13BC 779 DC XL3*8C0000' B2L2~ B2R2s 8282 
12DA 39 04 ICF9 7l2 022 TBF STATUS—1 2X *04§ 13BD CO 87 1527 780 B REPLCE REPLACE 
12DE F2 10 OT 713 JT D24 12C1 280000 13C3 781 DC XL3*280000' A-B2N2, B2R2 
12E1 CO 87 1527 714 8 REPLCE REPLACE 13C4 38 02 1CF9 782 T8N STATUS—1,X'02* CHECK XTRA CYCLE 
12E5 080000 12E7 715 pc XL3*080000* A-B2R2 13C8 3C SC 10DF 783 MVI MXTRA,CT¥? 
12E€8 CO 87 1527 716 024 B REPLCE REPLACE 13CC F2 10 O7 784 JT p29 
12EC 200000 12EE 717 oc XL3*200000? A-B2N2 13CF CO 87 1527 785 B REPLCE REPLACE 
12EF 3C 42 1282 718 021 MVE SEO2+2—X'42° SETUP FOR 13D3 A0C000 1305. 786 oc XL3*a00000! B2L2~— B2N2 
12F3 CO 87 1504 719 - B SAV3 13D6 CO 87 1527 - 787 8 REPLCE REPLACE 
12F7 CO 87 1280 720 B $102 CARRIER RETURN 13DA 040000 13DC 788 DC XL3*040000! A-B2S2 
12FB CO 87 1848 721 020 8 SENSOR 13DD CO 87 1504 789 8 SAV3 ~ RESET SNS BITS 
12FE 38 04 1CF9 722 TEN STATUS—1,X*04* CHECK FEEDBACK 2 LATE 790 
1303 F2 10 08 723 Jt D25 791 EXTRA CYCLE YEST 
1306 3C 5C 10EC 724 MVI MF2L,C*## 792 
130A CO 87 1527 725 8B REPLCE REPLACE 13E1 CO &T OZ1A 793 B PRINT PRINT 
130E 040000 1310 726 oc XL3*0400008 A~B2S2 13ES 66 13ES5 794 DC XL1°06* *XTRA 
1311 CO 87 1504 T27 D025 8 SAV3 RESET SNS BITS 13E6 OB 13E6 795 DC iLl'.li¢ CYCLE® 
728 # 13E7 1CEA 13E8 796 DC AL2¢XTRA} 
729 % 2-08 SECOND CHECKOUT 13E9 OC 02 LCFE 197 MVC STSHDB(3) »XCSTAT SET XPTD STATUS 
730 * 13EF F3 18 A2 798 SIO X*A2*,PRNT SET FEEDBACK Sw 
1315 CO &7 O21A 731 B PRINT PRINT 13F2 CO e7 14EC 799 B DELOS WAIT 8 MSEC 
1319 06 13219 732 DC XL1*06* "2.68 13F6 CO 87 1846 800 B SENSOR SAVE STATUS 
L31LA OF 131A 733 pC ILL*15* SECOND 13FA 38 O1 1CFA B01 TON STATUS*x*O1* CHECK MALF ON 
- 4131B 19FA 131C 46734 DC AL2(MSG26-16} BIT® 13FE 39 02 1CF9 802 TBE STATUS—1,X'02¢ CHECK XTRA CYCLE OFF 
131D OC 02 1LCCS 1004 735 MVC WORK4(3),C268 WAIT 1402 F2 90 OF 803 JE #418 
1323 F3 18 82 736 $10 X'82*,PRNT BRING UP PRINTER BUSY 1405 3C 5C 1£18 804 MVI MMAL Chet 
1326 30 19 ICFA 737 ST? SNS STATUS «X'198 2e7 SEC 1409 3¢C 5C 1D0F 805 MVI MXTRA Chee 
£32A 38 20 1CF9 738 TBN STATUS—-1,X%* 20° FOR STATUS 140D CO 87 1527 806 B REPLCE REPLACE 
132E F2 10 25 739 JT $9 BIT TO COME UP 1411 200000 1413 807 oc XL3* 2000005 A~B2N2 
2231 OF OZ I1CC5 1CB6 T40 SLC wWORK4(3),0NE 1414 38 20 ICFA 808 SBF STATUS »X* 208 SET NON-PRINT CHAR OFF 
1337 CO 01 1326 741 BNZ S7 1418 38 80 1CF7 809 SBF STATUS~3,X'808 SET UPPER CASE SW OFF 
133B OC O03 1A07 1C0D 742 MvC MSG26-3(4),60 SETUP 141C 38 OL ICFA 810 TBN STATUS eX*O1° CHECK MALE ON 
£342 3A O2 1CB1 743 SBN MARK » MARK6 ERROR 1420 38 02 1CF9 811 TBN STATUS~19X"°02° CHECK XTRA CYCLE ON 
1345 OC 31 ICF8 ICF6 T44 MVC STATUS-2(2}),ZERO MESSAGE 1424 F2 10 OF - g12 JT D30 
DATE 29AUGT5 OTNOV7S PROG ID 10t-1 © pate 29AUGT5 O7NOV75S 7 Petty oe PROG ID 101-1 
EC NG. 827804 827805 PAGE 6 EC NO. 827804 «PAGE 6A 
6 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


PART NO. 


PAGE 


REPLACE 
B2R2, 82S2 
SET XPTD STATUS 
RESET SNS BITS 
SAVE STATUS 
CHECK XTRA CYCLE OFF 


REPLACE 

B2R2 

ISSUE PRINT COMMAND 
WAIT S56 MSEC 

ISSUE FEEDBACK COMMAND 
WAIT 8 MSEC 


CHECK MALF ON 
CHECK XTRA CYCLE ON 


REPLACE 
B2R2, B2S2, B2M2 
RESET SNS BITS 

ISSUE RETURN COMMAND 
WAIT 200 

MSEC 

ISSUE FEEDBACK COMMAND 


WAIT 8 MSEC 


CHECK MALF ON 
CHECK XTRA CYCLE ON 


REPLACE 

A-B2S2 

RESET MALFUNCTION BITS 
co TG 

NEXT SECTION 


“24 fruy © 


424824 


vi. 
ps 


SECESSESKESKSESAE CTS ES SRERKEKESK AES SHERAKEEKSERSSESLKEKASCASESEAKEEESESHEGESESESEEEGE 


THIS SUBRCUTINE SETS UP AND DELAYS 


FOR THE MILLISECOND TIFPINGS INDICATED BELOW. 


SETUP 

FOR 3426 
MILLISECONDS 

SETUP 

FOR 98 
MILLISECONDS 

SETUP 

FOR 56 
MILLISECONDS 

SETUP FOR 

8 MSEC DELAY 


RETURN 


THIS SUBROUTINE RESETS MALFUNCTION SENSE BITS 


1011 SECTION 1--INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 
ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT 
1427 3C SC 1£18 813 MMVI MMAL CC *** 
142B 3C 5C 100F 814 MVI MXTRA,C#S® 
142F CO 87 1527 815 B REPLCE 
1433 0C0000 1435 16 oc XL3*occooo® 
1436 OC 02 1CFE 1CE6 817 030 MVC STSHDB(3),XCST1 
143C CO 87 1504 818 B SAV3 
14490 30 19 ICFA 819 SNS STATUS ,X*198 
1444 39 02 1CF9 820 TSE STATUS~15X*025 
1448 F2 10 0B 821 JT #416 
144B 3C 5C 10DF &22 MVI MXTRA CES? 
144F CO 87 1527 823 B REPLCE 
1453 080000 1455 824 oc XL3*oB0000* 
1456 F3 18 82 825 $10 X*82*,PRNT 
1459 CO B87 14DF 826 8 DEL31 
145D F3 18 22 827 310 X*22%e¢PRNT 
1460 CO 87 14EC 828 B DELOS 
1464 CO 87 1848 829 B SENSOR 
1468 38 O1 ICFA 830 TBN STATUS »X*O1* 
146C 38 02 iCF9 831 TBN STATUS-1,X"02° 
1470 F2 10 OF 832 JT D31 
1473 3C 5C 1°DF 833 MVI MXTRA, Cts? 
1477 3C 5C 1618 834 MVI MMAL Cts? 
147B CO 87 1527 835 B REPLCE 
147F 4CC000 1481 836 oc XL3*4C0000* 
1462 OC O02 ICFE 1CE9S 837 031 MVC STSHOB(3),xCST2 
1488 CO 87 1504 838 B SAV3 
14eC F318 42 839 $10 X*42°_PRNT 
148F CO 87 14D2 840 B DELi00 
1493 CO 87 1402 841 8 DEL100 
1497 F3 18 22 842 $10 X*22*,PRNT 
149A CO 87 I4EC °843 8 DELOS 
an) “3 149E CO 87 1848 844 8 SENSOR 
14A2 38 01 1CFA 845 TBN STATUS -X#01# 
146A6 38 02 I1CF9 846 TB8N STATUS~15X*02' 
14AA F2 10 OF 847 JT D32 
14aD 3C SC 1€18 848 MVI MMAL,C tee 
14B1 3C 5C 100F 849 MVI MXTRA,C IS 
2485 CO 87 1527 850 8 REPLCE 
1489 040000 248B 651 oc XL3°040000* 
14BC CO 87 1504 852 032 8 SAV3 
14C0 CO 87 022A 853 8 LOAD 
14C4 00 14C4 854 oc xuL1*oo® 
855 
856 * 
857 * DELAY SUBROUTINE: 
858 * 
859 * 
860 
861 
861 
14C5 34 08 1593 862 DELS ST ENODEL4+3,ARR 
14C9 OC 62 1CC5 ICEO 863 MVC WORK4(33 ,COEL49 
14CF F2 87 24 864 J S$uB 
1402 34 08 1503 865 DEL100 ST ENDDEL+3-ARR 
1406 OC 02 1CCS5 1COD 866 MVC WORK4(3),COEL10 
140C F2 87 17 867 J SUB 
14DF 34 G8 1503 868 DEL31 ST ENODEL+23,AKR 
14€3 OC O2 1CC5 1CDA 869 MVC WORK4 (3},CDEL31 
14E9 F2 67 OA 870 J SUB 
14EC 34 08 1503 871 OELNS ST ENDDEL+3,ARR 
14FO OC 02 1C€C5 1CO7 872 MVC WORK4(3) ,CDELOS 
14F6 OF O02 1€C5 1CB6 873 SUB SLC WORK4 (3) ,ONE 
14FC CO 01 14F6 874 BNZ SUB 
1500 CoO 87 CO00 875 ENDDEL B +-2 
876 * 
877 * 
, 878 * 
1504 34 08 1526 879 SAV3 ST ESAV34¢3,ARR 
DATE 29AUG75 OTNOV7S 
827804 827805 


EC wo. 


PROG ID 


PAGE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


1011 
ERR LOC 


1508 
150C 
1510 
1514 
1518 
isic 
1520 
1523 


1527 
1528 
1531 
1535 
1538 
153F 
1543 
1547 
1548 
154F 
1552 
1555 
1558 
155C 
1560 
1563 
1567 
1568 
1569 
1568 
1571 
1575 
1579 
1570 
1581 
1584 
1588 
1589 
158A 
158C 
158E 
1592 
1596 
159A 
1590 
15a0 
15A4 
15A8 
1SAB 
15AE 
1583 
1587 
1588 
1589 
15B6 
15BE 


DATE 
€C NO. 


OQ 


Cs 


SECTION 1--INITIAL PRINTER DIAGNOSTIC TESTS 


OBJECT CODE 


C2 
co 
36 
co 
30 
30 
F3 
co 


34 
oc 
34 
OE 
3c 
34 
34 
38 
35 
78 
F2 
7B 
3A 
39 
F2 
co 
02 
i9 


o1 
87 
oi 
01 
19 
18 
18 
87 


08 
01 
08 
02 
00 
o1 
02 
08 
01 
20 
90 
20 
0&8 
10 
10 
87 


1896 


oc 
38 
3c 
3c 
3c 
F2 
co 
C2 
19 


01 
10 
01 
ou 
ol 
87 
87 


1896 
1001 


3c 
3C 
3c 
70 
Fa 
C2 
3¢C 
78 
F2 
2c 
co 
01 
25 


sli 
81 
81 
oo 
81 
02 
ol 
00 
90 
04 
87 


1BD2 


F2 
E2 


87 
02 


OOLE 
14D2 
1D0A 
150C 
1CFA 
1cF8s 
03 

0000 


1694 
1682 
1CBE 
1694 
1C04 
1CFO 
1CF2 
icBl 
1CBE 
01 

07 

ol 

1C82 
1€81 


021A 


1682 
1€81 
1587 
15€2 
15F8 
16 

Q21A 


i587 
15E2 
15F8 
02. 
28 
18D8 
15A9 
02 
10 
1BBE 
O21A 


oo 
05 


29AUG75 
827804 


1D08 
1CB8 
1567 
1568 
156A 
1006 
1588 
15a9 
158B 
158D 
00 
1567 
1588 
15BA 
OTNOVTS 
827805 


ADOR STMT 


THIS SUBROUTINE IS USED TO PRINT CARD CALLOUTS 


PART NO. 


PAGE 


WAIT 
THREE 
SECONDS 


RESET 
SNS BITS 


RETURN 


WHICH HAVE BEEN ISOLATED AS FAILING UNITS. 


WHERE -XXXXXX— REPRESENTS THE CARDS TO BE PRINTED. 


SREKKSRKSEKRKHEAKSASEARSE SASS SKE SHSRSEKRSESEKERKERLAHKHESAECSEKKERHERKKASKKAGERRERESE 


SAVE RETURN ADDRESS 


MODIFY 
RETURN 


KEEP CONTENTS 
CF THE REGISTERS 


ChECK FOR SLT CARD PRINTOUT 


PRINT 
NON-ERROR 
REPLACE MESSAGE 


PRINT 
REPLACE 
CARDS 

MESSAGE 


SETUS FOR 
CABLE PRINTOUT 
CHECK FOR BIT ON 


424 f2y4 
424824. 


| A 


SHKKKSEKSTESKETKKSERAKAHKSESHSCSHSKSEAREHASASKAASAKKSESKERETELRERSERKKSEKAKSEAEERSEAKKEE SY 


a 
4 
a 
a 
a 
2 
2 
2 
* 
2 
* 


MOVE LOGIC PAGE # INTO PRINTOUT 


PRINT 
*CHECK 
CABLE 
XXXXX* 


MOD 12 
SOURCE STATEMENT 
880 SAV4 LA 30.XR1 
881 B DEL100 
882 A HEXFF,XR1 
883 BNZ SAV444 
884 SNS STATUS eX*19° 
885 SNS STATUS-2,X*1B* 
886 S10 X*03%¢ePRNT 
887 ESAV3 8 —* 
888 
889 * 
890 * 
891 * 
892 * LINKAGE IS VIA 
893 * 
894 * 8 REPLCE 
895 * DC XL3*XXXXXX* 
896 * 
897 * 
898 3 
899 * 
900 
$00 
901 REPLCE ST END7+3-ARR 
902 MVC END6143(2),STATCA 
903 ST WORK1,ARR 
904 ALC END74+3, THREE (2) 
905 MVI SWITCH,X*00* 
906 ST SAV1eXR1 
907 ST SAV2,XR2 
908 SBF MAP” »MARK4 
969 L WORK1,XR1 
910 TBN i(sXRLIeX*208 
911 JE *+10 
912 SBF 11,XR1),K%*208 
913 SBN MARK ¢ MARKS 
914 TBF MARK sMARK3 
915 JT CON11 
916 8 PRINT 
917 Oc XL1¢O2* 
918 DC 1L1*25¢ 
919 OC AL2(REP) 
920 MVC END6143(2) sENDTA 
921 SBF MARK »sMARK3 
922 MVI MODS .X*O1* 
923 MVI MGO2,xX*O1* 
924 MvI MOD3 .X*02* 
925 J col 
926 CON1L 8B PRINT 
927 oc xtl*c2t 
928 DC IL2*25* 
929 DC AL2CREP) 
930 DC XL2°1001* 
931 MVI MODS, X* Sit 
932 MVI MOD2.X*81° 
933 MVI MOD3_X*8l* 
934 COl CLI 20,XRL? eX OO# 
935 JE END66 
936 LA CABLE. XR2 
937 “vi TST2¢i,xK*O1s 
938 TST2 TBN 2(.XR1) 9 t-% 
939 JF INC2 
940 MVC CABL(5) .0(,XR2) 
941 8 PRINT -— 
942 MODS OC XL1*°O1° 
943 DC IL1°37° 
944 oc AL2(MSGCA8) 
945 J END66 
946 INC2 LA 5(¢XR2) eXR2 


INCREMENT MESSAGE POINTER 


PROG ID 


PAGE 


101-2 
7A 


IBM MAINTENANCE OITAGNOSTIC PROGRAM 


1011 


ERR LOC OBJECT CODE 


15€1 
15C7 
15¢8 
1SCF 
1503 
1506 
1509 
150E 
15€2 
15€3 
15E4& 
15E6 
L5EA 
15ED 
15F I 
154 
15F6 
15F9 
L5SFA 
LSFC 
iSFF 
1605 
1609 
160C 
1612 
1616 
161A 
L6LE 
1621 
1625 
1626 
1627 
1629 
1620 
1630 
1633 
1636 
163A 
1638 
163C 
163E 
1642 
1643 
1644 
1646 
164A 
164E 
1651 
1655 
1656 
1657 
1659 
1650 
1660 
1664 
1665 
1666 
1668 
166C 
1670 
1674 
1674 
167E 
L167F 
1683 
1687 
1688 
1689 


SATE 
EC NWO. 


a e a ‘ 4 é / 


SECTION 1--INITIAL PRINTER OLAGNOSTIC TESTS 


OE 
co 
c2 
3c 
78 
F2 
2c 
co 
OL 
06 
189C 

39 02 
F2 01 
38 20 
F2 90 
87 


00 
20 
02 
ol 
00 
90 
03 
87 


4D 
1A57 
co 87 
81 

2A 
1A81 
3b FF 
38 FF 
F2 61 
Co 37 
81 

16 
LEBE 
38 O1 
F2 90 
co 87 
81 

10 
1E08 
38 O1 
35 01 
35 02 
oc 13 
co 87 
92 
co 
co 
&& 
30 
1815 


87 
B7 


29AUG7 
827804 


15A9 
15a8 
1ARAO 
1504 
00 

23 

189C 
O214 


04 

15D4 
1503 
01 

1C04 
15CF 
LDOA 
1cB1 


O21A 


1cBl 
00 
o1 
10 
O21A 


O21A 


1CB3 
1083 
08 

O21A 


1€82 
O21Aa 


1CB2 
1cFoO 
1CF2 
1B02 
O21A 


1695 
O21A 


5 


ADDR 


15A9 


006 


15E2 
15E3 
15€5 


15-8 
15F9 
15F5 


15D4 


1CEE 


1625 
1626 
1628 


163A 
1638 
163D 


1642 
1643 
1645 


1655 
1656 
1658 


1064 
1665 
1667 


1B03 
L67E 
1687 


1688 
168A 


O7TNOVTS 
827805 


STMT 


947 
948 
949 
950 
351 
952 
953 
954 
$55 
956 
957 
958 
959 
960 
961 
962 
$63 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
9717 
978 
979 
$80 
981 
982 
$83 
S84 
$85 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
397 


998 


399 
1000 
1col1 
1002 
1003 
1004 


1005 


1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 


MOD 12 


SGURCE STATEMENT 


END66 
CON1 
Tst 


MOD2 


“O03 


INC 


ENDS 


FUSE 


FBKCKT 


ENDO61 


END61 


atc 
BNOL 
LA 
MvI 
TBN 
JSF 
MvC 
B 
oc 
BC 
pc 
ctl 
JNE 
TBN 
JF 


B 
pc 
oc 
oC 
LA 
ALC 
BNOL 
LA 
ALC 
BNGL 
A 
TBN 
JF 
8 
pc 
BC 
DC 
SBF 
S8N 
TBN 
Jf 
8 
pc 
oc 
oc 
& 
oC 
oc 
Bc 
cli 
SBF 
JNE 


tc 
oc 


TBN 


TSTZ24¢1(1),TST241 
tTs¥2 

CARDS, XR2 
TST+1,X*O1* 
Oe XR1),%-*% 
INC 
CARD(4) 400 ,XR2) 
PRINT 

XL1¢O1L* 
IL1*6°* 

AL2( CARD) 
TST4+1,X*02¢* 
IAC 
MFCU-1,X*20'5 
INC 

PRINT 

xL1°O1* 
IL1*358 
AL2(MSG12} 

40 ¢XR2) —9XR2 
TST4+1C1L)-TST+1 
TST 

10eXR1) eXR1 
SWITCH, HEX80 
cON1 
HEXFF,XR1 
MARK - MARK4 
END6 

PRINT 

xLiteit 
IL2*08* 
AL2(MSGSLT) 
MARK , MARKS 
O(eXR11.X*20° 
1¢eXR1) -X%*20° 
FUSE 

PRINT 

XLi*si¢ 
IL1*77®& 
AL2ZUMSGIE413 
PRINT 

XL1*81°* 
ILi*42°* 
AL2(M561425 
FUSTAT »«BDFUSE 
FUSTAT Xt FFE 
FBKCHT 

PRINT 

xLi¢gi¢ 
ILi*22¢ 

AL2( FUSE) 
PRTMSGeX*O1* 
ENDO61 

PRINT 

XLi‘s1é 
IL1*298 

AL 2(FDB) 
PRIMSGsX*OL® 
SAVI,XRI 
SAV25XR2 
MSGCAB{ 20) «MSGCAB41 
PRINT 

XL1°92¢ 
STATCK 

PRINT 
XL1°86* 
1L1°*46°& 
AL2{(MSWARN) 
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BITS FOR ON 
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INTERRUPT | 
MESSAGE 
| 
{ 
CHK FOR BAD FUSE PRINTOUT 04) 
TURN OFF FLAG 04) 
IF NO FLAG SKIP PRINT GNK, 
ELSE PRINT MSG. 04! 
G4: 
04, 
64) 
CHECK FOR PRINT MSG FLAG GNK. 
SKIP If NOT ON 
PRINT "CHK MECH ENTRY GK 
CHRT PG 001~AX* GK 
GK 
GK 
TURN OFF PRINT MSG FLAG GNK 
RESTORE 
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CO NOT 
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| 
| 
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'BM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 
PAGE 8A 

SECTION 1--INITIAL PRINTER DIAGNOSTIC TESTS “OD 12 

OBJECT CODE ADDR STMT SOURCE STATEMENT 

CO B87 0222 . 1015 B HALT ERROR 

1001 1690 1016 oc XL2*1001°* HALT 

co 87 0000 1017 ENDT 8 *—* RETURN 

1018 * 
1019 ¢ STATUS RECORDER 

34 08 1836 1020 STATCK ST ENDSTR#3,ARR 

34 01 1CD1 1021 ST R1ISAV1,XR1 RETAIN CONTENTS 

34 02 1CD3 1022 ST R2SAV2 _XR2 OF REGISTERS 

OC OO 1CCF 1CF7 1023 MVC WORK ¢ STATUS~3 (1) KEEP . 
oc 00 1CCE 1CFB 1024 MVC WORK-1¢STSHDB-3(1) ONLY 

3B CO 1CCF 1025 SBF WORK,» X*CO* TITLT 

38 CO 1CCE 1026 SBF WORK~1 ¢X*CO* ROTATE 

OC 18 1B4C 1B4D 1027 MYC MSGTR1~1(25) sMSGTR1 CODE 

oc 01 1600 1¢€C9 1028 MVC COR+3(2) ,AMSTRI SET UP MESSAGE AREA 
3C 00 1CD4 1029 MVI SWITCH »X*008 CLEAR SWITCH 

C2 01 iCCF 1030 LA WORK ¢XR1 RECEIVED TILT ROTATE CODES 
3C 01 16D5 1031 OGOER1 MvI TSTR+1L,X*O1! SET UP BIT CHECKER 
C2 02 1€98 1032 LA TABLET—4eXR2 TABLE FOR PRINTOUTS 
E2 02 04 1033 DOER LA 4(eXR2) eXR2 INCREMENT TABLE 

78 0O 00 1034 TSTR TBN 0(,XR1),4*-* CHECK FOR BIT ON 

F2 90 608 1035 JF INCR 

2c 03 0000 O06 1036 COR MVC #-*(4) CU gXR2) IF ON» MOVE TLT-ROTATE 
OE 01 160D 1CBA 1037 ALC COR+3(2)eFOUR ~ CODE TG PRINTOUT AREA 
O£ 00 16D5 16D5 1038 INCR ALC TSTRELsTSTRAL (1) CHECK ALL BITS 

co 20 1601 1039 BNOL DOCER IN EACH BYTE 

3D 80 iCD4 1040 CLI SWITCHsX*80! 

F2 81 18 ae 1041 JE *4+27 SET UP FOR 

Oc 01 16DD 1CCB 1042 MVC COR+3(2)>AMSTEL PRINTING 

C2 01 1CCE 1043 LA WORK-1¢XR1 EXPECTED 

3C 80 1CD4 1044 MVE SWITCH eX? 80° TILT-ROTATE 

oc 18 1883 1584 1045 MVvC MSGTEL-1(25) ,MSGTEL CODES 

Co 87 16C9 1046 5 DOERI 

CO 87 O21E 1047 8 UNPACK UNPACK 

Ol 1712 1048 oc IL1'1* RECEIVED 

1CCF 1714 1049 oc AL2(WORK?) TILT—ROTATE 

1833 1716 1050 oc AL2(MSGTRC-1) CODES 

CO 87 O21A 1651 8 PRINT PRINT 

81 1718 1052 OC XLL*81° RECEIVED 

37 171C 1053 LEN1L oc IL}*55° TILT—ROTATE 

1B4D L71E 1054 oC AL2(MSGTR1} MESSAGE 

3C 37 171C 1055 MV; LEN1sX*37° 

CO 87 O21E 1056 5 UNPACK UNPACK 

O1 1727 1057 oc ILitze EXPECTED 

1CCE 1729 1058 DC AL2Z(WORK-1) TILT-ROTATE 

1BEA 172B 1059 oc AL2Z(MSGTEX-1) CODES 

CO 87 O21A 1060 B PRINT PRINT 

82 1730 1061 oc XLi*82° EXPECTED 

37 1731 1062 DC IL1'55* TILT-ROTATE 

1884 1733 1063 boc AL2¢MSGTE1} MESSAGE 

39 04 1CB1 1064 TBF MARK s MARKS CHECK FOR 5.24 PRINTOUT 
F2 1¢ OC 1065 JT Tl 

38 04 1C81 10666 SOF MARK » MARKS 

CO 87 O21A 1067 8 PRINT PRINT 

82 1743 1068 oc XL1*82¢ 5024 

1E 1744 1069 oc Iti*30¢ SESSAGE 

1SEA 1746 1070 oc AL2€MSG25} 

39 02 icBl 107% Tl TBF MARK ¢ MARKS CHECK FOR 2.68 PRINTOUT 
F2 10 OC 1072 JT T2 

3B 02 icB’ 1073 SBF MARK » MARK6 

CO 87 O21A 1074 B PRINT “PRINT 

82 1756 1075 oc XL1*82¢ 2-68 

20 1757 L076 DC TL1i'32¢ MESSAGE 

1AO0A 1759 1077 oc AL2(MSG626) 

CO 87 1837 1078 T2 5 MO01 SET XPTD STATUS 

38 3F 1CFT7 1079 SBF STATUS~3eX*3F® 

3B 3F ICFB 1080 SBF STSHDB-3_X*3F* 

3C 00 1004 1081 MVI SWITCH sX* 008 CLEAR SWITCH 

CO 87 021A 1082 8 PRINT PRINT 

29AUG75 O7NOV75 PROG 10 101-1 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248244 IBM MAINTENANCE DIAGNOSTIC PROGRAM . PART NO. 4248244 
PAGE 9 a PAGE SA 
1011 SECTION 1--INITIAL PRINTER OIAGNOSTIC TESTS MOD 12 : 1011 SECTION 1--INITIAL PRINTER OLTAGNOSTIC TESTS MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
176E 82 176E 1083 oc XL1*°8s2°* * STATUS cr 1151 # ; 
176F 14 176F 1084 Dc IL21*20°* RECEIVED K. 1152 2 SENSOR SUBROUTINE: 
1770 1872 1771 1085 oc AL2(MSGRCV) WAS, * 1153 * SAVES KEYBOARD STATUS 
1772 C2 01 1CF7 1086 La STATUS—34XR1 SET UP RECEIVED STATUS POINTER 1848 34 08 185E . 1154 SENSOR ST ENDS+3,ARR 
1776 F2 87 11 1087 J CHECK AND GO CHECK STATUS : 184F 30 18 1CF8 1155 SNS STATUS-2,.X*18°* SAVE 
1779 CO 87 G21A 4088 EXPSTT B PRINT PRINT 1853 30 19 iCFA 1156 SNS STATUS,X*19° STATUS 
1770 92 1770 1089 oc XL2*92° * STATUS ei 1857 CO 87 1837 | 1157 8B “001 SET RESERVED BITS OFF 
177E CO 87 O21A .990 8 PRINT 1858 CO 87 0060 1158 ENDS 8 + RETURN 
1782 82 1782 1091 oc xLi*s2¢ 1159 * 
1783 14 1783 1092 oc IL1*20* EXPECTED = 1160 * MESSAGES 
1784 1AE5 1785 1093 oc ALZ2(MSGEXP} WAS,* ine Sag 1161 # 
1786 C2 01 ICFB8 1094 LA STSHDB-3,XR1 SET EXPECTED STATUS POINTER 185F E2E3SCLEZE4E240D9 1872 1162 MSGRCV DC CL20*STATUS RECEIVED WAS, ® 
178A C2 O02 1DOF 1095 CHECK LA FIRST-1,XR2 SET FUR CORRECT COUNT é 1867 C5C3C5C9E5C5C440 1162 
178— 79 CO OO 1096 TRF O(oXR1),X*COF : 186F £6C1E268 1162 
1791 79 DE O1 1097 TRE 14,XR1L),X*DE® 1873 E2D3E340C3C109C4 187A 1163 MSGSLT NC CLO*SLT CARD? 
1794 79 87 02 1098 TBF 2(¢XR1},X*87!* : 1878 400605 1870 1164 BLON oc CL3* One 
1797 79 BF 03 1099 TBF 3(0,XR1),X*BF®E . 1i87E 89C5D0703C1C3C540 1896 1165 REP oc CL25*REPLACE FOLLGWING CARO/S=* 
179A F2 90 08 1100 JF CHECK} BITS ON 1886 Cé6é06D3D3D06E6C9D5 1165 
179D CO 87 O21A 1101 =} PRINT PRINT . 188E C740C3C1D9C461E2 1165 
17Al 61 17Al 1102 oc XL1*°81¢ *NONE® of 1896 TA 1165 
17A2 05 17A2 1103 oc ILi*se : 1897 C160 1898 1166 oc CL2*a-* pe ea 
17A3 1€A8 17A4 1104 oc AL2( NONE} re 1899 ETETETE7 189C 1167 CARD oc CL4*XXXX* . ee 
17A5 3C 01 17C€8 1105 CHECK1 MVI TSTBTO+1,X*O1l* SET 189D C2F303F2 18AO 1168 CARDS OC CL4*B3L2* 
17A9 2C 00 17D2 00 1106 DOIT MVC LENGTH,0(,XR2) uP 18Al C2F2E4F2 184% 1169 oc CL4*B2U2* 
17AE OE O07 1702 1C86 1107 ALC LENGTH, ONE FOR Oh, 18A5 C2F2€2F2 18A8 1170 OC CL4*B2S2* 
1784 2C oO 1788 00 1108 MVC INCADR#+2(1),00-XR2) STATUS , 18A9 C2F209F2 i8saC 1171 oc CL4*B2R2¢* 
1789 E2 02 00 1109 INCAOR LA #—*(,XR2) eXR2Z PRINT ! 18AD C2F2D7F2 1880 1172 DC CL4*B2P2* 
17BC 34 02 1704 1110 ST AORMSGeXR2Z OuT - 1881 C2F2D05F2 18B@ 1173 oc CL4*B2N2* 
17CO E2 02 O1 1111 LA 10,XR2) -XR2 ae 18B5 C2F204F2 1888 1174 DC CL4*B2N2¢ 
17C3 34 02 1C€C7 1112 ST KEEP1,xR2 SAVE XR2 18B9 C2F203F2 188C 1175 oc CL4*BS2L2° 
17C7 78 00 00 1113 TST8TO TBN Of9XR1},4—-* BYPASS PRINTING IF , opt 1880 1804 1176 DS CL24 
ee ee . 17CA F2 90 08 1114 JF YNCBTOG STATUS SIT NOT ON aR 1805 C2F3E2F2 1808 1177 oc CL4*83S52¢ 
17CD CO 87 O21A 1115 B PRINT PRINT 1809 C2F3D0TF2 180C 1178 oc CL4*B3P2¢ 
1701 Bl 17D1 1116 oc XLi*s1¢ STATUS a 18D0D E2C505E2C540C961 18EA 1179 MSGO1 OC CLI4*SENSE 1/0 TEST®* 
17D2 06 17D2 1117 LENGTH DC IL1*o* - IF BIT Me 18t5 D640E3C5E2E3 1179 
17D3 0000 1704 1118 AORMSG OC AL2(0) ON 18EB O4C1IDSESCID3D3SES 18F3 1:18C DC CLO*MANUALLY ° 
1705 CO 87 17F6 1119 INCBTO B INCB2 Ps 18F3 40 1180 : 
1709 oc OO 1CB8C 1788 1120 INCB1 MVC KEcP2(11,.NTADRY2 es 18F4& O7D6E2C9E3C90605 1918 1181 DC CL37* POSITION CARRIER AT LEFT HAND MARGIN, ® 
17DF OF O1 1704 1C8C 1121 SLC ADRMSG(2) -KEEP2 SUBTRACT MESSAGE COUNT 18FC 40C3C 1D909SC9C5D9 1181 
17E5 35 O2 1704 1122 L ADRMSG eXR2 ng 1904 40C1E340D03C5C6E3 1161 
17E9 BD 01 OO 1123 cu! O(,XR2),X*01* a 190C 40C8C105C440D4C1 1181 
17EC F2 81 O03 1124 JE +6 1914 D9CTCSD56E 1181 
17JEF BC 40 01 1125 MMVI 1¢,XR2},X*40* 7 ve 1919 D3D6C1C440D7D9C9 1938 1182 MSGO3 OC CL32*LOAD PRINTER KEYBCARD WITH PAPER® 
17F2 35 02 1CC7? 1126 L KEEP1 -XR2 RESTORE XR2 rx. 1921 O5E3C5D940D2C5E8 1182 
17F6 OE OO 17C8 17C8 1127 INCB2 ALC TSTBTOF1s TSTBTG41(1) TEST ALL BITS 1929 C2D6C109C440E6C9 1282 
17FC CO 20 17A9 1128 BNOL DOIT OF EACH BYTE cue 1931 €3C840D7C1D7C5D9 1182 
1800 D2 O01 O01 1129 LA 1(,XR1) »XR1 : INCREMENT BYTE COUNTER _ 1939 0306C1C440C961D6 1960 1183 MSGO4 CC CL40"LOAD 1/0 TEST-IF PROGRAM HANGS ON A LIO * 
1803 8D 04 00 1LEA4 1130 cic 0(5¢XR2) ~NONE-4% LAST BYTE : 1941 4O0E€3C5E2E360C9C6 1183 
1808 CO O1 17A5 1131 BNE CHECK] NO--CONTINUE CHECKING toe 1949 4007D906C7D9C104 1183 
18soc oc 01 17D8 1CEB 1132 MVC INCBTO43(2),AINCB1 aa 1951 40C8C1LO5CTE240D6 1183 
1812 OF OO 1CD4 ICEE 1133 ALC SWITCH se HEX8O PRINT EXPECTED STATUS 1959 D540C6140D3C90D640 1183 
1818 CO 20 1779 1134 BNOL EXPSTT IF NOT ALREADY PRINTED LS 1961 E2E3C1LD9E340C961 1989 1184 MSGO5 DC CL41*START 1/0 TEST-IF PROGRAM HANGS ON A SIO * 
181C CO 87 O21A 1135 8 PRINT SPACE THREE oe 1969 D640E3C5E2E360C9 1184 
1820 93 1820 1136 oc XL1°93° LINES 1971 C640D709D6CTD9C1 1184 
1621 OC O1 1708 ICED 1137 MVC INCBT043(2)-AINCB2 Lor 1979 0440C8C1D5C7E240 1184 
1827 3B FF 1C62 1138 SBF MARK, X* FFP RESET FLAGS AL, 1981 060540C140E2C906 1184 
1828 35 01 1CD2 1139 | L R1SaV1,XR1i RESTORE 1989 40 1184 
182F 35 O02 1C0D3 1140 L R2SAV2¢XR2 REGISTERS Py 198A D709C905E3C50940 19A2 1185 MSGO6 OC CL25* PRINTER MALFUNCTICN TESTS? 
1833 CO a7 0000 1141 ENDSTR 8B ~* RETURN fxg 1992 D4C1D03C6E4D5C3E3 1185 
1142 * 19GA C9ODGDS40ESC5E2ZES . 1185 
1143 ® MOD1 SUBROUTINE: . 19A2 E2 1185 
1144 * SETS RESERVED STATUS BITS TO ZERO. . \ 1S9A3 60C160C2F2Z2E4F240 1905 1186 S612 DC CL35"-A-B2U2 MAY BE SWAPPED WITH A-A3A3-° 
1145 & 19AB 04C1E840C2C540E2 1186 
1837 34 08 184A 1146 OD} st ENDM+3 ARR Lo 1983 E6C1IOTOTCS5C440E6 1186 
1838 38 40 1CFA 1147 SBF STATUS «X*40* SET anes 1988 C9E3CB40C160C1F3 . 1186 
163F 36 78 1CF9 1148 SBF STATUS—1 »X* 78! RESERVED , 19C3 C1F360 1186 
1843 386 21 1ICF8 1149 SBF STATUS—2 X*21° BITS OFF Oa 19C6 €7064006C6C640 19C€ 1187 GOOF oc CL7*GO GFF * 
1847 CO 87 0000 1150 ENDM 8 +—¢ RETURN 2 19CO 5C 19CO 1188 oc CLises 
| 3 Pa | : oe 
DATE 29AUGTS5 OTNOV75 : PROG ID 101-2: *. DATE 29AUGT75 O7NOV75 PROG 10 101-1 
EC NOew 827804 827805 ; PAGE 9 €C NGO. 827804 827805 _ PAGE 9A 
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PAGE 10 | PAGE 10 
1011 SECTION 1--INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 1011 SECTION 1--INITIAL PRINTER OLAGNOSTIC TESTS MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT , ERR LOC OBJECT CODE -ADDR STMT SCURCE STATEMENT 
19CE FS54BF2F440D4E2C5 19EA 1189 MSG25 DC CL29°S.24 MSEC BIT DID NOT XXKXX GN® \ 1BA7 C5060340E2E65D 1BAD 12C8 EOL oc CL7*EOL Swit 
1906 C340C2C9E340C4C9 1189 LBAE C3C8C5C3D0240C3C1 1889 1209 oc CLE2*CHECK CABLE(® 
19DE C440D5C6E340E7TE7T 1189 / 1886 C203C54D 1209 : 
19E6 ETE7T40D605 1189 ae LBBA EVETETETE7 1B8E 1210 CABL oc CLS *XXXXX* 
19EB SC 19EB 1190 oc Cuytee LBBF 4040404040404040 1802 1211 MSGCAB OC 20XL1°40¢ 
19SEC F24BF6FB40E2C5C3 LAOA 1191 MSG2E OC CL31°2Z-68 SECOND BIT CID NOT XXXX ON® 1BCT 4040404040404040 1211 
19F4 D6D5C440C2C9E340 119} 1BCF 40404040 1211 
19FC C4C9C 440D5D6E340 1191 1803 40 1BD3 1212 oc XL1°40¢ 
JAO0& ETETETET400605 1191 18D4 1808 1213 CABLE OS CLS 
1A0B C9OC640CI1DSE84006 1A34 1192 oc CL42°*1F ANY OTHER INTERRUPTING DEVICES ATTACHED® j 180° IBEC 1214 os ct20 
1A13 E3L8CS0940C9D5E3 1192 1BEO D2C4FlF4Fl 1BF1l 1215 oc CL5*KO141° 
1A18 CS5SD9DSE407E3C9D5 1192 1LBF2 C7C3FS5F5F3 18F6 1216 oC CL5*GC553¢ 
1A23 C740C4CSES5SC9OC3C5 1192 \ LBFT CT7C3F5FS5F2 1BFB 1217 DC CLS *GC552° 
1A2B E€240C1E3E3C1C3C8 1192 : 1BFC DOC5SE2CSE340E3C8 1CO9 1218 KSGRES OC CLI4*RESET THE HALT® 
1A33 C5C4 1192 1C04 C540C8C1D3E3 1218 
1A35 40E3D0640E2E8EZE3 1LA57 1193 MSG14i DC CL35* TO SYSTEM ARE CPERATING CORRECTLY, 1COA 40C7D640 1C0D 1219 GO oC CL4é* GO * 
1A30 €5D440C1D9C54006 1193 1COE E2E3C1E8 1C11 1220 STAY bc CL4*StTay? 
1A45 D7CS5D9SCLESCSDSCT 1193 1221 * 
1A4D 4OC3D6D9D9SCSC3E3 1193 | er 1222 * TABLE1—-LOWER SHIFT REQUIRED COMBINATIONS 
1AS5 D3E868 1193 pea iS 1223 * 
1458 D6D04CSE340C3C8C5 1AB1 1194 MSG142 DC CL42*OMIT CHECKING B3S2; B3P2, AND CABLEECKDISI)& 1C1l2 F2l 1C12 1224 TABLE] OC XLI°FLE 
1A60 C3D2C9DSC740C2F3 1194 1C13 F2FE3F4ES5F6FT7F8F9 I1C1A 1225 oc XL8°F2F 3F4F5F 6F 7FSF9* 
1A68 E2F26B40C2F307F2 1194 : 1C1B FO6OSOTCSB7B6B4B i022 1226 oc XLB"'FO6GOSO7TCSE7BEB4BF 
1A70 6B40C1D05C440C3C1 1194 1023 61FF 1024 1227 DC XL2°O1LFF® 
LATS C2D3C54DD2C4FLF4 1194 =~ 1228 * 
1A80 F1i5D 1194 AD 1229 * TABLE2—-UPPER SHIFY REQUIRED COMBINATIONS 
1A82 E6CLE3ZC32C840ESE8 LAAS 1195 MSGPRF DC CL40*WATCH TYPEBALL AND CARRIER-IF ANY MOTION! 1230 = 
1A8A D7C5C2C1D30340C1 1195 ; - 1€25 TE 1025 1232 TABLE2 OC XLL*7E* 
1A92 D5C440C3C1DSD9CS 1195 * 1026 4CSETAGCTD6GE5C4D 1620 1232 BC XL8*4CSETA6GCT7D6ESTC4D® 
LASA C5SDS6O0CSCE640C1DS 1195 ICZE SDEDGEGASATEGFSF 1035 1233 pc XI S*SD6DSEGASATEGFSF® 
1AA2 E840D406E3C9D6D5 1195 . 1€36 6FFF 1037 1234 CC XL2*6FFF® 
= aa ~ — LAAA DSCSCECS5SDS40E3D6 LACT 1196 MFEM oC CL3CtREFER FQ FEMM 2-138 THRU 2-140° Nei 1235 * 
1AB2 40C6C5040440F260 1196 . 1236 + TABLE3-TILT ROTATE CODES 
lABA FIF3F84CGE3C8D9E4S 1196 : : e 1237 * 
YAC2 40F 260F LF4FO 1196 q 1C38 3F 1038 1238 TABLE3 OC XL1¢3F¢ 
1AC8 OSC5SE2C5E340C2E4 LAD) 1197 RSBSY DC CLIO*RESET BuUSY® 1039 36363530343C3931 1€40 1239 pc XLB* 363E3530343C3931° 
1A00 E£2E8 1197 , 104i 3717072710302000 1€48 1240 DC XL8°3717072710302000°* 
VAD2 E2E3SCLE3SE4E240C5 LAES 1198 MSGEXP DC CLZO*STATUS EXPECTED HAS,® a 1049 2FFF 1C4A 1243 pc XL2*2FFF? 
JADA E707C5C3E3C5C440 1198 1242 *® 
LAE2 E6C1lE2Z6E 1198 gt 1243 * TABLE4——LOWER SHIFT CHARACTERS 
LAE6 E6C10905C705C760 1815 1199 MSWARN DC CL48'*WARNING-RESETTING THIS ERROR HALT MAY BE INVALID® & 1244 * 
IAEE DOCS5SE2C5E3E3C9D05 1199 1C4B 08 1C4B 1245 TABLES DC XLi*os* 
1AF6 CT40E3CBCSE240C5 1199 “4 1C4C ES6CSDSESEBE4CSD6E 1054 1246 oc XL9"E6CSDSESZEBSE4CSD6DT7* 
1AFE D9DIDGEDS4OC8C1D3 1199 RL 1054 D7 1246 
1B06 E340D4CLE840C2C5 1199 1C55 CLlE2C4C6C7C8D1D2 1€50 1247 pt XL9O°*C1E2C4C6C 7C8D010203* 
IBOE 40C9DSESCID3CSC4S 1199 co. 1C5D D3 L247 
1816 5C 1816 1200 oc CLits#s Rs ICSE ESETC3ZE5C20504 1664 1248 oc XLT*EQVETC3ZES5C2D504* 
1B1i7 E3CIDZES40D9D6E3 1834 1201 MSGFRC DC CL3O'TILY ROTATE COE RECEIVED —- -* 1249 * 
1B1LF C1E3C540C3D6C4C5 120Q1. em, 1250 * TABLES5--TILT ROTATE CODES 
1B27T 40D9C5C3C5C9E5CS§ 1201 C3 i251 * 
1B2F €C44060404060 1201 : 1€65 19 1065 1252 TABLES DC XL1*19° 
1835 4040404040404040 184D 1202 MSGTR1 OC cL2ast 8 s 1C66 2400112E29250114 1C6D 1253 oc XL8B'240D112E29250114* 
1830 4040404040404040 1202 ; : 1C6E ICOF2605C40COS1LF 1C7T5 1254 oc XL8* 1COF2Z605040COS1F* 
1B45 4040404040404040 1202 1C76 161LE212C0E2D0610 IC7E 1255 oc XLO*°1L6LE212CCE2D061015° 
1B4D 40 1202 pa 1C7E 15 1255 
1B4E ESCSDZES40D9D6E3 1868 1203 MSGTEX DC CL3G* TILT ROTATE CODE EXPECTED - -* _.. .&e. .0Te Fe ; iCTF 1256 : oc XLL‘FF? 
1856 CLE3C540C3D6C4C5 1203... : 1257 * 
IBSE 4O0CSETD7IC5C3E3C5 1203 5 1258 * TABLE6~-NO-PRINT COMBINATIONS 
1B66 €44060404060 1203 6 1259 * 
1B6C 4040404040404040 1884 1204 MSGTE1 DC cL_25°& 7 1¢80 00 1C80 1260 TABLES6 OC XL1*°00°* 
1B74 4040404040404040 1204 : 1C81 0102030405060708 1C88 1261 oc XL8*010203040506070F ° 
IB7TC 4040404040404040 1204 1C89 FFFEFDFCFEB8B7B6 1090 L262 oC XL8*FFFEFDOFCFEBE8B7 BE * 
1884 40 1204 1C91 AlAOSF8C8B757466 1098 1263 DC XLB*ALADSFSC8B7T57466* 
1B85 030605C740C60540 1B8F 1205 LONG oc CLLI*LONG FR Sw)? a 1099 40D9F140 1C9C 1264 TABLET CC CL4* R21 *® 
188D E2E650 1205 : 1C9D 68D9F2406BD9F2C}i 1080 1265 oc CL20*,R2 sR2AeRS TL »T2 * 
1890 CéC5C5C4C2C1C3D2 LBOF 1206 FDSW oC CLI6*FEEDBACK SWITCH}? 1CAS 6B09F54068E3F 140 1265 . 
1898 40E2E6C9ESC3C850 1206 us 1CAD 6BE3F240 1265 
1BAO C5D6C640E2E65D 1BA6 1207 EOF Dc CLT7*EOF Swi* tos 1266 ¢ 
DATE 29AUG75 OTNOV75S PROG ID 101-1! pate 29AUGTS O7NOV7TS PROG ID 101+ 
EC NO. 827804 827805 PAGE 10 |; EC NO. 827804 827805 PAGE ic 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOe = 4248244 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 4248244 
PAGE 11 PAGE 1lA 
1011 SECTION 1--INITIAL PRINTER DIAGNOSTIC TESTS MGD 12 1011 SECTION 1--INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
i267 : ee 1040 0101 1D41 1322 oc XL2*0101° 
pa Sess apts - ie 1333 . oc IL1*29¢ 
43 1334 MLENS OC XL1*408 
1CB1 00 ie i pie oe ae pect alee “peantaut 0 peataa phd ee 1D5F 1335 oC CL28*LONG FUNCTICN SWITCH SAMPLED® 
0008 1272 MARK EQU xX*08* SLT CARD PRINTOUT 1054 PGES cesbeobibs fase 
0004 1273 MARKS EQU = X*04* 2062 MILLISECOND BIT 1D5C D7D3C5C4 1335 
0002 1274 MARK6 EQU = xX*02* 1.34 SECOND BIT 1060 15 1D60 1336 oc IL1*21° 
0001 1275 MARK? EQU- x*Ol® SHIFT CYCLE 1061 40 1061 1337 MLFN DC XL1°40° 
1cB2 00 1CB2 1276 PRTMSG DC XL1'00* PRINT MSG FLAG GNK 1062 D3D6D5C740C6E405 1075 1338 LONGG OC CLZ20"LONG FUNCTION SWITCH* 
1CB3 00 1CB3 1277 FUSTAT OC xL1'008 04 1D6A C3E3C906D540E2E6 
OOFF 1278 BOFUSE EQU  X'FF® BAD FUSE FLAG 04 1072 C9E3C3C8 : teae 
at : CONSTANTS AND STORAGE AREAS 1076 18 1076 1339 DC IL1*248 
1D77 40 1D77 1340 MFOS  0C XL1°40° 
ues am a) pet ate oe er ecears te Gee eu ester tape 108E 1341 DC CL23"*FEEDBACK SWITCH SAMPLED® 
& 
1C87 0003 1CB8 1223 THREE OC XL2'*0003° 1088 eee ypenspacece ioe 
1CB9 0004 1CBA 1284 FOUR OC XL2*0004* 108F 10 108F 1342 oC IL1*16* 
1CBB 0000 ICBC 1285 KEEP2 OC XL2*00008 1090 40 1090 1343 MFD pc XL1*40* 
1CBD 0000 1CBE 1286 wWORK1 OC xXL2*00* 1D 
z cep ones gee ee oe eee 103 ee ee 109F 1344 FEED oC CLIS'*FEEDBACK SWITCH® 
1€C1 0000 1CC2 1288 OC xXL2*00° 1DA0 biet eee IDAL aaas oC XL2*0101¢ 
1CC3 000000 1CC5 1289 WORKS DC XL3'00° : 1DA2 15 1DA2 1346 pc TL1*21°¢ 
iccé 0000 1CC7 1290 KEEPi OC xL2'*CO* 1DA3 40 1DA3 1347 DC XL1*408 
ieca lear ieee ase anstel oe atatneerel-zt TOAc esecesioosesoaes | tacn SY CH0TUPPER swtry aEquIRED 
1cCC ooC00000 iCCF 1293 WORK OC XL4*00! 10B4 C9D9C5C4 oe aap 
1CD0 0000 1C01 1294 R1SAV1 DC XL2'008 m 1D88 15 1088 1349 oC IL1*21* 
1CD2 0000 1CD3 1295 R2SAV2 DC XxL2*°00° E 1DB9 40 1D89 1350 MLWR OC XL1°40° 
1C04 00 1CD4 1296 SWITCH OC xiL1'008 i 
1CD5 000147 1CD7 1297 CDELOS5 OC XL3*000147° ipce EOCeESGOboCs Uses ee fa51 os Spee ay eet gee 
Lu 
bee enea ns pacers, 1CD8 000902 1CDA 1298 CODEL31 OC xL3*oco902¢ 1D0CA C9D9C5C4 1351 
1CDB 001000 1CDD 1299 CDELLO OC xXL3*O0100D8 1DCE OF IDCE 1352 DC IL1"15° ——— 
1CDE 000588 1CEO 1300 CDEL49 DC XL3'O0058B* & 1OCF 40 10CF 1353 MCTL 0C XL1°408 
1CE1l 080211 1CE3 1301 XCSTAT DC XL3"'080211° : 1000 C C 
beer geeg oe aees cent ae A ace eile . ree eore 303C540E3D06 1DDD 1354 TLONG OC CL14*CYCLE TOO LONG® 
ICE? 1€0211 1CE9 1303 XCST2 OC xL3*1EO211° 1DDE ce oe 100E ace oc IL1*12¢ 
1CEA 1709 1CEB 1304 AINCB1 OC AL2UINCB1) 10DF 460 10D0F 1356 MXTRA ODBC XL1°40* 
1CEC 17F6 1CED 1305 AINCB2 OC AL2CINCB2} 1LDEO CSE7E3D9C140C3E8 IDEA 1357 XT . , 
1CEE 80 1CEE 1306 HEXB8O DC xL1'so* 1DE8 C3D3C5 357 ae = GEE i ningeugmete 
1CEF 0000 1CFO 1307 SAV1 = 0C XL2*00* . 10EB 12 1LDEB i oc 1L1*18° 
1CF1 0000 1CF2 1308 SAV2  0C XL2*00* 1DEC 40 3 
1CF3 0000 1CF4 1309 DC xL2'00# eRenaeecee: “ine pela 
eee eee hve yeaa. one ee AED Coe oe e cec Ole ee 1DFD 1360 FDZ oc CLI7*FEEDBACK TOO LATE® 
1CF7 00000000 1CFA 1311 STATUS OC xL4*00# 10FD es pair iehoag ieee ‘ 
F ‘ 
rere pecocace as a erenbe Ue Me eas oe sore ee 1E05 1361 oc XL8*0101010101010101¢ 
: fo t e 
1002 OOEA60 1004 1314 C268 OC XL3*OOEA60* LEO? 40 a5 ees MPEN Bc etre 
1005 1691 1006 1315 ENOTA OC AL2(ENO7) 0) 
icoe cee pee aie ce ecacee nr orern seid y i 8 D7D9C9D5E3C5D0940 1E1& 1364 DC CLIS*PRINTER ENABLED? 
1009 FFFF 1D0A 1317 HEXFF OC XL2°*FFFF¢ . fe? ee 1E17 tae oc IL2*20° 
1D0B 78000020 1DO0E a STAINE oc XL4*78000020° ty 1E18 40 1E16 1366 KMAL ce XL1L*40# 
1E19 D7DSCODSESC5C0940 1E2B 1367 DC CLIO" PRINTER MALFUNCTICN® 
azo : STATUS MESSAGES 1£21 D4C193C6E405C3E3 1367 
1D0F O1 1DOF 1322 oc IL1¢'o1°* as ree rele 1E2€ yace DC TL1°25* 
upto 01 1D10 1323 FIRST OC IL1'o1e ; 1£2D 40 1£2D 1369 MXLAT OC XL1'4O* 
1011 01010101010 ' 
uu ae 10101010101 abt a = Ae neve } rece eid hata 1E45 aie oc CL24*PHINTER TRANSLATOR CHECK? 
ee 1 
1018 09 1018 1326 oC IL1#09° 5 
101C 40 101C 1327 MNGP 3 OC XL1*40° ; ese ere 1E46 isn oc ILi'i2¢ 
1010 D50640D709C9D5E3 1024 1328 oc CLE*NO PRINT® a 1E47 40 < 
1D25 14 1025 1329 pe —Fsd2L:" 268 | ; leaesae ee aeers 
AoE a ee ' ace: ae? Corer soneceaoce 1E52 1373 oc CL11L"END OF FORM® 
1027 D709C905E3C50940 103F 1331 oc CL25*PRINTER SHIFT MODE SWITCH® 4 1€53 OC 1E53 ina nc 1L1°12° 
102F E2C8C9C6E34004D6 1331 1E54 4 ; 
1037 C4C540EZE6C9E3C3 1331 : eee ene ces 
as et ite 1E55 C5D5C44006C64003 LESF 1376 pc CLIL*END OF LINE® 
1 tA 1E50 C9DS5C5 1376 
DATE 29AUGTS5 OTNOVTS : PROG 1D 1oi-1 & DATE 2 
: QAUGTS O7NOV75 eu Pp Pe 
EC NO. 827804 827805 PAGE 11. EC NO. 827804 827805 ~ PAGE - Sak 
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PAGE 12. , PAGE 12A 
1011 SECTION 1—INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 1011 SECTION 1-—INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 
: io“ 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT & CROSS-REFERENCE 
1E60 OD 1E60 1377 DC IL1*13¢ . SYMBOL T LEN VALUE DEFN REFERENCES 
1£61 40 1£61 1378 MBUSY OC XL1*40° : 
1£62 DTNSC905E3C5D940 1E6D 1379 PRBUSY DC CL12*PRINTER BUSY* ADRMSG A 002 17D4 1118 1110® 1121% 1122 
1E6A C2E4E2E8 1379 AINCBL A 002 1CEB. 1304 1132 
1E6E 18 1E6E 1380 DC IL2°248 AINCB2 A 002 ICED 1305 1137 
1EGF 40 1E6F 1381 oC XL1*40¢ ALLIN A O11 1EE6 1390 0085 
1E70 DSD6D560D7D9C9D5 LE86 1382 oc CL23"NON-PRINTABLE CHARACTER® _ AMSTEL A 002 1CCB 1292 1042 
1E78 E3C1C203C540C3C8 1382 AMSTR1 A O02 1CC9 1291 1028 ios . 
1€80 C109C1C3E3C509 1382 ARR C 001 0008 1396 0862 0865 0868 0871 0879 0901 0903 1020 1146 1154 
1E87 0101 1E88 1383 DC XL2*0101¢ Al A 003 0a83 0073 0064 
1€89 la 1E89 1384 oc 1L1*268 A10 A 003 CB64 0138 0120 
1E8A 40 1E8A 1385 MPEND OC xLi'4o¢ All A 003 OB75 0143 0110 
1E8B D709C9D5E3C5D9460 1EA3 1386 pc CL25*PRINTER INTERRUPT PENDING® - AllL & 003 OASF 0063 0060 
1E93 CIDS5E3C50909E4D7 1386 Al2 A 003 0895 0152 0145 
1LE9B E£34007C5D05C4C9D5 1386 Al3 A 003 oOB88 0161 0153 
1EA3 C7 1386 Alé A 003 O8D4 0168 0139 
1EA4 4005D605C5 1EAS 1387 NONE DC CLS* NONE? ‘als A 003 OBEB 0174 0169 
1EA9 060940C3C8C5C302 1EBE 1388 FUSM OC CL22°OR CHECK BEZEL FUSE Fl* 04 Al6 A 003 OCOA 0182 0175 
1EB1 40C 2C5E9C5D340C6 1388 Al? A 003 OC1B 0187 0183 4 
1EB9 E4E2C540C6F1 1388 Als A 003 OC2C 0192 0188 
LEBF C3C8D2“9D4C5C3C8 LEDB 1389 FDB pC CL29°*CHK MECH ENTRY CHRT PG OO1-A * GK Al9 A 003 O0C32D 0197 0193 
LEC? 40C5D5E3D9E840C3 1389 he A 003 OaB9 0088 0133 
1ECF C8D9E340D07C740F0 1389 A20 A 003 OCSF 0207 0203 
1ED? FOF160C140 138¢ A201 & 003 OC4E 0202 0198 
LEDC 40C103034003C905 1EE6 1390 ALLIN DC CLII° CALL LINESD® -. . A2k A 006 OC7D 0219 0213 
LEE4 C5E25D 1390 A2i1 A003 OC70 0212 0208 
1391 # A3 A 003 OACA 0093 0089 
1392 * EQUATES AS A 003 OADB 0098 0076 
1393 # 7 As A 003 OB00 0109 0094 
0001 1394 XR —QU x*olt A6 A 003 O611 0114 0162 
0002 1395 xR2 EQU ss Xf O28 , aT A 003 OB22 0119 0115 
os 0008 1396 &RR EQU sx 088 7 AB A 003 0B33 0124 0100 
O21A 1397 PRINT EQU x*21At Ag A 003 0848 0131 0126 
O2Z1E 1398 UNPACK EQU xX*2I1E* - BOFUSE C 001 OOFF 1278 0084 0991 
0216 1399 LINK EQU  xX*216* .. BLON A 003 187D 1164 0043 
022A 1400 LOAD EQU  x*O22A8 Bl A 005 OD87 0297 0293 
0222 1401 HALT EQU xX*2228 - Bll A 004 OD8F 9299 O277T# 0322 0324# 
0018 14N2 PRNT EQU x*lBeF ~ B12 A004 ODBS8 0310 0279% 0326¢ 
FFFF 1403 END B2 A 005 ODAL 0304 0298 6306 
- 83 A 004 ODB4 0309 0278* 0305 0325% 
' 3 B4 A 006 ODCA 0315 0311 
85 A 003 ODDA 0319 0316 
. . Bb A 004 O£€07 0331 0323 
\ Bél A 003 O£€15 0334 0350 
B87 A 003 OEF4C 0348 0344 
/ 871 A 004 OESC 0352 0368 
‘.. BB & 004 OEF9D 0369 0362 
CABL A 00S 1B88E 1210 0940# 
.. CABLE A005 18D8 1213 0936 
~ 4. CaRD A 004 189C 1167 0953* 0957 
CARDS A 004 18A0 1168 0949 
_. CDELOS A 003° ICD? 1297 0872 
... CDEL10 A 003 1C0D 1299 0866 
CDEL31 A 003 ICDA 1298 0869 
-. CDEL49 A 003 1ICEO 1300 0863 
‘ CHECK A 004 178A 1095 1087 
CHECK] A 004 1785 1105 21100 1131 
- CONl A 004 15CF 0950 o971 
..CGN1Li A 004 1584 0926 0915 
CoR A 005 16DA 1036 1028* 1037* 1042¢ 
, col & 003 1594 0934 0925 
% Cl A 003 OEFE4 0400 0396 
C2 A 003 OEFD 0407 0403 
» C268 A 003 1004 1314 0735 . 
/&. C3 A 004 OF16 0414 }#0410 
DELOS A 004 14EC O871 0454 0493 C508 0510 0559 0577 0593 0595 0597 0599 6619 0621 
De 0656 0670 0691 0694 0766 O799 06828 0843 
3. -DELLOO A 004 1402 0865 0692 0693 0762 06840 0842 0881 
DATE 29AUG7T5 O7NOVTS | PROG ID 101-1 C pate 29AUG75 O7NOV7S PROG ID 101-1 
EC NO. 6827804 827805. PAGE l2 , EC NO. 827804 | 827805 , PAGE 12a 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOw- 4248244 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NOs 4248246 
PAGE 13 i PAGE 13A 

1011 SECTION 1--INITIAL PRINTER DIAGNOSTIC TESTS MOD i2 1011 SECTION 1--INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 

CROSS-REFERENCE pe CROSS—REFtRENCE 
SYMBOL T LEN VALUE OEFN REFERENCES SYMBOL T LEN VALUE DEFN REFERENCES 
DEL31 A 004 140F 0868 0826 HALT COOL 0222 1401 0053 0275 0390 0441 1015 
DEL4¢9 A 004% 14C5 0862 0491 0506 0592 0618 0759 HEXFF A OO2 1D0A 1317 0225 0235 0246 0763 0882 0972 
DOER A 003 1601 1033 1039 HEX8O0 a OOl I1CEE 1306 0970 1133 
DCERL A004 16C9 1031 1046 INC A 003 15FC 0966 0952 04959 0961 
DOIT A OOS 1749 1106 1128 . INCADR A 003 1789 1109 1108* 1120 
Dl A 004 OF99 0469 0457 INCBTO A 004 1705 12119 1114 1132% 1137% 
p10 A 004 1172 0610 0585 INCBL A 006 1709 1120 130% 
012 & 903 1214 0655 0626 INCB2 A 006 27F6 1127 1119 1305 
p13 A 004 1169 0643 0637 INCR A 006 16€5 1038 1035 
015 A 004 1L1FB 0648 0644 INC2 A 003 15BE 0946 0939 
D16 A 004 1200 0653 0650 KEEP] A 002 1CC7 1290 1112* 1126 
D17 A 004 1243 0667 0662 KEEP2 A 002 ICBC 1285 1120* 1121 
018 A 004 1268 0677 0673 LENGTH A 001 17D2 1117 1106* 1107#% 
p19 A 004 1292 0693 0690 LEN A OOl 171C 1053 0306%* 1055% 
D2 A 004 OF8E 0466 0462 LINK C 001 0216 1399 0254 0369 0414 
020 A 004 12F8 0721 0696 LOAD C S01 022A 1400 0853 
D21 A 004 12EF 0718 0701 LONG A Oll 188F 1205 0156 
D22 A 004 120A 0712 0705 LONGG A 020 1075 1338 0573 
023 A 004 1203 0710 0707 MARK A OOl iCB1 1270 0066* 0228* 0238* 0250* 0270* 0385 - «24 0743* 0908* 0913* 0914 0921% 
D24 A 004 12£€8 0716 0713 oe 0973 0979% 1064 :066* 1071 1073* 1138 
025 A 004 1311 0727 0723 MARK3 C 001 ©6010 1271 0270 0385 0434 0914 0921 iS sageae le ies ok oe 
D26 A 004 130D 0789 o771 MARKS C 001 0008 1272 0908 0913 0973 0979 
027 A 004 13C4 0782 o775 MARKS C 001 0004 1273 0228 0238 0250 1064 1066 
p28 A 004 138D 0780 0777 MARK6 C 001 0002 1274 0066 0743 1071 1073 
029 A 004 1306 0787 0784 MARK7 C 0O1 0001 1275 
D3 A 004 10C6 0556 0522 MBUSY A O01 1E61 1378 0140* O147* 0523* 563% 0631% 0649* 06644 0674* 
D36 A 006 1436 0817 0812 MCTL A O0Ol 1DCF 1353 0095* 0135* 0149% 0474* 0772% 
031 & 006 1482 0837 0832 MEQEF A OO1l 1€47 1372 0176* 
D32 A 004 148C 0852 0847 HECL A OOl 1€54 1375 0170* 0638* 

Sa D4 A 004 1077 0534 0531 '-  MFCU & 003 OAODC 0026 0960 7 as 
c5 A 004 108D 0540 0537 MED & 001 1090 1343 0163* 0204*% 
D6 & 004 109F 0545 0542 MFDS & OO1 1077 1340 0079* 0116% 0164% 0503* 0525* 0581% 0633 
D69 A 004 1168 0605 0602 MFEM A 050 1AC? 1196 
D7 A 004 10AD 0549 0546 MF2L AOOl I1DEC 1359 O102* O111* 0473* G528* 0645* 0703% 07248 
D70 A 004 11CF 0636 0629 MLFN A O0Ol 1061 1337 O155* 0199% 
D8 A 004 10BF 0554 0551 . MLENS A O0O1 1043 1334 0121* 0154% 0498*% 0590% 0632* 0663 
080 A 004 103A 0518 0502 MLWR A OOl 1089 1350 03201* 0312* 
D81 A 004 1033 0516 0513 MMAL A OOl 1€18 1366 0077% 0090* 0101% Gi27* 0134 G146* 0526* C702* C773% 0804* 0813*% 0834% 
091 A 004 10EB 0566 0562 ae 0848% 
092 & 004 OFBE 0479 0476 ; MNOGP A O0Ol IDIC 1327 0364% 
ENDDEL A 004 1500 0875 0862* 0865+ 0868* 0871% MCD1 A 004 1837 1146 0288 0338 0357 1078 1:57 
ENDM A004 1847 1150 1146 MOD2 A OO1 15£2 0955 0923* 0932 
ENDS A004 185B 1158 11542 MGD3 A 0O1 15F8 0963 0924% 0933* 
ENOSTR A 004 1833 1141 10208 - MODS A OOl 1587 0942 0922* 09312 
ENDO61 A 004 166C 1005 0999 MPEN A GOL !€07 1363 0194* 0397* 04048 0411% 
END6 A 003 1630 0981 0974 MPEND A 0Ol 1LE8A 1385 0148 0184* 0463% 04668 0524* 04530* 
END61 A 004 L67F 1010 0902% 0920% MSGCAB A 001 1802 122: 0085* 0156% 0165* 0171*% C177* 0944 1007 1007% 
END66 A 004 15CB 0949 0935 0945 ; - MSGEXP A 020 1AE5 1198 1093 
ENO? A&A 004 1691 1017 O901* 0904* 1315 MSGPMF A 046 1AAS 1195 0433 
ENOTA A 002 1006 1315 0920 _ MSGRCV A 020 1872 1182 1085 
EOF A 007 18A6 1207 0177 ' MSGRES A 014 1€09 121€ 0052 0440 
EOL A 007 1BAD 1208 0171 MSGSLT-A-008 187A 1162 0978 
ESAV3 A 004 1523 0887 os79¢ MSGTEX A 030 1868 1203 1059 
EXPSTT A 004 1779 1088 1134 - MSGTEL A 025 1884 1204 1045 1045* 1062 1292 
FBKCHT A 004 1659 0998 0993 MSGTRC A 030 1834 1201 1050 
FOB & 029 1€D8 1389 0158* 0179* 0640* 1003 MSGTR1 A 025 1B4D 1202 1027 1027* 1054 129% 
FOSW A O16 1B9F 1206 0165 MSGOl A O14 152A 1179 004} 
FD2 A O17 1DFD 1360 0684 MSGO3 A 032 1938 1182 0048 
FEED A 015 109F 1344 0484 - MSGO& A 040 1960 1183 0268 
FIRST A OOL 1010 1323 1095 ‘ MSGO05 A 041 1989 1184 0383 
FOUR A 002 ICBKA 1284 1037 MSGO6 A 025 19A2 1185 0428 
FUSE A 004 1646 0991 0982 ‘ MSG12 A 035 1905 1186 0965 
FUSM A 022 LEBE 1388 0997 \ $6141 a 035 1la57T 1193 0986 
FUSTAT A 001 1CB3 1277 0084* 0991 09928 NSG142 A 042 1A81 1194 0390 
GO A 004 1C0D 1219 0237 0742 , MSG25 A 029 19EA 1189 0044* 0227* 0237% 0249% 1070 
GOOF <A OO7 19CC 1187 0065 0227 . _%& MSG26 A031 1A0A 1191 0643* 0044 0065* 0734 07428 1077 
. 
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1011 SECTICN 1--INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 1012 SECTION 1--INITIAL PRINTER OIAGNOSTIC TESTS MOD 12 
CROSS-REFERENCE c CROSS~REFERENCE 
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SYMBOL T LEN VALUE DEFAN REFERENCES SYMBOL T LEN VALUE QEFN REFERENCES 
fo% 
MSWARN A 048 1815 1199 1014 $6 A 004 OFCS 0481 0472 
MXLAT A OOl 16€2D 1369 0209% 0294% 0345¢ 03634 S7 A 004 1326 0737 0741 
MXTRA A OOL 1ODDF 1356 0078* 0128* O189% 0527* 0783* 0805* 0614* 0822% 08334 0849% : so A 004 1356 O748 0739 
NONE & 005 1Ea8 1387 1104 1130 i TABLEL A O0O1 IC12 1224 0280 
NS2 A 004 OAAB 00684 0081 / | TABLE2 A001 1C€25 1231 0327 
ONE A 002 1C86 1282 0740 0873 1107 ! TABLE3 A 001 1C€38 = 1238 0281 0328 
PRBUSY A 012 1LE6D 1379 0451 : TABLES A O01 1048 1245 0331 
PRINT C€ 001 O21A 1397 0038 0045 0049 0265 6273 0386 0388 0425 0430 0437 0448 0481 TABLES A O0Ol 1C65 1252 0332 
0570 O611 0681 O731 O752 O793 0916 0926 O941 095% 0962 0975 i TABLE6 A 001 1C80 1260 0352 
0983 O987T 0994 i000 10908 1611 105% 41060 1067 1074 %1082 1088 | TABLET A 004 1C9C 1264 1032 
1090 1101 1115 1135 THREE A 002 1C88 1283 0904 
PRNT C 9001 S018 1402 0393 0400 0407 0452 0453 0490 0492 0505 9507 0509 0558 0576 ! TLONG AO1l4 2000 1354 0755 
0591 0594 0596 0598 0617 0620 0655 0669 90588 0736 93758 0760 i TST 4 003 1503 o9s5l 0950% 0958 0967 0967* 0968 
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OBJECT CARD LISTING 


SB*LAS3LA4*TYE( 4 


RECWES<. 00) XDEFS | 


06+. TO)XTE<V/5UC 
I5_N 8aP$8=1-00C 
E04CB23( 1<xDECP 
YECST2<PRE<XNBAP 
NL4CC5_XRI*(T4=/ 
dex (veepeon lee 
UE | 1-a~L06*PS15 ¢ 
“LYXRSLV 2<GL84C 
“EDA EDA EDA EDA 
"GDA EDA EDA EDA 
ioaxkoey ocean 
“ BaTER<TAG=( 1°R 
*(COOCL#PAZ#E<B” 
SHKO#.EQ)E5a EH 


eeonese ® ee #088 


eC & 
R2IPTIIV B2TII>¢ 
05#) 1>LNO=115_N 


C2 DAEMCUS *=E6MC 


4°SN101 Li~T6*E 


1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 


OBZXT2)$NE<1AGIX 


‘18A/ SAGPLIXLSS6 


T1532 TQ<XFE(9R5Z5 


Ba>L_2e(LAsDCBiMC 


OB4CX9=~XE(SNPTT 


R6SLPBaXNLSCD1LSP 


e 5S_LIB4CC 2<PC4Sx 


NLDCCOXR2*PRO<KX 


O>LS2+.T03 fuUsUC 


MOs/ OZN 2)PvO)I 


€0A EDA EDA E+} 
BOA EDA 4*§N14C 


(9=~X9=) EDA EDA 


B>P Az {G2a"LS * 24 


o **QSZPRB=TUZIS 
CA MFAOTY"?738=85S 


F3- 
padeerecenn, @ 
"5 {$D1MCS9RXTOS- 
" g>$ 18a HFOCEL#P 


S2<XFB4CR1)TU2IX 


O=TC4AMKECSELEL 


PART NO. 
PAGE 


CL 65 THROUGH 8&0 


I1)V 03 4aPFe6c 
DE<V/SUCT13 «TOC<X 
ur ccciice Sai 
SOZGPSaPDE+$18a/ 
-*2/ BZPC5_PDE<. 
10aPSE<GTBaGC2<P 
N14CBa=.2E4CBa's 
FE<GN2DCM5>115_P 
E9*3E0={E10CW03 1 
TLE3T2) [TEC XO8aG 
14=( 6)STOs LEECI 
FSMCSOV7F1*PDORG 
“eDa EDA EDA EDA 
8=-A-MG1$36_.05! 
Sejsoiaaie bets 
7_DF-XB2.) PUWE(X 


$$0 


oe e 


OUJEN"™*B 9 - £0 
A J5 4"$N14CF9CP 
DOZGC4UCS9ZXTOa/ 


ELAN 4*$W1IV B2T 


BOF KE+/ O5UCLO;f 


PROG ID 
PAGE 


4248244 
16A 


CL 81 THROUGH 96 


HOIM 37010110065 
FE(* P.810110066 
“OM #,M10110067 
“00 $sv10110068 
184 68U10110069 
D&+< MaH10110070 


2E4 


“37 10110071 
RL#9 LH<10110072 
+9%D PH*10110073 
ve % 
TIM 3Z 10110074 
O1<M R ¥10110075 
C4U #£410110076 
“ED 7#-10110077 
=LE8 30 10110078 
C9#H $,#10110079 
LEFZ 60210110080 


AsO. 31-10210081 
A &D 1HM10110082 
cea a&Y10110083 
“gz0 "As10110086 
11>< JLU10110085 


E &D 12¢<10110086 


101-1 
16A 


eee eoeoeeoeeeeeeoe@e08°e® 0 eee e eee ee eee e8 le le 





4 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


108k SECTION 1--INITIAL PRINTER DIAGNOSTIC TESTS 


CL 1 THROUGH 16 


T#/82 &DA EDADCC 
1+/9543GT5_V OaT 
T+/2022P TOS LIMC 
T(SEWECIES*PLECS 


EN* SE Tee~DC"PHS 


EE A SS TA DO EDN A SEP 





CL 17 THROUGH 32 


P6*XNB@PRECPNOS. 
EO 'H<E<PN10C01UC 
C2<GRO#ITLIUA JZ 
UBZN 12GC2(1 5<P 


=" 7M EF | ! Cc 


MOO 12 


OBJECT CARO LISTING 


CL 33 THROUGH 48 CL 49 THROUGH 64 


LI*éME(-R29PT1LIV 
FS_XMCDCES#J 52R 
"5°X153 1 E6MCI55 | 
C2DCE53 {R= 0CC2(X 


Fz Asc RA 


” 5<GL1>LNC=115_M 
"@aXN1E5 5*X155 1 
E6)XU5=( SaPNI<X 
T&(~GE | COSOCAEDT 


so Q 





CL 65 THROUGH 80 


REC(mRZ)PTLIV 8*X 
E6MCB9+.YFDOCNS_N 


NIGCN5_PE5_V OaT 


A4*( 4OXN131) 


21310630751 


a LLL SS A SS TTS NS AS ae PLY IS AE SY ME A A SEIS SOD 


eon creme Me 


ne cere meee matinee mien eon 


PART NO. 4248244, 
PAGE 17 | 
I 


| 
| 


CL 81 THROUGH 96; 


A53H 5--10110087 
-5*U Q2*10110088 
£O'H JL*#10110089 


#,U10110090 


107752$210110091 





eeeev0aenevneneoeneeee0ee 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


1021 


ERR LOC OBJECT CODE 


OAOO 


CAOO 
OA02 
OAQ3 
OA04 
OA06 
OA0S8 
OAOA 
OAOD 


0A10 
OA11 
OA12 


OA14 
0A18 
OA19 
CALA 
OAIC 
OALE 
OA22 
0A23 
OA24 
OA26 
OA2ZA 
OA2B 
OA2c 
OA2E 
0A34 
OA38 
OA3C 
OA30 
OA3E 
0A40 
OA44 
OA4S8 
OASC 
OA4SF 
0A53 
OA54 
OAS5 
OA57 
oassB 


DATE 
EC NO. 


SECTION 2--INITIAL PRINTER DIAGNOSTIC TESTS 


ADOR STMT 
2 
3 
4 
5 
6 
7 
7 
& 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
19 
1021 OAO1L 20 
00 OAC2 el 
00 OAQ3 22 
0000 OAGCS5S 23 
0al0 OAOT 24 
0000 OA09 25 
FO0000 OAOC 26 
105000 OAOF 27 
28 
29 
30 
31 
32 
33 
01 0A10 34 
00 OA1L1 35 
0C04 Q0A13 36 
37 
37 
CO &7 O2Z1A 38 
42 0A18 39 
1F OA19 40 
18C2 OA1B 41 
10E2 OA1LD 42 
CO 87 O21A 43 
o1 OL22 44 
18 OA23 45 
18DA OA25 46 
Co 87 O21A 47 
02 OA2A 48 
34 OA2B 49 
19CE OA2D 50 
oc 06 1086 10C2 51 
3A 10 1ED2 52 
CO 87 O2Z1A 53 
01 OA3C 54 
13 OA30 55 
1BC1 OA3F 56 
3C F5 2110 57 
3A 10 1E03 58 
co 87 1138 59 
422080 OA4E 60 
CO 87 O21A 61 
06 OA53 62 
OE OA5S4 63 
1020 OA56 64 
Co 87 0222 65 
LOE2 OCASC 66 
29AUG75 OTNOVT7S 
827804 827805 


PART NO. 42482746 
PAGE 1 
MOO 12 
SOURCE STATEMENT 
* | LAST CHG :10328 75 
DECK 4 
SEQ 0 
UVWXYZ START X*AO0O® 
TREP 
EEEERAEEEREREREREREARTEERERE EEE EEEEREREEERERE EAREREREEEEE EEE EADS EE EEES 
* * 
* 5471 PRINTER KEYBOARD OIAGNOSTIC TESTS * 
* * 
* SECTION 2--INITIAL PRINTER TESTS * 
* * 
KRREGERKSEARRE EERE EES EKER K GREE SEERA EERE SE AEEKSES REGS FREAK HAVER AE TEES 
*eRS *eE* 
eee SECTIGN PREFACE #48 
*kee eae 


HERMES AKEAKEERAEARAEA AAAS EERE EAKESEAHASEREARHEAESE KARE 


oc XL2'1021° 

DC XL1*O0* 
CRTNO OC XL1°O00* 

pC XL2'OO* 

DC AL2(RTNOL) 

oc XL2*O00* 


MFCU Dc XL3*FO0000° MFCU SPUT ENTRY 
oc XL3°105000° CONSOLE SPUT ENTRY 
* 
SHEERKESEES SHERKEKEK 
* RINO] * SPACE OPERATION TEST * RTNOL * 
HREKEHEEE ee ee 
* 
* ROUTINE PREFIX 
RTNO] OC XL1*OL® ROUTINE PREFIX 
oc XL1*00* INTERVENTIGN REQUIRED 
DC AL2(RTNO2) ADORESS OF NEXT ROUTINE 
B PRINT PRINT 
oc XL1*42¢ ROUT INE 
oc IL1¢31° TITLE 
pc AL2(MSGO07)}) 
oc XL2*10E2° 
B PRINT PRINT 
DC XL1°O1* "FIRST 
Oc IL1*24* ONE SPACE 
oc AL 2(4SG08) IS TAKEN® 
B PRINT PRINT 
oc xXL1*o2° 'THEN CARRIER 
oc IL1*52°* SPACED TO 
oc AL2(MSGO9) END CF LINE® 
MVC MSGCAB-12(7) »NOPRT 
SBN MARK , MARK3 
B PRINT PRINT 
oc XL1°O1* *IF ANY 6K 
oc IL1*19° CHAR GK 
OC AL2(MSGACP) PRINTED® GK, 
VI FOB, X*F5° MOVE IN PG NUMBER GK 
SBN PRTMSG.MECM FLAG MECH ENTRY CHRT MSG GK: 
8 REPLCE REPLACE 
oC XL3°422080° BZM2~— B2U2, SLT, CABLEI(GC552) 
8 PRINT PRINT 
oc XL1*06° RESET 
ec IL1°14# THE 
oc AL2(MSGRES) HALT 
8 HALT HALT 
pc XL2*10E2° QF -E2=- 
PROG ID 102-1 
PAGE 1 


PROGRAM ID AND REVISION LEVEL 


SECTION FLAGS 


CURRENT ROUTINE NUMBER 


RESERVED 


ACDRESS OF FIRST ROUTINE 


RESERVED 


GK 


| C pate 


EC NG. 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


— 


aes 


1021 
ERR LOC 


OASD 
OA63 
OAbT 
OA6D 
OA71 
OATS 
OAT9I 
OA7D 
OA81 
OA85 
OA89 
OA8D 
0A90 
OA96 
OA9A 
OAg9B 
OASC 
OAGE 
OAA2 
OAAB 
OAAE 
OAB1 
OABS5 
OABSB 
OABC 
OACO 
OAC4 
OACB 
OaACC 
OADO 
OAD4S 
OADA 
OADE 
OAE2 
OAE6 
OAEA 
OAEE 
OAF1 
OAFT 
OAFB 
OAFF 
0803 
OBO7 
OBOA 
OBOE 
OB12 
OB15 
0819 
0810 
OB21 
0825 
0B28 
0B2C 
0830 
0B34 
0836 
OB3C 
0840 
0B44 
OB47 
0B4B 
OB4E 
0B52 
OB56 
0B59 
0ss50 
oB61 
0867 


OBJECT CODE 


oc 
31 
oc 
C2 
co 
co 
36 
co 
30 
39 
39 
F2 
oc 
co 
Ot 
19 


03 
18 
02 
02 
87 
87 
02 
ol 
19 
01 
o7 
10 
02 
87 


18E2 


co 
06 
OD 
F2 
38 
F2 
31 
30 
30 
co 
38 
3B 
38 
oD 
co 
co 
co 
3A 
38 
F2 
oc 
3¢ 
3c 
3A 
co 


2€0040 


co 
34 
F3 
30 
30 
3A 
38 
F2 
3c 
co 
co 


87 
20 
02 
81 
08 
10 
18 
1B 
19 
87 
80 
04 
06 
03 
Oi 
87 
87 
08 
08 
10 
06 
5¢€ 
Fl 
10 
87 


87 
0B 
18 
18 
19 
10 
10 
10 
5C 
87 
87 


1006 


oc 
3A 
38 
F2 
39 
F2 
3A 
39 
F2 
3A 
30 
OE 
co 


01 
18 
18 
10 
10 
10 
04 
08 
10 
02 
18 
ol 
20 


20EE 
LF2F 
1F36 
OO1E 
OBOE 
1109 
1F43 
OATS 
20EA 
20ca 
20E9 
12 

1acCc 
O214 


OBAO 
1-36 
1F36 
35 

20EA 
2€ 

LF2F 
20E8 
20EA 
1476 
20E7 
20EA 
20E8 
20EA 
0A90 
OBOE 
OAA2 
20EE 
2GEA 
19 

1086 
2089 
2110 
1€03 
1138 


0216 
16FC 
80 

20E8 
20EA 
20EE 
20EA 
OE 

2096 
17F5 
0222 


20E3 
20EC 
20&8 
51 

2uE8 
04 

1ED2 
20€8 
04 

1ED2 
20E8 
20E3 
08640 


29AUG75 


827804 


1°33 


1-39 


1F36 


1F3A 
1F30 


20EE 


1009 


1EF9 


LED6 


SECTION 2--INITIAL PRINTER OIAGNOSTIC TESTS 


MOD 12 


ADDR STMT SOURCE STATEMENT 


OA9A 
OA9B 
OAg0 


0609 


0835 


OTNOVTS 
827805 


67 
68 
69 
70 
7 
72 
73 
14 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 


REP555 


REP35 


REP15 


REP25 


ENDOS 
PRINTL 


PRINT2 


PRINTS 


PRINTS 


PRINTS 


MVC 
LI0 
MVC 
LA 
B 

B 

A 
BNZ 
SNS 
TBF 
TBF 
JT 
MVC 


oc 
ec 
DC 


AZ 
cLC 
JE 
TBN 
JT 
L100 
SNS 
SNS 


SBF 
SBF 
SBF 
CLC 
BNE 


SBN 
TBN 
JT 

MVC 
MVI 
MMVI 
SBN 


oc 


$T 

$10 
SNS 
SNS 
SBN 
TBN 
JT 

Mvi 


oC 

MVC 
SBN 
TBN 


TBF 
JT 
SBN 
TBF 
JT 
S3N 
SNS 
ALC 
BNOL 


STSHDB(4) ySTATSP 
SPACE sX*18° 
COUNT (3) »ZONEL 
30,XR2 

PRINTL 

DEL100 

HEXFF »XR2 
REPS55 

STATUS ¢X*198 
STATUS »X*O1? 
STATUS-1,X'07* 
REPS 
MVE( 3) sCOUNT 
PRINT 

XL1*01° 
IL1¢25¢ 
AL2(MSGSPC) 
MSGNON 
COUNT( 3) 9F1 (1) 
COUNT (3) 5 F126 
REP25 

STATUS »X*08° 
REP25 

SPACE sX"18! 
STATUS—29X"18* 
STATUS» X*19° 
MOD1 
STATUS~3,X*80* 
STATUS 1 X"04! 
STATUS-2,X'06! 
STATS (4) 9 STSHOB 
REP35 

PRINTL 

REPS 
STSHDB,X*"O8! 
STATUS +X" 08° 
ENDOS 
MSGCAB~12(7), EOL 
MEQL COs 
FOByX*F 1° 
PRTMSG yMECM 
REPLCE 
XL3*2C0040° 
LINK 
ENDPRT#32ARR 
X80" »PRNT 
STATUS—29X"18* 
STATUS »X*198 
STSHDB +X*10° 
STATUS ¢X*108 
PRINT2 

MBUSYyC OHS 
BEC 

HALT 

XL2*1006° 
WORK3 (2) sCDGS 
STSHOB-29X*18¢ 
STATUS~25X"188 
PRINTS 
STATUS-2,X"10* 
PRINTS 

MARK »MARK5S 
STATUS~25X"08* 
PRINTS 

MARK »MARK6 
STATUS—29X*1B° 
WORK3 (2) ONE 
PRINT6 


- 


PART NO 4248246 
PAGE 1A 


SET XPTD STATUS 
LOAD BUFFER FOR A 
SET UF FOR DELAY 


SPACE 


WAIT 
THREE 
SECONDS 
SAVE STATUS 
CHECK FOR 
NO MALFUNCTIONS 


PRINT 
NUMBER 
OF SPACE 
CGP MANOS 
ISSUED 


SPACE . 
126 
POSITIONS 
CHECK FOR END OF LINE 


SET EOF Sw OFF 


CHECK FOR 
CORRECT STATUS 


CONTINUE SPACING 
CHECK 

FOR 

EOL 


MOVE IN PG NUMBER GK 
FLAG MECH ENTRY CHRT MSG GK 
REPLACE 

B2N2, B2R2_ B2S2,CABLE(G6C553) 
GO TO NEXT ROUTINE 


SET BUSY ON . 
CHECK CUSY ON 


PRINT RETRY MESSAGE 


SET FEECBACK SWITCH RECEIVED FLAG 


SET SAMPLED FLAGON 


PROG 10 102-1 
PAGE 1A 








IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248246 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 4248246 
PAGE 2 iy PAGE 2A 
1022 SECTION 2--INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 1021 SECTION 2--INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
OB6B 39 06 1LED2 135 TBF MARK«X*O6* OC2A 1026 0c28 202 oc AL2(MSGRES) HALT 
OB6F CO 10 OBAD 136 BT MSGNON oC2C CO 87 0222 203 B HALT HALT 
0873 38 N& 1ED2 137 TBN MARK sMARKS 0C30 10E3 OC31L 204 pc XL2*10E3° GF ~E3- 
OB77 F2 90 OF 138 JF PRINTS 0C32 CO 87 148A 205 8 RETURN RETURN 
OBTA 3C SC IFAC 139 MVI = =-MFDS,C°#® 0C36 32 18 1F2F 206 LIQ SPACE,PRNT CARRIER 
OB7E 38 06 1LED2 140 SBF MARKeX*06* OC3A C2 61 0046 207 LA T5eXR1 POSITION 
OB82 CO 87 1138 141 8 REPLCE REPLACE OC3E CO 87 15SEC 208 F2 & PRINTS CARRIER 
0886 080000 OBss 142 oc XL3*° 0800005 B2R2 0C42 36 O1 1F43 209 A HEXFF,XR1 T5 SPACES 
0889 38 66 LED2 143 PRINTS SBF MARK,X*06? 0046 CO OL OC3E 210 BNZ F2 
OB8D 3C SC iFC5S 144 MVI MFO,Ceee OC4A CO 87 148A 211 6 RETURN RETURN CARRIER 
0891 CO 87 1138 145 B REPLCE REPLACE OC4E CO 87 0216 212 8 LINK GO TO NEXT ROUTINE 
0895 200000 OB9T 146 pc XL3* 2000008 B2N2 0C52 CO 87 O2Z1A 212 RET3 8B PRINT PRINT 
OB98 3B 06 LED2 147 PRINT3 SBF MARK,X*O6* 0056 Cl 0CS56 214 DC XL2ECLE '1lF WO 
OB9C CO 87 1659 148 8 ADONEL OC5T 21 ocs? 215 OC EL1t33¢ RETURN 
OBAO OC 03 20EE 1F33 149 MSGNON MVC STSHDB(4),STATSP 0cs5s8 1982 oc59 216 pc AL2(MSGLE? OR NO INDEX* 
OBA6 CO BT OZ1A 150 B PRINT PRINT a. OC5A 1LOOC OC5B 217 oc XL2*100C® 
OBAA Cl OBRA 153 OC XL1°CLé *{F NO OC5C 3A 10 LED2 218 SBN MARK,MARK3 
OBAB 2C O3AB 152 oc IL1*44* SPACE TAKEN OR OC60 3A 01 1LED3 219 SBN PRTMSG »RDSHM FLAG REED SW MSG GK 
OBAC 1844 OBAD 153 oc AL2(MSG10) CHAR ARE PRINTED® O0C64 CO 87 113B 220 B REPLCE REPLACE 
OBAE 1008 OBAF 154 oC XL2*106A8 OC68 480600 OC6A 22k DC XL3*4800008 B2M2_ B2R2 
OBEO 3C 80 LIES 155 MVI AMPA oX* BGS SEY FOR GC553 PRINT AND CHG GK OC68 3A 10 LED2 222 San MARK »HARK3 
OBB 3A 02 LEDS 156 SBN PRTMSG,ROSWH FLAG REED SW AMSG GK OC6F OC 12 1092 IDEC 223 MYC MSGCABE 19}, MAG 
OBES 3A 10 LED? 157 SBN MARK, MARK OC7TS OC O1 L9AC 1993 224 MVC MSG15-6(21,MSG144+2 REPLACE *"NO# WITH * EFS GK 
opBc 3C F5 2110 158 MVE FOB,X* FSS MOVE IN PG NUMBER GK OCTB 30 F2 2110 225 MVI FOByX*F2¢ MOVE IN PG NUMBER GK 
OBCO 3A 10 1&D3 159 SBN PRIMSG «MECM FLAG FECH ENTRY CHRYT MSG GK OCTE CO 87 OZ1A 226 8 PRINT PRINT GK 
OBC4 OC 10 1090 214E 160 MVC MSGCAB<2¢(171,FDBRSW MOVE IN PROPER MSG GK OCBS RL OC83 227 oc XLLOBLE ‘IF NO CARRIER GK 
CBCA CO 87 1138 16} B REPLCE REPLACE B2N2, B2MZ2, B2U2, GK OCB 221 OC84 228 Oc ILL¢zat RETURN AND GK 
OBCE €220C60 OBDO 162 oc XLBtESZOCOF CABLE(GC552}— (GC553}— B2L2, SLT GK OC8S 1982 OC86 229 oC AL2UKSG15) IF INDEX® GK 
OBD1 CO 87 O21A 163 B PRINT PRINT OC8? CO 84 G21A 230 6 PRINT PRINT GK 
oBpos OL OBDS 164 DC XLLEO1® ‘LF ONLY oces si COBB 231 OC XLifBLt *CHK MECH GK 
OBDG 1A OBD6 165 oc IL1*26¢ ONE SPACE ocswe 1D ocac 232 DC Itl-29* ENTRY CHRT GK 
bot Aa Sete, 5 OBO? 1928 OBDS 166 pc ALZ(MSGLL} IS TAKEN? = ocbO 27116 OCBE 233 oc AL2¢FDB) PG OC1~A2°* GK 
OBD9 3A 10 LED2 167 SBN MARK, MARKZ OCBF OC O1 ISAC 1996 234 MVC = MSG15~-6 £2) «MSG1445 REPLACE ‘lft WITH "NOE GK 
OBDD OC OF ID8F 1DD2 168 MVC MSGCAB-3(16},FOSW OCSS OC O01 1996 iF2F 235 MVC SG144+5¢2),SPACE REPLACE *if0* WITH & ° GK 
OBE3 3C F7 2110 169 MVI FOB, X*FTS MOVE IN PG NUMBER GK? Oc9B 3C F3 211D 236 MVI FOB,X*F3* MOVE IN PG NUMBER GK 
OBE7 3A 10 1203 170 SBN PRTIMSGsMECM FLAG MECH ENTRY CHRT MSG GK, OC9F CO 87 O214 237 8 PRINT PRINT GK 
OBEB CO 87 1138 172 B REPLCE REPLACE a OCa3 4) OCA3 238 oc XL2°B81¢ fle CARRIER GK 
OBEF 040000 GBF1 172 DC XL3*040000° B2S2 PALS OCAS 21 OCA4 239 pc IL1L°33¢ RETURN AND GK 
OBF2 3C 5C 1FCS5 173 MVI MED, Ceet OCAS 1982 OCA6 240 DC AL2(MSG15} NO INDEX? GK 
CBF6 3C SC LFAC 174 MVE MFDS ,C tue be oe OCAT CO 87 O2Z1A 241 Bg PRINT PRINT GK 
OBFA CO 87 12FA 175 8 STATCK PRINT STATUS ks CCAB 81 OCAB 242 oc XL1'61° 'CHK MECH GK 
OBFE CO 87 0222 176 8 HALT OCAC 1D OCAC 243 DC ILL'29¢ ENTRY CHRT GK 
OCO2 100A ocOo3 177 oc XL2°100A° baie OCAD 211D OCAE 24% DC AL2CFDB) PG CO1-A3* GK 

178 # Ty GCAF OC G1 1996 19aC 245 MVC MSG1445(2),MSGI15-6 REPLACE * * WITH "NOE GK 

179 *h#eeGe%4% Oe oe he oH OCBS CO 87 O21A 246 6 PRINT PRINT 

180 * RTNOZ * CARRIER RETURN TEST * RING2 *) Ocee O01 0CB9 247 c XLLEOL® *OTHERWISE® 

181 *#44eeee8 seneceeee! ( OCBA 09 OCBA 248 DC IL1*09¢ 

182 # | OCBB 1A73 OCcBC 249 DC AL2(MSG20} 

183 * ROUTINE PREFIX le: OCBD 3C FT 2110 25C MVI FDBsXtFT7e MOVE IN PG NUMBER GK 
9C0& 02 O0CO4 184 RTNOZ2 DC XL1L°02¢ ROUTINE PREFIX wo OCC1l 3A 10 1EN3 251 SBN  PRTMSG,MECM FLAG MECH ENTRY CHRT MSG GK 
0co5 00 OCcOos 185 oc XLLEOGE NO INTERVENTION REQUIRED OCCS CC 87 113B 252 8 REPLCE REPLACE 
OCO06 OCLs OCO7? 186 oc AL2(RTNO3) AODRESS OF NEXT ROUTINE hae OcCS 022080 occe 253 pc XL3°022080° B2U2, CABLE(GC552)+ SLT 

187 VA. O€CC CO BT 12FA 254 8 STATCK PRINT ERROR STATUS 

187 OCDO CO 87 0222 255 8 HALT 
Oocos OC 03 20E€E 1F33 188 MVC STSHDB(4),STATSP |g»  9CD4 100C OCDS 256 oc XL2*100C* 

OCOE CO 87 O214 189 B PRINT PRINT &3 257 * 
OC1l2 42 0c1i2 190 boc XL1'428 ROUTINE | 258 8EXERSERES CHESESESE 
OC13 20 oci3 191 DC FLL*32¢ TITLE | 259 * RTNOZ & LOWER CASE PRINT TEST * RTNOZ * 
OCcis 1968 OcisS 192 oc AL2(MS613} & 260 £4 64S eR% SSEREKEHE 
0C16 1063 0C17? 193 oc x12" 10E3° | 261 * 
OC18 3C F7 211D 194 MVI  -FDB,X*F7< MOVE IN PG NUMBER GK) oe 262 ¢ RCUTINE PREFIX 
OCLC CO 87 O2Z1A 195 8 PRINT PRINT cx, © OCD6 03 OCD6 263 RTNOZ OC XL1*03¢ ROUTINE PREFIX 
9C20 06 0C20 196 oc XLL* 068 "IF RETURN FAILURE GK) OCO7 00 OCD? 264 pc XL1*008 NO INTERVENTION REQUIRED 
OC21 2F oc21 197 oc ILL*47* CHK MECH ENTRY CHRT GK) es, ocDs 0£30 OCD9 265 oc ALZ(RTNO4) ADDRESS OF NEXT ROUTINE 
0C22 2110 0c23 «198 Dc AL2(FDB) PG 001-A7* GK: €> 266 
OC24 CO 87 0214 199 B PRINT PRINT | 266 
9C28 06 oc28 200 oc XL1*06¢ RESET bP coats OCDA OC 04 19C8 1025 267 MVC MSG161(5),LWR PUT "LOWER' INTO PRINT MESSAGE 
0C29 OF 0c29 201 oC IL1*14¢ THE C: NCEO CO 87 021A 268 B PRINT PRINT 
DATE 29AUGTS OTNOVTS PROG ID ioe pate 29AUGT5 O7NOV7S PROG ID 102-1 
EC NOw 827804 827805 PAGE 2 | EC NO. 827804 827805 PAGE 2A 
| 
| 
| 


©e©eeeeee 802888 eeeeeeeeeeeeeeeeee50unre 











' 
{ 
| 
t 
a 
Ve os 
| 
| 
IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248246! 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248246 
PAGE 3 | = PAGE 3A 
1021 SECTION 2--INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 : 1021 SECTION 2-—-INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
{ 
OCES 41 OCE4 269 oc XL241° "LOWER bi ODAF OD 02 20EA 20EE 337 CLC STATUS(3),STSHDB ChECK STATUS 
OCE5 52 OCE5 270 oc IL1¢s2! CASE | O0BS F2 81 08 338 JE G1 
OCE6 1A15 OCE7? 271 oc AL2(MSGi6) PRINT \ ODBS 3C 5C 2062 339 MVI MXLAT,C*? 
OCES8 10E4 OCE9 272 oc XL2*10E4* TEST® | ODBC CO 87 1138 340 B REPLCE REPLACE 
OCEA CO 87 O21A 273 B PRINT RESET i 00CO 480000 opc2 341 DC XL3*480000* B2M2_ 82R2 
OCEE 06 OCEE 274 oc XL1*C6! THE i O0C3 CO 87 15EC 342 Gl B PRINTS PRINT CHARACTER 
OCEF OE OCEF 275 oc ILi"14° HALT ODC7 OC 02 20EA 1F29 343 MVC STATUS(3}¢ZERO CLEAR 
OCFO 1020 OCFlL 276 DC AL2(MSGRES) ODCD OC 02 20EE 1F29 344 MYC STSHDB(3)».ZERO STATUS 
OCF2 CO 87 0222 | 277 B HALT HALT ODD3 2C 00 20EB 00 345 MVC = STSHOB-3(1) 204 9XR2) 
OCF6 10E4 OCF? 278 pC XL2*10E4* OF -E4=- ODD8 OD 00 20E7 20E8 346 CLO STATUS-3(1)-STSHD8-3 CHECK 
OCFS CO 87 148A 279 8 RETURN RETURN CARRIER i OCODE CO 81 CD04 347 BE 62 TILT-ROTATE CODE 
OCFC C2 01 1DED 280 LA TBLi,XR1i SET LOWER CASE TABLE ‘ CDE2 3C 38 1381 348 MVI LEN1,X*38° 
Oop00 C2 02 1&46 281 LA TBLE3—1-XR2 SET TILT ROTATE TABLE | ODE6 CO B87 OZ1A 349 GGG B PRINT PRINT 
OD04 OC 03 20EE 1F03 282 G2 MVC STSHDB(4),STRTO7 SET XPTO STATUS 1 ODEA C2 ODEA 350 pc XL1°C2* ‘ONLY 
ODOA 34 O02 iF25 283 ST SAV2ZeXR2 : ‘ ODEB 31 ODES 351 DC 1L1°49° 1 CHAR 
ODOE C2 O02 1LEBF 284 LA TABLEAs XR2 LOWER SHIFT REQUIRED TABLE od ODEC 1Aa6A ODED 352 OC AL2(SG619) PRINTED® 
0012 BD FF 00 285 COMP1 CLI O(4XR2) QX* FF? CHECK i ODZE 1002 ODEF 353 pc xXL2*1002¢ 
0015 F2 81 15 286 JE COMP2 ODFO 3A 10 1£02 354 SBN MARK gMARK3 
0D1i8 9D 00 CO 00 287 CLO = 00 1a XR2)eO0eXR1L) : ODF4 OC OD 1D8D iD3D 355 MVC MSGCAB-5(14),RDSWH GK 
O01C F2 O1 07 288 JNE COMP4 OOFA CO 87 1138 356 B REPLCE REPLCE 
OD1F 34 80 20EC 289 SBN STSHD8-29X*80* ODFE 240040 OE00 357 bc X¥L3* 240040! A-B2N2-, B2S2,_, CABLE(GC553) GK 
0023 F2 87 08 290 J COMP3 OE01 OC 09 1089 1047 358 MVC MSGCAB-9(10),SHIFT 
0D26 E2 02 O1 291 COMPS LA 1(@XR22,XR2 OEO7 £O 87 O21A 359 B PRINT PRINT 
0029 CO 87 0D12 292 B COMP} O£08 02 CEOB 360 pc XL1i*o2? ‘OTHERWISE ® 
OD2D 38 80 20EC 293 COMP2 SBF STSHDB-29X*80! OEOC 09 OF0C 362 DC IL1°09* 
0031 35 02 1F25 294 COMPS L SAV2 9XR2 OEOD 1A73 OEOE 362 oc AL2(MSG20) 
0035 02 01 O21 295 LA 1¢,XR1) ,XR1 INCREMENT OEOF 3A 10 iE€D2 363 SBN MARK, MARK3 
0D38 £2 02 O1 296 LA 1(,XR2)_XR2 COUNTERS O€13 3C F4& 211D 364 MVI FDB,X*F4* MCVE IN PG NUMBER GK 
0036 BD FF 00 297 CLI =O aXR2) eX* FFE CHECK FOR CELT 3A 10 1ED3 365 SBN PRTMSG,»MECM FLAG MECH ENTRY CHRT MSG GK 
OD3E CO 01 ODADO 298 BNE N73 END OF TABLE 0O£18 CO 87 1138 366 B REPLCE REPLACE 
0042 OC 04 1A2C 1025 299 MVC 8 =—- MSGCK P15) e LWR - OE1LF 4A2080 OE21 367 NC XL3*4A2080° B2M2,5 B2U2, B2R2,CABLE(GC552),SLT GK 
me 0048 CO 87 021A 300 8 PRINT PRINT w O£22 CO 87 12FA 368 8 STATCK PRINT STATUS 
CD4c 41 op4ce 301 oc xL1'41°* CHECK OE26 CO 87 0222 369 B HALT Vat ete g te fe 
0040 24 0040 302 oc IL1* 36° PRINTOUT ee CE2ZA 1002 O£2B 370 oc XL2*°1002§ 
OD4E 1439 OD4F 303 DC AL2(MSGCKP413) c OFzC CO 87 0D04 371 B 62 
0050 10F1 0D51 304 oc XL2*10F1° 372 * 
0052 CO 87 O21A 305 8 PRINT 373 **e444%4¢ SOEEKEKEE 
0D56 O01 0056 306 oc XL1¢*o1* tH) 374 * RTNOS * UPPER CASE PRINT TEST * RTNOG * 
0057 OC 0D57 307 oc ILi*i2* 375 Fe4eee4e% SAREREEE 
0D58 180C 0059 308 oc AL2(MSG30) 376 * 
ODSA CO 87 021A 309 B PRINT © 377 * ROUTINE PREFIX 
ODSE 02 OD5E 310 . oc XL1*02¢ 0E30 04 0£30 378 RTNO4S DC XL1°0O4# RGUTINE NUMBER 
ODSF 1A OD5F 311 oc IL1°26° iy 0€31 00 0£31 379 oc XLi*00* NO INTERVENTION REQUIRED 
OD60 1BAE OD61 312 oC AL2(MSGTPB) C O€32 OFCS 0E33 38 Dc AL2(RTNOS) ADDRESS OF NEXT ROUTINE 
0D62 3A 10 1ED2 313 SBN MARK,MARK3 381 
0066 CO 87 1138 314 B REPLCE REPLACE : 381 
OD6A 440000 ob6C 315 oc XL3*440000° B2M2_ B2S? C 0E34 3A 10 1ED2 382 SBN MARK, MARKS 
0060 CO 87 O21A 316 8 PRINT PRINT OE38 OC 04 19C8 102A 383 MVC =MSG161(5),UPR MESSAGES 
0071 01 0071 317 oc XL1*O1* CTHERWISE OEZE CO 87 O21A 384 B PRINT PRINT 
o072 09 o072 318 oC IL1*09° C. 0&42 41 O£42 385 oc XL1*42¢ "UPPER 
OD73 1A73 0074 319 oc AL2(4SG20) O£43 52 0E43 386 oC IL1*82* CASE 
OD75 3A 10 1ED2 320 SBN = MARK »MARK3 OE44 1A15 OE45 387 BC AL2(MSG16) PRINT 
0079 OC 03 1083 105E 321 MVC MSGCAB~-15(4),TOR C; OE&6 10E5 OE47 388 oc XL2*° 105° TEST? 
; OO7F 3C F5 2110 322 MMVI FD8,X*FS5* HOVE IN PG NUMBER GK OE48 CO 87 021A 389 B PRINT PRINT 
ocs3 3A 10 1E€03 323 SBN PRTMSG -MECM FLAG MECH ENTRY MSG GK a CE4C 02 OE4C 390 cc XL2L°028 *ASTERISK 
0087 CO 87 1138 324 8 REPLCE REPLACE {. GE4D 30 O£4D 391 oc 1L1'48¢ PRINTED WERE 
opsB C22080 OD8D 325 oc XL3*C22080° OF4E 1LAAZ OE4F 392 DC AL2(SG21) UC DOESN'T EXIST® 
CO8E CO 87 O21A 326 B PRINT ls OESO CO 87 O21A 393 8 PRINT PRINT 
0792 06 0092 327 oc XL1°06* (sO ES O1 CE54 394 pc XLitol? ‘IF 
OD93 OF 0093 328 oc IL1*°14¢ | OE55 13 0E55 395 pc TLitige CONTINUOUS 
0094 1020 0095 329 oc AL2(MSGRES) ar OE56 1ABE OEST 396 oc AL2(MSG22) INDEX®* 
OD96 CO 87 0222 330 8 HALT ro Ns, O£58 CO 87 1138 397 B REPLCE REPLACE 
OD9A 10F1 0098 331 oc XL2*10F1° OE5C 400000 OESE 398 oc XL3°400000° A~-B2N2 
opsc CO 87 0216 332 B LINK F OESF CO 87 O21A 399 8 PRINT RESET 
ODAO 71 18 00 333 073 LIO Of ¢XR1),PRNT LOAD BUFFER ae 0E63 06 0£E63 400 oC KL1°06* THE 
ODA3 CO 87 1805 334 6 SENSOR SAVE STATUS : OE64 OE OE64 401. oc IL1*14° HALT 
ODA7 3B 06 20E8 335 SBF STATUS-2+X*06* SET LONG FN OFF Pag. OE65 1D20 OE66 402 oc AL2(MSGRES) 
ODAB 36 04 20EA 336 SBF STATUS eX*04* SET EOF SW GFF €: OE67 OC O1 12E7 1F4l 403 MVC END6 14312) ,STATCA 
| 
DATE 29AUG75 OTNOV75 PROG ID 102-1. © pate 29AUGT75 O7NOVTS PROG 10 102-1 
EC NO. 8278604 827605 PAGE 3 EC NO. 827804 827805 PAGE 3A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


1021 
ERR LOC 


OE6D 
OE71 
OE73 
OE77 
OE7B 
OETF 
O£E85 
OE88 
OE8B 
OESE 
OE92 
OE98 
OESC 
OE9D 
OEYE 
QEAO 
OEA2 
OEAG 
OEAT 
OEAS 
OEAA 
OEAE 
OEBS 
OEBS 
OEBB 


om 


GcoF 
OECO 
OEC1 
OEC3 
OEC7 
OEC9 
_ OECD 
0EDO 
OED4 
oeDs 
OEOC 
OEEO 
OEES6 
OEE9 
QEED 
OEFO 
OEF4 
OEFS 
OEFB 
OEFF 
OFG3 
OFO6 
OFOA 
OF10 
OF 16 
OF18B 
Or2t 
OF25 
' OF 29 
OF2D 
OF2ZE 
OF2F 
OF31 
0F33 
OF37 
OF 3B 
OF3E 
OF44 
OF48 
OF4C 
OF4D 
OF4E 
0750 


DATE 
EC NO. 


SECTION 2--INITIAL PRINTER DIAGNOSTIC TESTS 


OBJECT CODE 


co 87 
10E5 
CO 87 
C2 01 
C2 02 
oC 03 
02 01 
E2 02 
BD FF 
co Ol 
OC 04 
Co 87 
41 

24 
1A39 
10F2 
CO 87 
02 

oc 
180C 
3A lu LED2 
OC 03 1083 
cO 87 11368 
C22080 

CO 87 021A 
06 

O£ 
1020 
CO 87 
10F2 
co 87 
71 18 
CO 87 
3B 06 
38 04 
3A 80 
OD 02 
F2 81 
38 Ol 
F2 90 
3c SC 
CO 87 
040000 
3C 5C 2062 
CO 87 1138 
480000 
CO 87 
oC 02 
oc 02 
2C 00 
OD 00 
co 81 
3C 38 
Co 87 
C2 

-10 
1AD3 
1003 
3é 10 1E02 
CO a7 113B 
480000 

oC OD 1D8D 
3A 10 1£D2 
CO 87 O21A 
02 

09 

1A73 

3C F4 2110 


0222 


148A 
1ELA 
1E73 
20EE 
01 

01 

oc 

oecD 
1A2C 
O21A 


LFO7 


102A 


O21A 


1D05€ 


0222 


OF90 
00 

1805 
20E8 
20EAa 
20E8 
20EA 
1D 

20EA 
o8 

2040 
1138 


20EE 


15EC 
20EA 
20EE 
20EB8 
20E8 
OE TF 
1381 
021A 


1F29 
1F29 
00 

20E7 


1030 


OTNOV7 
827805 


29AUGT75 
827804 


MOD 12 


ADDR STMT SOURCE STATEMENT 


OET72 


OESC 
OE9SD 
OESF 
OEAl 


OEA6 


OEAT 
OEA9 


OEBA 
OEBF 
OECO 
GEC? 


OECs8 


OEFA 


OFO5 


OF 2D 
OF 2E 
OF30 
OF 32 


OF 30 


OF 4C 
OF 4D 
OF 4F 


5 


404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 


Hl 


432 . 


433 
434 
435 
436 
437 
438 
439 
440 


441 


442 
443 
44% 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 


074 


H3 


H2 


TYPBL 


B 
DC 
B 
LA 
LA 
MvC 
LA 
LA 
CLI 
BNE 


cic 


SBN 


“VI 


HALT 

XL2*1OE5* 
RETURN 
TBL2—XR1 
TBLES—-1 4XR2 
STSHDB(4),STRTCS8 
1(eXR1) oxXR1 
1¢,XR2) XR2 

Ol eXR2) eX" FFE 
O74 
MSGCKP(5),UPR 
PRINT 

XL1°41 
IL1°36° 
AL2{(MSGCKP+13) 
XL2"°*10F2¢ 
PRINT 

XL1°02¢ 
IL1*12¢ 
AL2(4SG30} 
MARK MARKS 
MSGCAB-15(4) e TOR 
REPLCE 
xL3*C22080° 
PRIKT 

XL12°O6* 
IL1°14¢ 
AL2(MSGRES) 
HALT 

XL2*10F2* 

H5 

O(+XR1) ePRNT 
SENSOR 
STATUS~2 .X*06' 
STATUS 2 X*04* 
STSHDB-3,X*80°* 
STATUS(3) ¢STSHOB 
H2 

STATUS, X*01° 
H3 

MMAL,C* ## 
REPLCE 
XL3*04000G* 
MXLAT,C ee? 
REPLCE 
XL3*480000° 


- PRINTS 


STATUS (3),ZERO 
STSHDBi 3), ZERO 
STSHDB-3(1) 90 ¢XR2)- 
STSHDB- 3(1) ,STATUS~3 
Hl 

LEN1,X* 38° 

PRINT 

XL1°C2° 

IL1*29¢ 
AL2(MSG23) 
XL2*1003° 
MARK » MARK3 
REPLCE 

hi 3"480000° 
MSGCAB-5(14) ,ROSW 
MARK »MARK3 

PRINT 

XL1*02* 

IL1°09* 
AL2(MSG20} 
FDB»X'F4! 


PART 
PAGE 


NO. 


HALT 
OF -E4- 

RETURN CARRIER 

SET UPPER CASE TABLE 
SET TILT ROTATE TABLE 


INCREMENT 
COUNTERS 

CHECK FOR 
END OF LIST 


PRINT 
CHECK 
PRINTOUT 


REPLACE 


LOAD BUFFER 
SAVE STATUS 
SET LGNG FN OFF 
SET cOF SW GFF 


CHECK FOR 
CORRECT STATUS 

CHECK FOR 
MALFUNCTION 


REPLACE 
A-B2S2 


REPLACE 

B2M2~_ B2R2 
PRINT CHARACTER 
CLEAR 

STATUS 


CHECK TILT 
ROTATE CODE 


PRINT 
‘le 
TYPEBALL 
NOT IN UPPER CASE* 


REPLACE 


B2M2,_ B2R2 


PRINT 


*OTHERWISE® 


MOVE IN PG NUMBER 


PROG ID 
PAGE 


4248246 
4 


GK 


GK 


102=1: 


4 


i 
| 





«TBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248246 
PAGE “A 
} 
1021 SECTION 2--INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMEAT 
1 
OF54 3A 10 1ED3 472 SBN PRTMSG_»MECM FLAG MECH ENTRY CHRT MSG GK 
OF58 CO 87 1138 473 B REPLCE REPLACE 
OF5C 240040 OF5E 474 DC —-_- XL3¥ 2400408 B2N2, B2S2, CABLE(GC553) 
OF5F CO 87 12FA 415 B STATCK PRINT STATUS 
OF63 CO 87 0222 476 B HALT 
OF67 1003 OF68 477 OC XL2*1003° 
OF69 CO B87 OETF 478 8B H1 
OF6D C2 02 1EBA 479 H41 LAs TABLE94#1,XR2 
OF71 OC 03 20EE 1F03 480 H4 MYC - STSHDB(4) ySTRTO7 SET XPTD STATUS 
OF77 Bl 18 60 481 LIO 0€,XR2)_PRNT LOAD PRINT BUFFER 
OFTA CO 87 148A 482 B RETURN RETURN CARRIER 
OFTE CO 87 15EC 483 8 PRINTS PRINT 
aad OF82 BD FF OO 484 CLI Ol» XR2) eX" FFP CHECK FOR END 
A OF85 CO B1 0216 485 BE LINK IF AT END,GO TO NEXT ROUTINE 
OF89 E2 02 01 486 LA 1(9XR2) oXR2 INCREMENT COUNTER 
< OF8C CO 87 OFT71 487 B H4 
| OF90 CO 87 021A 488 HS B PRINT PRINT 
| OF94 41 GF94 489 DC = XLA* 41° °5 RETURN 
i. OF95 25 0F95 490 DC IL1°37° COMMANDS 
= OF96 1C7B OFST 491 DC AL2(MSGXTM) ISSUED® 
OF98 10E8 OF99 492 DC =-XL2°10E8* 
bes OF9A 3A 10 1€D2 493 SBN MARK, MARK3 
Ps OFSE OC 12 1092 1DEC 494 MVC —- MSGCAB(.19) » MAG 
| OFA4 CO 87 021A 495 og PRINT PRINT 
i».  OFAB O1 | OFAB 496 DoS sXLL*OL® IF CARRIER 
'C°  oFas 26 OFAS 497 oc 111°38* DOES NOT 
OFAA 1991 OFAB 498 DC AL2(MSG14) RETURN® 
|. OFAC CO 87 1138 499 8 REPLCE REPLACE 
{ss OF BO 020080 OFB2 500 DC —- XL3*020080° B2U2, CABLE(GCS52) 
OFB3 CO 87 021A 501 B PRINT PRINT 
. OFBT 06 OFB7 502 oc XL1*06* *RESET 
(> OFBe OE OFBB 503 oC ILit14ee THE 
OFB9 1020 OFBA 504 DC  AL2(MSGRES? HaLT® 
_ OFBB CO 87 0222 505 B HALT HALT 
€  oFBE 1cE8 OFCO 506 DC -—_—« XL2* 1088 OF -E8- 
OFC1 CO 87 OFED 507 8 H41 GO RETURN CARRIER 
7 S08 ¢ 
oS 509 *taeeeeee #4448SSES 
| 510 * RTNOS END CF FORMS TEST * RTNOS * 
ty tae Si] *44444446 $444604646¢ 
| 512 * 
! 513 * ROUTINE PREFIX 
p~‘OFCS 05 OFCS 514 RTNOS OC  XL1°05* ROUTINE NUMBER 
—&>  oFce 80 OFC6 515 oc XL1°80* INTERVENTION REQUIRED 
OFC? 1071 OFC8 516 DC —_ AL2(RTNO6) ADDRESS OF NEXT ROUTINE 
G 517 
OFC9 OC 06 LAFO 1AFB 518 MVC = MSG24-1(7)»FOR 
.  OFCE CO 87 O21A 519 8 PRINT PRINT 
© oop 41 OFD3 520 oC —- XL1*418 ‘FLIP END 
OFD4 10 OFD4 521 oC IL1*29° OF FORMS 
~~ OFDS 1AFO OFD6 522 DC AL2(MSG24-1) SWITCH ON® 
(2° OFD7 210E9 OFO8 523 oC XL2*°10€9* 
OFD9 CO 87 021A 524 8 PRINT PRINT 
.  OFDD 06 OFOD 525 DC —_- XL1* 068 "RESET 
C? OFDE OF OFDE 526 DC IL1*14¢ THE 
OFDF 1020 OFEO 527 DC AL2(MSGRES) HALT? 
,.  OFEL CO 87 0222 528 B HALT HALT 
{ OFES 10€9 OFE6 529 DC XL2°10€9° OF ~E9- 
OFE? OC 03 20EE 1F0B 530 MVC - STSHDB(4) » STATOS SET XPTD STATUS 
~  OFED CO 87 1805 531 B SENSOR SAVE STATUS 
C. —sOOFF1 38 04 20EA 532 TBN STATUS »X*04* CHECK FOR 
OFFS F2 10 1B 533 JT 11 END OF FORM 
~.  OFFB8 3C SC 207C 534 MVI MEOF,Cee? 
{°  OFFC 38 FB 20EA 535 SBE STATUS ,X*FBE CLEAR 
1000 OC 02 20E9 1F29 536 MVC —- STATUS—1(3) p ZERO STATUS 
1006 OC 06 1086 1D4E 537 MVC -MSGCAB-12(7) e EOF 
—&— 100c co 87 1138 538 B REPLCE REPLACE 
: 
! C DATE =. 29AUG75 ~—s OTNOVTS PROG 1D 102-1 
; EC NO. 827804 827805 PAGE 4A 
| 
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1@M MAINTENANCE DIAGNOSTIC PROGRAM 


PART NO. 
PAGE 


B2N2, B2S2, CABLE(GC553) 


KEPLACE 
A-B2N2 


PRINT 
"FLIP END 
OF FORMS 
SWITCH OFF® 


PRINT 
*RESET 
THE 
HALTS 
HALT 
OF -EA- 
SET END OF FORMS OFF 
Save STATUS 
CHECK EQF OFF 


CLEAR 

STATUS 
REPLACE 

B2N2, 8282, CABLE(GC553)} 
GO TO NEXT ROUTINE 


SHIFT CYCLE TESTS 


ROUTINE PREFIX 


(1021 SECTION 2—-INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
1010 240040 1012 539 oC XL3'240040* 
1013 39 04 20€9 540 11 TBF STATUS~149X'04* 
1017 2 10 O08 541 JT 12 
IOLA 3C SC 2021 542 MvI MF2L,C os? 
OLE CO 87 1138 543 B REPLCE 
1022 200000 1024 544 oc xL3*200000°* 
1025 OC O7 LAF1 18600 545 12 MVC MSG24(8) .B8CK 
102B CO 87 021A 546 8 PRINT 
RO2F 41 1O2ZF 547 oc XL1'41# 
2030 ILE 1030 548 oc 1L1*30°* 
2031 1AF1 1032 549 oc AL2(MSG24) 
1033 10EA 1034 550 oC XL2°1OEA® 
1035 CO 87 O21A 551 8 PRINT 
1039 06 1039 552 oc XL1*06° 
iG3A OE 103A 553 oc IL1*16° 
2628 1020 3030 «4554 oc AL2(MSGRES) 
1030 CO 87 0222 555 8 HALT 
1041 1OEA 1042 556 oc XL2*10EA® 
1043 38 04 20EE 557 SBF STSHDB,»X*04!* 
1047 CO 87 1805 558 8 SENSOR 
1048 39 04 20EA 559 T8F STATUS ,X*04° 
104F F2 10 18 560 JT 13 
1052 3C 5C 2c7C 561 MVI MEOF,Ce#! 
1056 OC 06 1D86 ID4E 562 MVC MSGCAB-12(7) ,EOF 
105C 38 FB 20EA 563 SBF STATUS sX*FB* 
1060 OC 02 20E9 1F29 564 KvC STATUS~1(3), ZERO 
1066 CO 87 1136 565 8 REPLCE 
106A 240040 166C 566 oc XL3*240040° 
a060 CO 87 0216 567 13 8 LINK 
568 *££64444248 
569 * RTNOG * 
570 £e&ex%4444F 
571 * 
572 * 
1071 06 1071 573 RTNO6 DC xXL1*06¢ 
£072 00 1072 574 oc XL1i*00°* 
1073 FEFF 1074 575 oc XL2°FFFFE 
576 
576 
1075 CO 87 O21A 577 8 PRINT 
19079 46 1079 578 boc XL1*46* 
ao7A 11 107A 579 oc TL1*17° 
1078 1610 107C 580 oc AL2(MSG41) 
1070 10C1 107E 581 OC xL2°10C1° 
1G7F OF O02 20EE 1FOE 582 MYC STSHOB(3),xCST1 
1085 38 FF 2058 583 SBF STSHOB-3,X*FF* 
1089 31 18 1F28 584 L310 LOWER, PRNT 
108D F3 18 62 $85 S$1oa X*82* PRNT 
3090 CO 87 1109 586 & OEL100 
21094 31 18 1F20. 587 Lio UPPER» PRAT 
1098 F3 18 62 588 $10 X*62* »PRNT 
2098 CO 87 1126. 589 8 DEL23 
a0gF F3 18 22 590 s1a X*°22" sPRNT 
A0A2 CO 87 1123 591 8 DELOS 
1046 CO 87 1805 592 8 SENSOR 
1OAA 38 01 20EA 593 TBN STATUS »X*01° 
ROAE 38 02 20E9 594 TBN STATUS~1,X*02 ° 
10B2 F2 10 OF 595 JT Kl 
16B5 3C 5C 2040 $96 MVI MMAL eC #9? 
1089 3C 5C 2014 597 MVI MXTRA,CtS? 
2080 CO 87 1136 598 8 REPLCE 
10C1 040000 10c3 599 oc XL3*040000* 
20C4 OC 03 20EE 1LF29 600 Kil MVC STSHDB(4),ZERO 
ROCA 31 18 1F28 601 Lid LOWER »PRNT 
20CE F3 18 82 602 $10 X*82* sPRNT 
1001 CO 87 1109 603 8 DEL100 
4005 31 16 1F20 604 Lio UPPER, PRNT 
1009 F3 18 82 605 S10 X*82¢ »PRNT 
OaTE 29AUG75 OTNOVTS 
€C NO. 827804 827805 


RGUTINE NUMBER 
NG INTERVENTION REQUIRED 
LAST ROUTINE 


PRINT 
*SHIFT 
CYCLE 
TESTS® 


SET 

XPTO STATUS 
LOAD BUFFER WITH LOWER CASE 
START PRINT 


LOAD BUFFEX WITH UPPER CASE 
START PRINT 


ISSUE FEEDBACK COMMAND 


SAVE STATUS 
CHECK MALFUNCTION ON 
CHECK XTRA CYCLE ON 


REPLACE 
A-B2S2 


PERFORM 
SHIFT 
CYCte 


PROG ID 
PaGE 
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IB® MAINTENANCE OIAGNOSTIC PROGRAM 


1021 


ERR LOC 


oO © 


8 


Ryi 


Oo 


Patie’ 


ee ef 


oN 


i 
Cc 


100C 
10E0 
10E3 
10E7 
1OEA 
1OEE 
10F2 
10F6 
10F9 
1OFD 
1101 
1104 
1108 


1109 
110D 
1113 
1116 
LILA 
1120 
1123 
1127 
112D 
1133 
1137 


1138 
113F 
1145 
114° 
L14F 
1153 
1157 
115B 
115F 
1163 
1166 
1169 
116C 
1170 
1174 
1177 
1178 
117C 
1170 
117F 
1183 
1187 


DATE 
EC NO. 


e 


SECTION 2--INITIAL PRINTER OIAGNOSTIC TESTS 


OBJECT CODE 


co 
F3 
co 
F3 
co 
co 
39 
F2 
3c 
co 


87 
18 
87 
18 
87 
87 
10 
10 
5c 
87 


1109 
22 

1123 
02 

1123 
1805 
20EA 
0B 

2096 
1138 


400000 
CO 87 022A 


00 


34 
oc 
F2 
34 
oc 
F2 
34 
oc 
OF 
co 
co 


34 
oc 
34 
OE 
3c 
34 
34 
3B 
35 
78 
F2 
7B 
3A 
39 
Fea 
co 
02 
19 


08 


87 
o8 
02 
87 
08 
02 
02 
01 
87 


08 
01 
08 
01 
oo 
ol 
02 
08 
01 
20 
90 
20 
08 
10 
10 
87 


1850 


3c 
3c 
3c 


01 
ol 
ol 


113A 
20£6 


113A 
20E6 
OA 

113A 
20E& 
20E6 
112D 
co00 


12F9 
12€7 
20DF 
12F9 
LEE? 
1F23 
1F25 
1ED2 
20DF 
01 


01 
1E02 
1ED2 


O21A 


1108 
123F 
1255 


29AUG75 


827804 


1EF1 


1EEE 


1EEB 
LED6 


1103 


1108 


1178 
117¢€ 
117E 


606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
649 
650 
652 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 


‘669 


670 





PART NC. 
PAGE 


4248246 
5A 


MOD 12 
ADDR STMT SOURCE STATEMENT 

B DEL100 

SIO =X" 22" yPRNT SET FEEUBACK SwITCH 

8 DELOS 

SIO = X*02* »PRNT RESET FEEDBACK SWITCH 

8 DELOS 

B SENSOR SAVE STATUS 

TBF STATUS,X*10* CHECK BUSY OFF 

JT K2 

MVI MBUSY»C*#* 

B REPLCE REPLACE 

pc XL3*400000° A-B2N2 
K2 B LOAD GO TO 

DC XL1*OO* NEXT SECTION 
SEASKKSEKSERKKEHKKKKSESSEKESSE SFERKKEAREKESSSHEKAESKSESEAKESKKEKSEKSEKESEKEKESKEASESERVSE 
& ri 
* DELAY SUBROUTINE: THIS SUBROUTINE SETS UP AND DELAYS — * 
+ FOR THE MILLISECOND TIMINGS INDICATED BELOW. * 
s x 
KKEESESEAEKERAHKAAKLEKSERETKKHKKKSEKERSEESAERESKSETSSERKSERSEESAERKSASCSKHKKSKSTERSEKSESRVNASHKERNE 
OEL100 ST ENDODEL 43 ,4R8R SETUP 

MVC WORK4( 3) gCDEL1O FOR 98 

J SuB MILLISECONDS 
DEL23 ST ENDODEL+3,ARR SETUP 

MVC WORK4(3) »CDEL23 FOR 20 

J sus MILLISECONDS 
DELOS ST ENDDEL+3,4RR SETUP FOR 

MVC WORK4(3) ,CDELOS B MSEC DELAY 
SUB SLC WORK4(3),0NE 

BNZ SUB 
ENDDEL B +—t* RETURN 
SEKEESERSESEKCSEKKSKE SEER SESEEKRESEEESCSEKHRSSESEEAHKKKKESERSESASERSESESKEBRRKEKKASAKASEASKEKE 
* * 
* THIS SUBROUTINE IS USED TO PRINT CARD CALLOUTS * 
* WHICH HAVE BEEN ISOLATED AS FAILING UNITS. * 
* LINKAGE IS VIA * 
x * 
+ 8 REPLCE * 
* oc XL3*XXXXXXE ® 
x x 
* WHERE —XXXXXX— REPRESENTS THE CAROS TO BE PRINTED. * 
* * 
SESEKLSESSTEKSEKCSERESHSSEKSSEKERERESEKREKSESSESESREAKESKSEKSESKKEKKSEKSEKKKSESKSASERERECKSE 
RLPLCE ST END7#3,ARR SAVE RETURN ADORESS 

MVC =END61+3(2),STATCA 

ST WORK1sARR MODIFY 

ALC END7+4+3, THREE (2) RETURN 

MVI SWITCH, X*OC? 

st SAVieXR1 KEEP CONTENTS 

ST SAVZsXR2 OF THE REGISTERS 

SBF MARK,MARK4 

L WORK1,XR1 

TBN 1(—XR1)2X*20" CHECK FOR SLT CARD PRINTOUT 

JF *+10 

SBE 1(eXRL) ,X*20* 

SBN MARK,MARK4S 

TBF MARK,MARK3 

JT CON11 

8 PRINT PRINT 

oc xXL1*o2°* NON-ERROR 

oc 1L1'25° REPLACE MESSAGE 

oc AL2(REP) 

MVI MOD5.x*'O1* 

MVI MOD2.X*01* 

MVI #003,X*01® 


O7NOVTS 
827805 


671 


PROG ID 
PAGE 


102-1 
5A 


18M KRAINTENANCE DIAGNOSTIC PROGRAM 


1021 
ERR LOC 


1186 
118F 
1193 
1199 
1190 
11A0 
LLAS 
LIAS 
1L1A6 
11A8 
LIAA 
LLAE 
1182 
1186 
118A 
118E 
21C. 
11C€46 
11C8 
21CC 
11CF 
1102 
1tcT 
1108 
110C 
1160 
110F 
LLE2 
1LlLE6 
LIEC 
L1F2 
LIFT? 
LLFA 
1200 
1204 
1205 
1206 
1208 
1208 
i2hki 
1215 
1219 
1210 
1221 
1226 
1226 
122C 
1220 
122E 
1230 
1233 
1236 
1238 
123F 
1246 
1241 
1243 
1247 
126A 
124E 
1251 
1255 
1256 
1237 
1259 
125C 
1262 
1266 


DATE 
EC NO. 


SECTION 2--INITIAL PRINTER DIAGNOSTIC TESTS 


MOD 12 


SOURCE STATEMENT 


CON11 


col 


TST2 
MODE 


mods 


JAP 


CA8552 


MODS 


INC2 


END66 
CON1 


TST 


MOD2 


4003 


TNC 


OBJECT CQDE ADDR STMT 
3C 01 1204 672 
3C 01 1282 673 
OC O1 12&7 LFSF 674 
38 10 1€D2 675 
F2 87 1E 676 
CO 87 O21A 677 
c2 L1A4 678 
19 21A5 679 
1650 1LAT 680 
1001 LIAS 681 
3C 81 1108 682 
3C 81 123F 683 
aC 61 1255 684 
3C 81 1204 685 
3C 81 1282 686 
7D 00 02 687 
F2 81 51 688 
€2 02 1098 689 
3C 01 11CD 690 
78 00 02 691 
F2 90 36 692 
2€ 04 1ID7E OO 693 
co 87 021A 694 
ol 11DB 695 
25 110€ 696 
1092 110E 697. . 
F2 87 10 698 
3€ 87 11EO 699 
oc 13 1092 1093 700 
oc 06 1086 10C2 701 
20 04 1DBB 00 702 
F2 O1 OE 703 
0c 04 1D7E 102F 104 
CoO 87 O21A 705 
ot 1204 706 
25 1205 707 
1092 1207 708 
E2 02 05 709 
OE 09 11CD 11C0 710 
€o 20 11CC€ 711 
C2 02 1867 T1l2 
3C 01 1231 713 
38 O1 1ED3 714 
F2 90 35 715 
38 O1 1ED3 716 
Co 87 O21A W117 
81 122C «6718 
20 1220) «(719 
2130 122F 720 
7B a0 00 721 
F2 90 23 722 
2C 03 1863 00 723 
CO 87 O21A 724 
ol 123F 725 
06 1240 726 
1863 1242 727 
30 02 1231 728 
F2 01 OF 729 
38 20 OAOB 730 
F2 90 O8 731 
co 87 021A 732 
or 1255 733 
23 1256 73% 
1948 1258 735 
£2 O02 04 736 
o£ OO 1231 1231 737 
co 20 1230 738 
82 01 O01 739 
2SAUGT5 OTNOV7S 

827804 827805 


MvI 
MVI 
MVC 
SBF 
J 

8 
oC 
oc 
oC 
oc 
MVI 
MVI 
MVI 
MVE 
MVI 
CLI 
JE 
LA 
MVI 
TBN 
JF 
MVC 
B 
DC 
oc 
oc 
J 
MVI 
MVC 
MVC 
CLC 
JNE 
MVC 


oc 
oc 
oc 
LA 
ALC 
BNOL 
LA 
MVI 
TBN 
JF 
SBF 


DC 
oc 
oc 
TBN 
JF 
MVC 


oc 


oc 
cLI 
JNE 
TBN 
JF 


oC 
oc 
DC 
LA 
ALC 
BNOL 
LA 


MOD4,X*01* 

MOD7 ,X*O1* 

END6 14+342),ENDTA 
MARK, MARK3 

col 

PRINT 

XL1l*c2' 

Iil?25° 
AL2(REP) 
XL2*1001° 

MOD5 .X*81° 
MOD2,x*81° 

MOD3 yX"*81? 

MODG4 ,X*B1i* 
MOD7,X*81° 
2¢5XR1)-X*00° 
END66 

CABLE sXR2 
TST241,X'O1!* 
2¢sXR1) -*-* 
INC2 
CABL(5),.0(,XR2)} 
PRINT 

XL1*021° 

IL1°37* 
AL2(MSGCAB) 
CaB5S2 
JMP+1,X"*87° 
MSGCAB(20),MSGCAB41 
MSGCAB~-12(7},NOPRT 
GC552(5).400—XR2) 
INC2 
CABL (5) ,6C095 
PRINT 

XLitolé 

IL1°37° 

AL 2(MSGCAB) 

5 .XR2)_2XR2 
TSTZ2*1i01),7ST241 
TST2 

CARDS »XR2 
TST#1,X*O1* 
PRTMSG,ROSWM 
INC 

PRTMSG «ROSWH 
PRINT 

XL1°81L° . 
IL1*32* 
AL2(PRNTRD) 
0(-XR1L) ,#-* 

INC 
CARD(4} 200 2XR2) 
PRINT 

XLifol? 

IL1*6* 
AL2{(CARD) 
TST4#2,X*O2* 

Inc 
MFCU=1,X*20¢ 
INC 

PRINT 

XLifaie 

IL1'35¢ 
AL2(MSG12} 
4¢_XR22XR2 
TST4#i(i)} sTST+4l 
TST 

14e¢XR1)—XR1 


PART NO. 
PAGE 


PRINT 
REPLACE 
CARDS 

MESSAGE 


SETUP FOR 
CABLE PRINTOUT 
CHECK FOR BIT ON 


MOVE LOGIC PAGE # INTO PRINTOUT 


PRINT 
®* CHECK 
CABLE 
XXXXX® 
SKIP NEXT INST UNLESS CHGED 
RESET JMP 


CHG PRNTOUT GNLY IF JMP CHGED 


PRINT 
CHECK 
CABLE 
6C095 
INCREMENT MESSAGE POINTER 


SET MESSAGE POINTER 


SETUP 
CHECK FOR 
PTR REEO SW MSG FLAG 
RESET FLAG 
PRINT "CHK PYR REED 
SH #IRING 
GCS$52— 
GC553¢ 
CHECK FOR 
CARD PRINTING 
PRINT 
CARDS 


CHECK FOR B2U2 CARD PRINTOUT 


MFCU SYS.? 
NO, SKIP PRINT 
PRINT 
B2U2 
SWAPABLE 
WITH A3ZA3 
INCREMENT CARD POINTER 
INCREMENT BIT CHECKER 
CHECK ALL BITS PER BYTE 
INCREMENT BYTE COUNTER 


PROG ID 
PAGE 


4248246 


6 


GK 
GK 
GK 
GK 
& 
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102-1 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 
c | 
1021 SECTION 2--INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 
ERR LCC OBJECT CODE ADDR STMT SQURCE STATEMENT 
1269 OE OO LEE7 1F22 740 ALC SWITCH,HEX8O 
126F CO 20 1219 741 BNOL CON1 
1273 36 O01 1F43 742 A HEXFF,XR1 
1277 38 O08 1ED2 743 TBN MARK,MARKS 
1278 F2 9C OF 744 JF END6 
127E CO 87 O21A 745 8 PRINT 
1282 91 1282 746 MOD7 DC XL1*ol® 
1283 08 1283 747 DC IL1*08* 
1284 iBCc9 1285 748 oc AL2(MSGSLT) 
1286 3B 08 1ED2 749 S6F MARK,MARK4& 
128A 7A 20 00 750 SBN Of eXR1),X720° 
128D 78 26 Ol 751 END6 TEN 1(2XRi)»X*20¢ 
1290 F2 90 10 752 JF CHKPRT 
1293 CO 87 O21A 753 B PRINT 
1297 81 1297 754 pc XL1*81* 
1298 4D 1298 755 DC IL1*778 
1299 186A 129A 756 Dc AL2(MSG141} 
1298 CO 87 O21A 757 B PRINT 
129F B1 129F 758 DC XL1°81¢ 
12A0 2A 12A0 759 oc IL1*42* 
12A1 1894 12A2 760 DC AL2(MSG142) 
1243 38 10 1LED3 761 CHKPRT TBN PRTMSG,MECM 
12A7 F2 90 27 762 JF ENDO6 
12AA 38 10 1£D3 763 SBF PRIMSG,MECM 
12AE CO 87 O21A 764 SECTIM B PRINT 
12B2 OL 12B2 765 pc XL1L®o1° 
1283 10 12B3 766 OC ILi*29¢ 
12B4 211D 1285 767 oC AL2(FDB) 
1286 38 80 1£03 768 TBN PRTMSG,SECM 
12BA F2 90 14 769 JF ENDO6 
12BD 38 80 1&D3 770 SBF  PRTMSG,SECA 
= 12C1 3C F7 2110 771 MVE FOBsX*FT7* 
12C5 CO 87 O21A 772 8 PRINT 
- 12C9 Ol 1209 773 oc XLIto1® 
‘ 12CA 09 12CA 774 oc TL1¢°09° 
12CB 1A73 12CC 936775 DC AL2(MSG620) 
4 12CD CO 87 12AE 776 8 SECTIM 
12D1 35 O1 1F23 777 ENDO6 L SAV15XR1 
1205 35 02 1F25 778 L SAV2_XR2 
¥ 12D9 OC 13 1092 1093 779 MVC MSGCAB(20),MSGCAB4L 
fe 12DF CO 87 021A 780 B PRINT 
12E3 92 12€3 781 o¢. xXL1"'92° 
12E4 CO 87 L2FA 782 END61 8B STATCK 
12E8 CO 87 021A 783. 8 PRINT 
; 12EC 86 12EC 784 DC XL2*868 
Ey 12ED 30 12ED 785 oc IL1°48¢ 
— 12EE 1€43 12EF 786 DC AL2{(MSWARN) 
12FO CO 87 0222 787 B HALT 
Inge 12F4 1002 12F5 788 DC XL2"*1001° 
A. 12F6 CO 87 90000 789 END? 8 +—* 
790 * 
a 79 * STATUS RECORDER 
PO 12FA 34 08 1475 792 STATCK ST ENOSTR#3 gARR 
12FE 34 01 LEES 793 ST RISAV1eXR1 
1302 34 02 1EE6 794 ST R2SAV2¢XR2 
1306 OC 0O 1lEE2 20E7 795 MVC WORK,STATUS-3(1L) 
130C OC 00 1LEEL 20E8 796 MVC WORK-1,STSHDB~-3(1) 
1312 3B CO 1LEE2 7197 SBF wWORK,X*COt 
: 1316 38 CO 1EE1 798 SBF WORK-1,X*CO* 
131A OC 18 iCDA 1C0B 799 MVC MSGTR1-1(25),MSGTR1 
1320 OC O1 1342 LEDC 800 MVC ©COR+3(2) -AMSTRI 
1326 3C 00 1EE7 sol MVI «= SWITCH,X*008 
132A C2 OL 1EE2 802 LA WORK, XR1 
132E 3C O01 1334 803 DOERL MVI TSTR+1,X*O1! 
1332 C2 G2 1€A0 804 LA TABLET—4_XKR2 
1336 E2 02 04 805 DOER LA 4(9XR2) gXR2 
Be 1339 78 006 00 806 TSTR TBN O(eXR1}-4-* 
pA 133C F2 90 08 807 JF INCR 
| 
| pate 29AUG75 O7NOV7S 
EC NOw 827804 827805 
|S 
| 
| & 


© 3 - : 


ee0e2eeeeeeee 


PART NO. 
PAGE 


CHECK ALE 
BITS FOR ON 


CHECK FOR INTERRUPT PRINTOUT 


PRINT 
INTERRUPT 
MESSAGE 


CHECK FGR MECH 
ENTRY CHRT FLAG 
RESET FLAG 
PRINT ‘CHK MECH 
ENTRY CHRT 
PG 
001-ax?* 
TEST SECOMD TIME MSG FLAG 
IF NO, SKIP MSG PRINT 
ELSE» RESET FLAG 
AND CHG PG NO. 
PRINT 
"OTHERWISE* 


GO PRINT 2ND MSG 
RESTORE 
REGISTERS 


SPACE 
2 LINES 
PRINT XPTD AND RCVD STATUS 
PRINT 
D6 NOT 
RESET HALT 


ERROR 
HALT 
RETURN 


RETAIN CONTENTS 
OF REGISTERS 
KEEP 
ONLY | 
TITLT 
ROTATE 
CODE 
SET UP MESSAGE ARE/. 
CLEAR SWITCH 
RECEIVED TILT ROTATE CODES 
SET UP BIT CHECKER 
TABLE FOR PRINTOUTS 
INCREMENT TABLE 
CHECK FOR BIT ON 


PROG I0 
PAGE 


4248246 
6A 


. GK 


GK 
GK 
GK 
GK 
GK 
GK 
GK 
GK 
GK 
GK 
GK 
GK 
GK 
GK 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


1021 
ERR LOC 


133° 
1344 
134A 
1350 
1354 
1358 
1358 
1361 
1365 
1369 
136F 
1373 
1377 
1378 
137A 
137C 
1380 
1381 
1382 
1384 
1388 
138C 
1380 
138F 
1391 
1395 
1396 
1397 
1399 
139D 
13A1 
13A5 
13A9 
13AD 
13AE 
13AF 
1381 
1385 
1388 
138C 
1380 
13C1 
13C2 
13¢C3 
13C5 
13C9 
13CD 
13D0 
1303 
} 1306 
1309 
130C 
i - -13E0 
1361 
: 13E2 
‘ 13E4 
13£€8 
13€D 

133 

13F8 

13FB 

13FF 


1492 


1406 
1409 
140C 
1410 
1411 


DATE 
EC NO. 


SECTION 2--INITIAL PRINTER DIAGNOSTIC TESTS 


OBJECT CODE 


2c 
OE 
O€ 
co 
3D 
F2 
oc 
C2 
3c 
oc 
co 
co 
01 


03 
ol 
oe 
20 
80 
81 
01 
oL 
80 
18 
87 
87 


1EE2 
icc 


co 
81 
37 


87 


1CDB 


3c 
co 
01 


37 
87 


1EEl 
1CF8 


co 
82 
37 


87 


1012 


co 
38 
38 
3c 
co 
B82 
14 


87 
3F 
3F 
00 
87 


1CA3 


29AUGT5 
827804 


01 
87 
87 


87 


oooo 00 
1342 1EDA 
133A 133A 
1336 

1EE7 

18 

1342 1€DE 
1EE1 

1EE7 

1011 1012 
132E 

O21E 


O21A 


1381 
O21E 


O21A 


1476 
20E7 
20E8 
1EET7 
0214 


2cE7 
il 
021A 


O21A 


20E8 
1F 44 
00 
01 
02 
03 
08 
O21A 


1407 
1411 
1412 
13FA 
00 

1413 


oo 
1E€D6 
00 


1FI1E 
a0 
08 
021A 


1377 
1379 
1378 


1380 
21381 
1383 


138C¢ 
138E 
1390 


1395 
1396 
1398 


13AD 
13AE 
1380 


138C 


13Cl 
13C2 
13€4 


13£0 
13E1 
13E£3 


1410 
1411 


O7TNOV7S 
827805 


808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 


cor 


INCR 


LEN1 


EXPSTT 


CHECK 


CHECK] 


oOorIT 


INCAOR 


TSTBTO 


LENGTH 


MVC 
ALC 
ALC 
BNOL 
CLI 
JE 
MVC 
LA 
MvI 
MVC 
B 

B 
oC 
oc 
oc 
B 
oC 
oc 
oc 
AVI 
B 
oc 
BC 
oc 
8 
BC 
oC 
DC 
8 
S8F 
SBF 
MvVI 
B 
DC 
DC 
oC 
LA 
J 

B 
oc 
8 
oc 
DC 
oc 
LA 
La 
TSF 
TBF 
TBF 
TBF 
JF 


oc 


oc 
MVI 
MVC 
ALC 
MvC 
LA 
St 
LA 
ST 
TBN 
JF 


oc 
oc 


MOD 12 


ADDR STMT SOURCE STATEMENT 


t—#*#( 4) 40(eXR2) 
COR+3(2), FOUR 
TSTR+1,TSTR+1(¢1) 
DOER 

SWITCH, X*80* 

*4+27 

COR+3(2) sAMSTEL 
WORK—1,XR1 
SWITCH,X*80! 
MSGTE1-1(25) ,MSGTE1l 
OOERI 

UNPACK 

IL1*1° 

AL2( WORK) 
AL2(MSGTRC-1) 
PRINT 

xXL1°81°* 
IL1°55°* 
AL2(MSGTR1) 
LEN1,X*37° 
UNPACK 

ILV&1s 
AL2(WORK-1) 
AL2(MSGTEX-1) 
PRINT 

XL1*°825 
IL1°*55° 
AL2(MSGTE1)} 
MODI 
STATUS-3,X"3F¢ 
STSHDB-3 ,X‘'3F* 
SWITCH, X*O00* 
PRINT 

XL1*62° 
IL1*20° 
AL2(MSGRCV) 
STATUS-3eXRl 
CHECK 

PRINT 

XLitg92t 

PRINT 

xL1*82¢ 
IL1*20° 
AL2(MSGEXP) 
STSHDB-3,XRi 
FIRST-1,XR2 
O( sXR1) »X*CO® 
10,XR1),X"DE* 
20 eXR1) eX*87* 
3(1,XR1) »X*BF*® 
CHECK1 

PRINT 

xt1*81° 
IL1°*S* 
AL2(NGNE) 
TSTBTO+1 »X*O1* 
LENGTH, O( ¢XR2) 
LENGTH, ONE 
INCADR4#2(1),0(,.XR2) 
#—*( »XR2) gXR2 
AORMSG,XR2 

14 sXR2) -XR2 

KEEP1 ¢XR2 

0 eXR1L), t-8 

INC8TO 

PRINT 

xLi*si°¢ 

IL1°oO° 


PART NO. 
PAGE 


IF ON, MOVE TLT-ROTATE 
CODE TO PRINTOUT AREA 
CHECK ALL BITS 

IN EACH BYTE 


SET UP FOR 
PRINTING 
EXPECTED 
TILT-ROTATE 
CODES 


UNPACK 
RECEIVED 
TILT-ROTATE 
CODES 
PRINT 
RECCIVED 
TILT-ROTATE 
MESSAGE 


UNP ACK 
EXPECTED 
TILT-ROTATE 
CODES 
PRINT 
EXPECTED 
TILT-ROTATE 
MESSAGE 


SET XPTD STATUS 


CLEAR SWITCH 
PRINT 
*STATUS 
RECEIVED 
WAS, 
SET UP RECEIVED STATUS POINTER 
AND GO CHECK STATUS 
PRINT 
"STATUS 


EXPECTED 
WAS,* 
SET EXPECTED STATUS POINTER 
SET FOR CORRECT COUNT 


BITS ON 
PRINT 
*NONE® 


SET 
uP 
FOR 
STATUS 
PRINT 
ouT 


SAVE XR2 


BYPASS PRINTING IF 
STATUS 8IT NOT GN 


PRINT 
STATUS 
IF BIT 
PROG I0 
PAGE 


4248246 
7. 


os 14BE 


ft: 
& 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


en 


1021 


ERR LOC 


1412 
1414 
1418 
141E 
1424 
1428 
1428 
142E 
1431 
1435 
1438 
143F 
1442 
1447 
1448 
i 1451 
S 1457 
1458 
145F 
1460 
1466 
146A 
146E 
1472 


PO 


1476 
147A 
147E 
1482 
1486 


i 


@ 


148A 


1491 

1495 
: 1499 
ae 149D 
14641 
14A4 
14A8 
14AC 
ue 14B0 
ee 1484 
14B6 
148C 
14C0 
14C4 
14C7 
14¢c8 
14D1 
14D5 
14D9 
140C 
oe 14E0 
C1 6es4 

14E7 
f 14EB 
ve 14EF 
14F5 
1469 
1.FD 


ons 


om 


Gece 
102-1. © pate 


7 


EC NO. 


eo 
i a 


OBJECT CODE ADDR STMT 
cooo 1413 876 
CO 87 1435 877 
OC 00 1F20 13FA 878 
OF 01 1413 1F20 879 
35 O2 1413 880 
BD 01 00 881 
F2 81 03 882 
6C 40 O01 883 
35 O02 1F1E 884 
GE 0O 1407 1407 885 
CoO 20 13£8 886 
02 01 O01 887 
8D 04 00 2009 888 
CO 01 13&4 889 
OC 01 1417 1FIA 890 
OE OO 1EE7T 1F21 691 
co 20 1388 892 
CO 87 O21A 893 
93 145F 694 
oc 01 1417 1F1C 895 
3B FF 1LED2 896 
35 O01 1EES 897 
35 O02 1EE6 898 
co 87 0000 899 
900 
901 
902 
903 
34 08 1489 904 
3B 40 20EA 905 
3B 78 20E9 906 
38 21 208 907 
Co 87 000d 908 
909 
910 
911 
912 
913 
34 08 16FC 914 
F3 18 40 915 
30 1B 20E8 916 
30 19 20EA 917 
3A 10 20EE 918 
38 10 20EA 919 
F2 10 12 920 
3C 5C 2096 921 
CO 67 17FA 922 
CO 87 17F5 923 
CG 87 0222 924 
1007 1485 925 
OC G1 20€3 LEFS 926 
3A LE 20EC 927 
38 18 20E8 928 
F2 10 28 929 
30 1B 20E8 930 
OE O1 20E3 1ED6 931 
co 20 14CO 932 
38 10 20E8 933 
F2 10 04 934 
3C 5C 1FCS 935 
38 08 20E8 936 
F2 10 04 937 
3C SC 1FAC 938 
co 87 OC52 939 
OC 02 20&3 1lEFF 940 
30 18 20€8 941 
38 06 20E8 942 
F2 10 68 943 
29aUG75 O7NCVT5 
827804 827805 


MOD 12 

SOURCE STATEMENT 
ADRMSG OC AL2(0) ON 
INCBTO 8 INCB2 
INCBL MVC KEEP2(1),INCADR42 

SLC ADRMSG( 2), KEEP2 ADJUST ADRESS TO BEGINNING 

L ADRMSG »XR2 OF MESSAGE FIELD 

CLE =O »XR2)-X*01° 

JE #+6 

MVE =: 10 )XR2)9X*40?* 

L KEEP1,XR2 
INCB2 ALC TSTBTO+1,TSTBTO+1(1) TEST ALL BITS 

BNOL DOIT OF EACH BYTE 

LA 1(yXR1)_XR1 INCREMENT BYTE COUNTER 

CLC 005 XR2) »NONE=4% LAST BYTE 

BNE CHECK1 NO--CONTINUE CHECKING 

¥VC INCBTO+3(2),AINCB1 

ALC SWITCH, HEX80 PRINT EXPECTED STATUS 

BNOL EXPSTT IF NOT ALREADY PRINTED 

B PRINT SPACE SIX 

oc XL1"938 LINES 

MVC = INCBT0#3(2), AINCB2 

SBF MARK,X*FFS RESET FLAGS 

L RISAV1,XR1 RESTORE 

L R2SAV2_XR2 REGISTERS 
ENDSTR B +—* RETURN 
bd 
* MOD1 SUBROUTINE: 
* SETS. RESERVED STATUS BITS TO ZERO. 
x 
MODI so ST ENDM+3,ARR 

SBF  STATUS»X"40* SET 

SBF = STATUS-1 4X" 78" RESERVED 

SBF STATUS—2,X*21" BITS OFF mel 
ENON 8 + * RETURN 
RERERSASAEKSE KEKE SRRSES SES SEEK ERTSSERLESERKESCSES SESE EKESHKESERSS FH4EESSEESEREEEESE 
+ s 
* CARRIER RETURN SUBROUTINE * 
* s 
RESEKSSSKESKKETK KS SEA SHKEKSEFEEHRKE SSS EASEAKEKSESEERKKEKSESEKSSE SES ES HSESETESESESEEES 
RETURN ST . ENDPRT#3,ARR 

SIG = -X*40", PRNT ISSUE RETURN COPMAND 

SNS STATUS-2,X"188 SAVE 

SNS STATUS, X*19° STATUS 

SBN STSHDB, X*108 

TEN = STATUS, X*10° CHECK FOR 

JT RETL PRINTER BUSY 

MVI = MBUSY,Ct#® 

B STATCK 

B BBC1 PRINT RETRY MESSAGE. 

B HALT 

DC XL2*1007° 
RETL MVC WORK3(2),CD05 

SBN STSHDB-2,X*1E* WAIT FOR 
SYNCC TBN  STATUS-2,x"18* FEEDBACK 
JT AUTRE] AND SAMPLED 

SNS STATUS-2,X*158 FUNCTION SWITCH 

ALC wORK3(2),0NE 

BNOL SYNCC 

TBN = STATUS~2,X"10! CHECK FOR FEEDBACK SwITCH 

JST HT 

MVI «= MFD,C*se 

T8N  STATUS-2,X*08* CHECK FOR FEEDBACK SAMPLED 

JT 9-47 

MVI «- MFDS»C eee 

8 RET3 PRINT CARRIER DID NOT RETURN 
ADTRE1 MVC wWORK3(3).CD100 
ADTRE2 SNS STATUS~2X*18¢ 

TBN = STATUS-2X*06¢ 

JT  =—- RET99 


SECTION 2--INITIAL PRINTER DIAGNOSTIC TESTS 


PART NO. 
PAGE 


4248246 
7A 


PROG 1D 
_ PAGE 


102-1 
TA 





18M MAINTENANCE DIAGNOSTIC PROGRAM 


1021 
ERR LOC 


1500 
1504 
1507 
1508 
150F 
1512 
1516 
151C 
1520 
1524 
1527 
152B 
152F 
1533 
1537 
1558 
153F 
1543 
1546 
154A 
154D 
1551 
1555 
1559 
155C€ 
1560 
1564 
1568 
1568 
156F 
1573 
=e 1577 
157A 
157E 
1582 
1586 
1589 
158F 
1593 
1597 
1598 
i59F 
15A3 
15A9 
15AD 
1SBl 
1584 
1588 
158C 
15C0 
15C4 
15C5 
15C6 
15C8 
15CA 
15CE 
15D2 
1504 
150A 
15DE 
15E2 
15E6 
15E4 


DATE 
ec NO. 


OBJECT CODE ADDR STMT 
39 04 20E8 944 
F2 10 04 945 
3A 04 1€D2 946 
39 02 20E8 947 
F2 10 04 948 
3A 02 LED2 949 
OF 02 20E3 1LED6 950 
CO 20 14F5 951 
39 06 LED2 $52 
F2 90 LF 953 
3C 5C 1F96 954 
3c 5C 1F78 955 
38 06 LED2 956 
3C Fl 2110 957 
3A 10 1LED3 958 
34 60 1E03 959 
CO 87 1138 960 
040040 1545 961 
38 04 LED2 962 
F2 90 OF 963 
3C SC LF78 964 
3B O06 LED2 965 
CO 87 1138 966 
980000 1558 967 
38 O06 LED2 968 
3C 5C 1F96 969 
CO 67 1138 970 
<60060 156A 971 
3B 06 LED2 972 
38 OL 20EA 973 
38 O1 20E9 974 
F2 90 OF 975 
3C 5C 204D 376 
3C SC 2004 977 
CO 87 1138 976 
040000 1588 979 
oc O02 20E3 1EFC 980 
3K O06 LED2 981 
3B 1£& 20EC 982 
39 1E 20E8 983 
co 10 16D3 984 
30 18 20E8 985 
CD O05 LEE2 1EE2 986 
30 19 20EA 987 
39 O1 20EA 988 
F2 10 20 989 
3€ 5C 204D 990 
CO 87 12FA 991 
3C FF 2110 992 
CO 87 O21A 993 
cl 15C4& 994 
10 15€5 995 
2110 15C7? 996 
1004 15C9 9397 
CO 87 17F5 998 
CO 87 0222 399 
1004 15D3 1000 
OE OZ 20E3 LEDE 1001 
co 20 1597 1062 
CO &7 12FA 1003 
CO 87 1TF5 1004 
co 87 0222 1005 
1005 ISEB 1006 
1007 
1008 
1009 
1010 
1011 
29AUGTS O7NOV75 
827804 


827605 


SECTICN 2--INITIAL PRINTER DIAGNOSTIC TESTS 


MOD 12 


SOURCE STATEMENT 


TBF 
JT 
SBN 
TBF 
JT 
SBN 
ALC 
BNOL 
TBF 
JF 
MVI 
Mv} 
S8F 
MVI 
SBN 
SBN 
8 
oc 
TBN 
JF 
MVI 
SBF 
6 
boc 
SBF 
MV2 
B 
DC 
SBF 
TBN 
TEN 
JF 
MYI 
MVE 
8 
oc 
avC 
SBF 
SBF 
TBF 
BT 
. SNS 
CLC 
SNS 
TBF 
JT 
MVI 
8 
MVE 
8 
DC 
oc 
DC 
oc 
B 
8 
oc 
ALC 
BNOL 
8 
B 


CR 


ADONEA 


RET33 


RET9 


RET99 


AOTRE 


SYNCC2 


RETB 


B 
DC 


STATUS—2.X "04! 
CR1i 

MARK » MARKS 
STATUS-24X%*02* 
ADONEA 

MARK »MARK6 
WORK3(3) , ONE 
ADTRE2 
MARK» X* 06° 
RET33 
MLEN,C® Ss? 
MLFNS,C ft? 
MARK ¢X* 06* 
FOB, X'F1°® 
PRTIMSG,MECM 
PRTMSGe SECM 
REPLCE 
XL3*040040° 
MARK g MARKS 
RETS 

MLENS,C fet 
MARK ¢X* 06° 
REPLCE 
xL3*0800005 
MARK ¢X*06* 
MLFN,COs® 
REPLCE 
XL3*200000* 
MARK sX* O6* 
STATUS »X*O1* 
STATUS—1,X'O1* 
ADTRE 
MMAL -C 2 36 

MCTL -C8a? 
REPLCE 
XL3*'040000° 
wWORK3(3),CD1 SEC 
MARK X*06* 
STSHDB—2,_X*1E* 
STATUS~2 sX*1LE* 
ADTHO4 
STATUS~—2¢X*18°* 
WORK (6) »WORK 
STATUS s X*1i9* 
STATUS se X*O1* 
RETS 

MMAL eC fe? 
STATCK 
FOB,X'FT® 
PRINT 

XLi'cl* 
IL1i*29°* 
AL2(FDB) 
XL2*1004¢* 

BBC1 

HALT 

XL2*10048 
WORK3(3) -ONE 
SYNCC2 

STATCK 

8BC1 

HALT 

XL2'1005°* 


PART 
PAGE 


NO. 


RESET FLAGS 

MOVE IN PG NUMBER 

FLAG MECH ENTRY CHRT MSG 
FLAG SECOND MSG 

REPLACE 


B2S2, CABLE(GC553) 


REPLACE 
B2R2 
RESET FLAGS 


REPLACE 
B2N2 


CHECK FOR 
CYCLE TGO LONG 


REPLACE 
B2S2 


WAIT ONC 
SECOND FOR 
LONG FUNCTION 
AND LONG 
FUNCTION 
SAMPLED 
TO DROP 


MOVE IN PG NUMBER 


PRINT 


*CHK MECH 
ENTRY CHRT 
PG OO1-AT® 
PRINT RETRY MESSAGE 
CONTINUE 
FOR ONE SECOND 


PRINT RETRY MESSAGE 


4248246 


GK} 
GK 
GK 


GK 
GK 
GK! 


GK, 
GK: 
GK: 


} 
: 
| 


| 


1 


SREKEKSKEAKEKASSEKHKE E SEEKS ESKESSE ER ES SS SESESAEKKEL ERE EES KSKKEK ERK HKELE KE TE | 


& 
2 
& 


PRINT SUBROUTINE 


* , 
*. 
+. 


i 


SERGEECEREREESS SALES SNE STRERSEESESESESESES TSS SE LSSE ED TESTS ESS ELSS ESET ES 


PROG ID 
PAGE 


' 
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1021 
ERR LOC 


15EC 
15F0 
15F3 
15FT 
15FB 
15FF 
1603 
1606 
160A 
160E 
1612 
1616 
1618 
161E 
1622 
1626 
1629 
162D 
1633 
1637 
163B 
163E 
1642 
1646 
1649 
1640 
1651 
1655 
1659 
L65F 
1663 
1667 
166A 
166E 
1674 
1678 
167C 
167F 
1683 
1687 
1688 
168F 
1691 
1697 
1698 
169F 
1643 
16A7 
16AB 
16AF 
16B1 
1685 
16B8 
16BC 
L6BF 
16C3 
16CT 
16C8 
16CF 
16D3 
1607 
16DB 
16DF 
16€3 
16E6 
16EA 
16EE 
16F2 


le 
102-1, pate 


8 


| 
| 
| 
| 


Go 


© 
6 


EC NO. 


SECTION 2--INITIAL PRINTER DIAGNOSTIC TESTS 


OBJECT CODE 


34 
F3 
30 
30 
3A 
38 
F2 
3c 
co 
co 
co 


08 
18 
18 
19 
10 
10 
10 
5c 
87 
87 
87 


1006 


oc 
3A 
38 
F2 
30 
OE 
co 
38 
F2 
3c 
38 
F2 
3c 
3D 
co 
co 
oc 
3B 
39 
F2 
30 
oD 
30 
39 
F2 
3c 
co 
ce 
co 


ol 
18 
18 
10 
18 
O21 
20 
10 
10 
5C 
08 
10 
5C 
08 
81 
87 
02 
18 
18 
10 
18 
05 
19 
OL 
10 
sc 
87 
87 
87 


1008 


OE 
co 
3c 
3c 
co 
co 
co 


02 
20 
s5C 
5C 
87 
87 
87 


1009 


39 
Fe 
38 
F2 
3A 
co 
38 
co 
30 
3B 
3A 
39 
38 
F2 
3c 
3c 
co 


482000 


10 
19 
01 
10 
1 
87 
01 
87 
193 
10 
80 
10 
80 
10 
5C 
5C 
87 


16FC 
80 

20E8 
20EA 
20EE 
20EA 
12 

2096 
12FA 
L7F5 
0222 


20€3 
20EC 
20E8 
30 

20E8 
20€3 
1622 
20€8 
04 

1FC5 
20E8 
04 

LFEAC 
OA03 
OF 29 
ODE6 
20E3 
20EC 
20E8 
47 

20E8 
LEE2 
20EA 
20E€A 
12 

204D 
L2FA 
LT7F5 
0222 


20E3 
1663 
1FC5 
LFAC 
12FA 
1TF5 
6222 


2Z0EA 
1B 

1ED2 
08 

1ED2 
15F8 
1€02 
1109 
20EA 
20Ec 
20EE 
20EA 
2Z0EA 
OF 


20BF 


2096 
1138 


29AUGT5 


827804 


1617 
LEF9 
1ED6 
LEFF 
1LEE2 

1690 
1LED6 

1680 

16F4 
OTNOVTS 
827805 


1012 PRINTS 
1013 

1014 

1015 

1016 AaDTWO3 
1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 PR1 
1025 

1026 SYNCP 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1036 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
107% 
1075 
1076 
1077 
1078 
1079 


ADONE] 


SYNCP1 


PR2 


ADTWOL 


ADTWO4 


st 
$10 
SNS 
SNS 
SBN 
TBN 
JT 
KVI 
B 

B 

B 
oc 
MVC 
SBN 
TBN 
JT 
SNS 
ALC 
BNOL 
TBN 
JT 
MVI 
TBN 
JT 
MVI 
CLI 
BE 
8 
MYC 
SBF 
TBF 
JT 
SNS 
cLC 
SNS 
TBF 
JT 
MVI 


1 
ALC 
BNGL 
MVI 
MVE 


oc 
TBF 


TBN 
JT 
San 


SBF 


SNS 
SBF 
SBN 
TOF 
TBN 
JT 

MYT 
MVI 


BC 


MOD 12 


ADOR STMT SGURCE STATEMENT 


ENDPRT4+3,ARR 
X*80*,PRNT 
STATUS—25X"18°* 
STATUS eX*19° 
STSHDB -X*10°* 
STATUS ¢X*10® 
PR1 

MBUSY,C ts? 
STATCK 

BeCl 

HALT 

XL2*1006* 

WORK 3(2),CD05 
STSHDB-2,X*18° 
STATUS—2 +X*18° 
ADONE1] 
STATUS~2,X°1B* 
wORK3(2) ,ONE 
SYNCP : 
STATUS—2¢X*108* 
*¢+7 

MFO,Cee! 
STATUS-2,X*08* 
¥+7 

MFDS.C*&s! 
CRTNO, X*0O8* 
TYPBL 

GGG 

WORK 3(03),C0100 
STSHDB~2,X*1L8* 
STATUS 2,X*18* 
ADTWO2? 
STATUS—-25X'*1B* 
WORK (6) sWORK 
STATUS, X*19# 
STATUS »X*O1* 
PR2 

MMAL »C*#* 
STATCK 

88C1 

HALT 

XL2*1008* 
WORK3(3) ,ONE 
SYNCP1 

MED, Cees 
MFDS,C es? 
STATCK 

BBCL 

HALT 

XL2°1009° 
STATUS ,X*10* 
ADTWO4 

MARK »MARKT 
*4+1])} 

MARK «MARKT 
ADTWO3 

MARK pMARKT 
DEL100 

STATUS »X*19*# 
STSHDB -X*10* 
STSHDB.X*80* 
STATUS »X*10° 
STATUS,X*80* 
PR 

MPEND,Cts! 
MBUSY,C te? 
REPLCE 
XL3*482060* 


PART NO. 


PAGE 


SAVE RETURN ADORESS 
ISSUE PRINT COMMAND 
SAVE 

STATUS 


CHECK BUSY ON 


PRINT STATUS 
PRINT RETRY MESSAGE 


WAIT 05 
MILLISECONDS 
FOR FEEDBACK 
AND FEEDBACK 
SAMPLED TO COME UP 


CHECK FOR FEEDBACK SWITCH 


CHECK FOR FEEDBACK SAMPLED 


CHECK FOR 
ROUTINE 8 


wWalT 100 
MILLISECONDS 
FOR FEEDBACK 
AND FEEDBACK 
SAMPLED TO DROP 


PRINT STATUS 
PRINT RETRY MESSAGE 


CONTINUE 
WAITING 


PRINT RETRY MESSAGE 


CHECK 
FOR SHIFT 
CYCLE 


CHECK 8USY 
DROPPED AND 
INTRPT PEND 
CAME ON 


REPLACE 
B2M2- BZ2R2, SLT 


PROG ID 
PAGE 


4248246 
8A 


102-1 
8A 


e@eeeeeveee 


- 
é 


1021 


ERR Loc 


*: 


IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248246: 
PAGE 9 | 
102) SECTION 2-—INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 i 
t 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT : 
16F5 CO 87 16FD 1080 PR3 8 SIORT GO ENABLE INTERRUPTS 
16F9 CO 87 0000 1081 ENDPRT 8 *—* 
LOS2 FEEHHEEEERESEREESERESEESRESEESESESOAEESREARESKESREEEESES HESEEESESESEEEESSEESEE | 
1083 * +! 
1084 * SUBROUTINE TO ENABLE PRINTER 
1085 # +, 
1086 €£4444688 OF 4849 F4EEEOEEEKEEEEERSEDESEEERECEREREESEEERESHEEEEESSESEEEEESSE 
16FD 34 08 1748 1087 SIORT ST ENDG+3 »ARR 
1701 34 O} 1EE4 1088 ST RISAVL»XR1 SAVE 
1705 34 02 1EE6 1089 ST R2SAV22XR2 REGISTERS 
1709 3A 80 1LED2 1090 SBN MARK , MARKO EXPECT INTERRUPT FLAG 
1700 3A 80 20ED 1091 SBN STSHDB~1,X" 80° SET 
1711 38 80 20EE 1092 SBF STSHDB,.X*80°* STATUS 
1715 OC O2 LEFT LEF4 1093 MVC TIM(3) »DLAY SET TIMER ; 
1718 35 CO 1F18 1094 L ITLV1eX*CO* LOAD INT LEVEL 1 : 
171F 34 CO 1F18 1095 ST ITLVLsgx*CO® SAVE INT LEVEL TAR 
1723 F3 18 04 1096 S104 S10 X*04",PRNT ENABLE PRINTER i 
1726 38 40 1LED2 1097 TBN MARK »MARK1 , 
172A CO 10 1745 1698 6T ENDG WAIT : 
172E OF O2 LEFT 1ED6é 1099 SLC TIM(3) ,ONE FOR ' 
1734 CO 01 1726 1100 BNZ $10443 INTERRUPT ; 
1738 OC OE 1D8E 1060 1101 MVC MSGCAB~4(15), INTPL 
173E CO 87 1138 1102 B REPLCE REPLACE B2N2, 
1742 21C020 1744 11¢3 oc XL3*21C0208 B3L2, 8382s B3P2, CABLE(KD141) 
1745 CO 87 0000 1104 ENDG 8 +—* 
L1OS SHKEKEEEESREEESESEEEREEERE SE SEEESEESR SEE EEEERESEERE TEESSERESESESE ERATE SRERA TEESE 
1166 # * 
1107 # INTERRUPT HANDLING SUBROUTINE * 
1108 * * 
1109 €84565SS4 KE SKEKERSEERSESEREARSERKESEESEESEEEEESSCHERKESESEERKRERE EE ESEGEEEESE SESE 
1749 34 06 1F12 1110 CONSLE ST SAVPSRePSR SAVE PSR 
ease be 8 1740 34 20 17F4& 1111 ST ENDZ4+3,P11AR SAVE P1-IAR 
1751 30 18 20E8 1112 SNS STATUS—-2,X'18! SAVE 
1755 30 19 20EA 1113 SNS STATUS .X*#198 STATUS 
1759 35 20 1F16 1114 L ADRSER,»X*20* CHECK 
1750 CO 80 17A5 21115 6c NOTRES-3,X* 80° TAR/ARR 
1761 CO FF 1768 1116 ec NEXT» X*FFP SELECTION 
1765 F2 87 30 1117 J NOTRES=-3 
1768 35 O01 17F4 1118 NEXT L ENDZ+3 «XR1 
176C 7D 04 02 1119 CLI 20 eXR1),X*04* 
1T6F F2 01 06 1120 JNE +9 
1772 OE O01 17F4 LEDS 1121 - ALC ENDZ+3 (2), THREE 
1778 3a 40 1ED2 1122 SBN MARK, MARK1 
177C 38 80 1ED2 1123 TBN MARK, MARKO CHECK 
1780 F2 10 OF 1124 JT *+18 FOR XPTD 
1783 3a 10 1ED2 1125 N2L2 SBN MARK » MARKS 
1787 CO 87 1138 1226 B REPLCE REPLACE 
1788 AOQO000 1780 1127 OC XL3*a00000* B2N2, B2L2 
178E CO 87 1783 1128 8 N2L2 
1792 38 80 20€9 1129 TBN STATUS—1,-X*80* CHECK FOR 
1796 €O 90 1783 1130 BF N2L2 
179A 35 20 1F10 1131 L TEM1,PLIAR DISABLE 
L79E F3 18 00 1132 $1a X*00*,PRNT INTERRUPTS 
LTAl 25 20 1F14 1133 L TEMPAR,PLIAR 
17A5 F3 18 61 1134 SIO X*01° .PRNT RESET INTERRUPTS 
17A8 €O 87 O2Z1A 1135 NOTRES B PRINT PRINT 
17AC C6 L7ZAC 1136 oc XL1°*C6* INTERRUPT 
17a9 13 17A0 1137 oc IL1°19° NOT 
ITAE 1056 I7AF 1138 cc AL2¢M4SG017) RESET 
1780 1022 1781 1139 oc XL2*1022° 
1782 CO 87 0222 1140 8 HALT 
1786 1022 1787 1141 oc XL2*1022¢* 
1788 CO 87 1138 1142 8 REPLCE REPLACE 
i78C A00000 17BE 1143 oc XL3*A0Q000* | A-B2N2- B2t2 
17BF CO 87 1785 1144 8 NOTRES-3 
17C3 CO 87 1136 1145 SELECT B REPLCE REPLACE 
17C7 010000 17C9 1146 Oc xL3*010000* 83L2 
17CA F2 87 10 1147 J RESET 
CATE 29AUG75 O7NOVT7S PROG ID 102-1: 
EC NO. 827804 827805 PAGE 9 


| 
| 
| 


| 
| 
| 
| £ 
| 
| 


oe, 


ie 
~ 
tne = 


{f 


ine 


> 


- 


17CD 
1701 
1702 
17D3 
1705 
17D7 
1708 
17DD 
17EL 
17ES 
17E9 
17ED 
17Fl 


17F5 
17F9 
17FD 
17FE 
L7FF 
1801 


1805 
1809 
180D 
1811 
1815 


1819 
1821 
1829 
1831 
1839 
1841 
1845 
184D 
1855 
185D 
185E 
1860 
1864 
1868 
186C 
1870 
1874 
1878 
187C 
1880 
1884 
189C 
18A0 
1BA4 
18AC 
1884 
188C 
18C3 
18CB 
18D3 
1808 
18E3 
18€8 
18F3 
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EC NO. 


SECTION 2--INITIAL PRINTER OITAGNOSTIC TESTS 


OBJECT CODE ADOR 

CO 87 O21A 

C6 1701 

31 1702 

1013 1704 

1023 17D6 

co 87 0222 

1023 170C 

35 01 1EES 

35 02 1LEE6 

3B 80 20ED 

35 CO 1F18 

35 04 1F12 

Co 87 0000 

34 08 1804 

CO 87 O21A 

86 17FD 

11 17FE 

19C3 1800 

CO 87 0000 

34 08 1818 

30 18 20E8 

30 19 20EA 

CO 87 1476 

co 87 0CCO 

C9C64005D640E2D7 1844 

C1C3C 540C9E240E3 

C102C50540C1D5C4 

61060940C3C8C109 

40C 1090540070909 

D5E3C5C4 

D9C5D703C1C3C540 1850 

C6D6D3D3D6ESC9D5 

C740C3C109C461E2 

TA 

C160 185F 

EVTETETET 1863 

C2F3D3F2 1867 

C2F2E4F2 1868 

C2F2E2F2 166F 

C2F2D9F2 1873 

C2F207F2 1877 

C2F205F2 187B 

C2F2D4F2 187F 

C2F203F2 1883 
1898 

C2F3E2F2 189F 

C2F307F2 18A3 

E2D7C1C3C540E3C5 18C2 

E2E340E6C9E 310840 

050640C3C€8C10940 

D7D9C9DSE3C5C4 

C6C9IDSEZE340D6D5 180A 

C540E207C1C3C540 

C9E240E3C102C5D5 

C9C64005D64CC5D9 190E 

DIDED9E240C4C5E3 

C5C 3E305C46840C3 

C1D9D9C9C50940E2 

29AUG75 O7NOVT7S 

627804 827805 
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STMT 


1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1161 
1162 
4163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 


'1176 


1177 
1178 
1179 
1180 
1181 
1181 
1181 
1181 
1181 
1181 
1182 
1182 
1182 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1196 
1196 
1196 
1197 
1197 


1197 


1198 
1198 
1198 
1198 


PART NO. 4248246 
PAGE 9A 
MOD 12 
SOURCE STATEMENT 
NOTRE] 8B PRINT PRINT 
oC XL1°C6* INTERRUPT 
oc IL1'49¢ RESET 
oc ALZ(MSGINT) BY A 
DC XL2°1023° DISABLE 
8 HALT COMMAND 
oc xXL2*1023° 
RESET L RISAV1eXR1 RESTORE 
L R2SAV2—eXR2 REGISTERS 
SBF STSHOB-1,.X*80° 
L ITLV1,xX°*CO* LOAD INTERRUPT LEVEL 1 
L SAVPSR,PSR 
ENDZ B +—-% RETURN 
* THIS SUBROUTINE PRINTS THE *RETRY* MESSAGE 
+ 
BBCl ST BBC+3,ARR SAVE RETURN ADDRESS 
B PRINT PRINT 
oc XL1'86° RETRY 
oc I11°17° 101 AND 102 
DC AL2(MRETRY) 
BBC B e-* RETURN 
+ 
* SENSOR SUBROUTINE? 
* SAVES KEYBOARD STATUS 
SENSOR ST ENDS#3,ARR 
SNS STATUS~2,5X*16° SAVE 
SNS STATUS »X*19° STATUS 
8 MOD1 SE” RESERVED BITS OFF 
ENDS B -* RETURN 
* 
* MESSAGES 
+ 
4$G10 OC CL44°IF NG SPACE IS TAKEN AND/OR CHAR ARE PRINTED® 
REP oc CL25*REPLACE FOLLOWING CARD/S=:¢ 
oc CL2*A-* 
CARD oc CL4*XXXx® 
CARDS OC CL4*B3L2° 
oc CL4*B2ti2* 
DC CL4'"B2S2' 
oc CL4*B2R2° 
DC CL4*B2P2t 
DC CL4*B2N2¢ 
DC CL4*B2M2* 
oc CL4*Bat2¢ 
os CL24 
oc CL4°B3S2° 
oc CL4*B3P2° 
MSGO7 OC CL32*°SPACE TEST WITH NO CHAR PRINTED! 
MSGOB DC CL24*FIRST ONE SPACE IS TAKEN® 
“SGO9 OC CL52°*IF NO ERRORS DETECTED, CARRIER SPACED TO END OF LINE® 
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16M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248246, IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248246 
PAGE 10 : PAGE 10A : 
1021 SECTION 2—-INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 1021 SECTION 2--INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
18FB 07C1C3C5C440E3D6 1198 : LADC 04E 2400306010440 1215 
1903 40C5D5C440D6C640 1198 LAE4 03C5£E5C509404040 1215 i 
1908 D3C9D5C5 1198 1AEC 404040404040 1215 
190F C9C640D60503E840 1928 1199 MSG11 DC CL26"IJF ONLY ONE SPACE IS TAKEN® LAF2 C6D6D9E6CLDOC4E 1AFS 1216 FOR DC CL7*FORWARD®* 
1917 0605C540E207C1C3 1199 LAF9 C2C1C3D2E6C1D9C4% 1800 1217 BCK pc CL8*BACKWARD® ; 
191F €540C9E240E3C1D2 1199 1B01 C9C640C9D5C3D6D9 180C 1218 MSG30 DC CL12*IF INCORRECT® 
1927 C505 1199 1B09 D9C5C3E3 1218 
1929 60C160C2F2E4F240 1948 1200 MSG12 OC CL35"-A-82U2 MAY BE SWAPPED WITH A-A3A3-°* 1B0D E2C8C9C6E340C3E8 1B1D 1219 MSG4i DC CLL7*SHIFT CYCLE TESTS* 
1931 04C1F849°2C540E2 1200 1815 C303C540E3C5E2E3 1219 
1939 £6C1D7D7C5C440E6 1200 ; 1810 €2 1219 
1941 C9E3C840C160C1F3 1200 , IBLE C9C640C105E840D6 1847 1220 oC CL42*IF ANY OTHER INTERRUPTING DEVICES ATTACHED® 
1949 C1LF360 1200 1B26 E3C8C5D940C9D5E3 1220 
194C C3C1D909C9C5D940 1968 1201 MSG13 OC CL32*CARRIER RETURN AND PLATTEN INDEX® 1B2E CSDSD9E4D7E3C9D5S 1220 
1954 09C5E3E4D90540C1 1201 1B36 C740C4CSESC9C3C5 1220 
195C 05C440D703C1E3E3 1201 1B3E €240C1E3E3C1C3C8 1220 
1964 C5D540C9D5C4C5E7 1201 1846 C5C4& 1220 
196C C9C640C3C1LDSD9CE 1991 1202 MSG14 DC CL38°IF CARRIER DOES NCT RETURN OR NO INDEX* 1B48 40£3D640EZ2E8E2E3 186A 1221 MSG141 OC CL35* TO SYSTEM ARE OPERATING CORRECTLY, * 
1974 C50940C4D6C5E240 1202 1B50 C5D440C1D9C540D6 1221 
197C DS06E340D9C5E3E4 1202 1858 DTC5SD9CLE3C9D5C7 1221 
1984 09D540D6094005D6 1202 1B60 40C3D6D909C5C3E3 1221 
198C 40C9DS5C4C5E7 1202 1B68 D3E86B 1221 
1992 C9C64005D640C3C! 1982 1203 MSG15 DC CL33°IF NO CARRIER RETURN AND NO INDEX® : 1B6B D&D4C9E3460C3C8C5 1894 1222 MSG142 OC CL42*OMIT CHECKING 8382, B3P2, AND CABLE(KD141)° 
199A O09D9C9C5D94009C5 1203 1873 C3D2C9DSC740C2F3 1222 
L9A2 E3E4D9D540C105C4 1203 1B7B E2F26B40C2F307F2 1222 
L9AA 4005D640C9D5C4C5 1203 1883 6840C1D5C440C3C1 1222. 
1962 E7 1203 1888 C2D3C54DD2C4F1F4 1222 
1983 OICSESD9EB4OFLFO 19C3 1204 MRETRY DC CLI7T*RETRY 101 AND 102° 1B93 F15D 1222 
1988 F140C1D5C440F1F0 1204 1895 CID5C440E3EB8D7C5 1BAE 1223 MSGTPB DC CL26*AND TYPEBALL IN UPPER CASE® 
19C3 F2 1204 189D C2C1D3D340C90540 1223 
19C4 D306E6C5D9 19C8 1205 MSG161 OC CLS*LOWER®* 18A5 E4D7D7C50940C3C1 1223 
L9C9 40C3C1E2C540C3C8 1OEF 1206 oc CL39* CASE CHAR ARE PRINTED AND SHOULD MATCH! 1BAD E2C5 1223 
19D1 €10940C109C540D07 1206 ares LBAF C9OC640C1LD5E840C3 18C1l 1224 MSGACP DC CLI9*IF ANY CHAR PRINTEC® 
1909 DSCIDS5SE3C5C440CL 1206 1B87 C8C1D9400709C905 1224 
19E! D5C440E2C8D6E403 1206 -_ 1BBF E3C5C4 1224 
1969 C440D4C1E3C3C8 1206 - 1BC2 E€2D3E340C3C109C4 1BC9 1225 MSGSLT DC CLB'SLT CARD® 
LOFO 40D2C5E8C206C109 1A15 1207 MSG16 DC CL38* KEYBGARD LEFT TO RIGHT, TOP TO BOTTOM® 1BC4 OG0000 1BCC 1226 MVE DC XL3*008 
19F8 €C440D3C5C6E340E3 1207 , 18CD 40€2D7C1C3C540C3 18E2 1227 MSGSPC DC CL22' SPACE COMMANDS ISSUED* 
1A00 0640D9C9C 7C8E36B 1207 , 18D5 D604D4C1D5C4E240 - 3227 
1AC08 40&3D6D740E30640 1207. 18DD C9EZEZE4C5C4 1227 
LALO C2D6E3E 30604 12067 1BE3 C9DSESCSDSNGESD? 1013 1228 MSGINT DC CL49tINTERRUPT RESET BY DISABLE-—-REPLACE A-B2L2, A~B2N2° 
1A1L6 C3C8C5C3D0240C6D6 1LA2C 1208 MSGCKP DC CL23*CHECK FOR CORRECT XXXXxx°* oe 1BEB E340D9CSE2C5E240 1228 
LALE D940C3060909C5C3 1208 : 18F3 C2ZE840C4C9E2C1C2 1228 
1A26 ES40E7ETETETET 1208 1BFB D3C5606009C50703 1228 
LA20 40C3CLE2C540D7C1 1039 1209 OC CL13* CASE PATTERN® : 1003 C1C3C540C160C2F2 1228 
1A35 E3E3C50905 1209 1CO8 D3F268C160C2F2D5 1228 
LA3A C9C640D6D503E840 1A6A 1210 MSG19 DC CL49*IF ONLY 1 CHAR PRINTED AND TYPEBALL IN LOWER CASE* — . 1C13 F2 1228 
1A42 F140C3C8C10940D7 1210 . = 1014 E6CLDODSCOEDSC760 1043 1229 MSWARN DC CL48*WARNING-RESETTING THIS ERROR HALT MAY BE INVALID® 
LASA D9C9ID5E3C5C440C1 1210 1C1C D9C5E2ZC5E3L3C9D5 1229 
LAS2 DSC440E3EB8D7C5C2 1210 1024 C740E3C8C-9E240C5 1229 
LASA €1D3D340C9D540D3 1210 me 1C2C D9D9D60940C8C103 1229 
1A62 D6E6C5D940C3C1LE2 1210 1034 £3400 4C1£840C2C5 1229 
LAGA C5 1210 : oat 1C3C 40CSD5ESCLD3C9C4 - 1229 
LAGB DGEICBCSD9E6CIE2 1LA7T3 1211 MSG20 DC CLO*OTHERWISE® Ee 1044 CODSE3CSDOIDGESDT 1056 1230 MSGO17 BC CLIO" INTERRUPT NOT RESET® i 
1A73 C5 1211 ' 1C4C E34005D6E346D9C5 1230 : 
LATS CLEZE3C5D9CIEZD2 1AA3 1212 MSG2L DC CL4B* ASTERISK PRINTED WHERE UPPER CASE DOES NOT EXIST* a. 1C54 E2CSE3 1230 
LATC 40D7D9C9D5E3C5C4 1212 _ 1C57 C3CLD9D9C9C5D940 1C7B8 1231 MSGXTM DC CL37*CARRIER RETURN COMMAND ISSUED 5 TIMES® 
1hB4 40E6CBC5D9IC540E4 1212 1C5F D9CS5E3E4090540C3 1232 
LASC 0707C50940C2C1E2 1212 i 1C67 0604D4C105C440C9 1231 
LA94 £540C4D6C5E24005 1212 pe 1C6F E2ZEZE4CSC4 +OF540 1231 
LASC D6E340C5E7C9IEZES - 1212 1C77 E3C9D4CSE2 1231 
LAA4 C9C640C3D605E3C9 1AB6 1213 MSG22 OC CLI9* IF CONTINUOUS INDEX® LC7C EZE3SCLE3E4E240C5 ICSF 1232 MSGEXP OC CL20'STATUS EXPECTED WASe® 
LAAC D5E4D6E4E240C9D5 1213 ba 1C84 E7D7C5C3E3C5C440 1232 
1AB4 C4C5E7 1213 1C8C E6C1E268 1232 
LAB7 COCEGOEZESD7TC5C2 1AD03 1214 MSG23 ODOC CL29tIF TYPEBALL NOT IN UPPER CASE® 1C90 E2E3C1E3E4E24009 1CA3.1233 MSGRCV DC CL20°STATUS RECEIVED WASe* 
LABF C103D340D5D6E340 1214 by 1098 C5C3C5C9ES5C5C440 1233 
1AC7 COC540E4D707C5D9 1214 1CAO E6C1E268 1233 
LACF 40C3C1E2C5 1214 be ee 1CA& 5C ICAG 1234 pc CL1tee 
LAD4 C603C9NT40CEDED9 1AF1 1215 MSG24 PC CL30°FLIP FORMS LCAD LEVER. . t I1CAS E3CS9D03E3400906E3 1CC2 1235 MSGTRC DC CL30"TILT ROTATE CGDE RECEIVED - -?* 
= ; 
PATE 29AUGT5 O7NOV7S PROG ID 102-1) {_-DATE 29AUG75 O7NOVT75 PROG ID 102-1 


EC #0. 827804 = § 827805 PAGE 10 | EC NO. 827804 827805 . PAGE 10A 


| eG 


oe oe ee 1: | . | — ae oe | an 
@o@e@eqee@e@eqeeoqe@qe@ede@eed@eee@qeeqeeeedsdedegeo@egeeodg@eo@esdses ee 





a 


@o@e@e@eoeoeee@eci@edteoe@egcert @ ®@ @#e@eoeedee@ed@?d@d@eeeed9eogegese@sd 
_ Fe ™ % . ae e ., P , sa - P J 





arcane n. 


ate tg i 


aha eee eo ae ow 


EO ee pe 


Pees y 


2 





Voy 


IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248246 IBM MAINTENANCE DIAGNOSTIC PROGRAM PaRT NO- 4248246 
PAGE 11 | fc PAGE 11a 
1021 SECTION 2--INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 . 1021 SECTION 2--INITIAL PRINTER DIAGNOSTIC TESTS MOO 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
iCAD C1E3C540C306C4C5 1235 1E20 5C5C5C 1275 
1CB5 4009C5C3C5C9ESC5 1235 1E30 4A5C5C5C5C5C5C5C 1E3A 1276 oc XL11"4A5CS5C5C5CS5CSCS5CS5CSCS5SA® 
1CBD €44060404060 1235 1E38 S5C5C5A 1276 
1CC3 4040404040404040 1CDB 1236 MSGTR1 DC cL2s5* . 1E36 TFSCSCSCS5C5CSC5C 1645 1277 oc XL11°7F5C5C 5. 5C5C5C5C4F SF6F * 
1CCB 4040404040404040 1236 1E43 4F5FOF 1277 
1CC3 4040404040404040 1236 1E46 FF 1E46 1278 oc XL1"*FF® 
1c0B 40 1236 tc 3 1279 * 
1COC E3C903E3490D9D6E3 ICF9 1237 MSGTEX DOC CL3O"TILT ROTATE COCE EXPECTED —- —* Ne i280 *# LOWER CASE TILT ROTATE CODES 
ACES C1E3C540C306C4C5 1237 1281 * 
1CEC 40C5E7D7C5C3E3C5 1237 foe LEST 3F 1E47 1282 TBLES OC XL1"*3F*¢ 
1CF& €44060404060 1237 ; 1E48 363£&3530343C 1E4D 1283 BC XL6*363E3530343C*# 
ICFA 4040404040404040 1012 1238 MSGTE1 DC cL25° ' 1E4E 3931 LE4F 1284 DC XL2*3931° 
1002 4£040404040404040 1238 foe 1E50 37 1E50 1285 DC XL1°37° 
IDOA 4040404040404040 1238 .- 1E€51 17 1£51 1286 oc XL1°17° 
1D12 40 1238 ‘ 1E52 07 1E52 1287 Dc XL1°O7*# 
1013 DS9C5E2CS5SE340E3CB 1020 1239 MSGRES DC CL14*RESET THE HALT®* ; 1E53 19 1E53 1288 oc XL1°19° 
1018 C540C8C1iD3E3 1239 1€54 2400112E2925 1E59 1289 DC XL6*240D112E29258 
1021 O3D6E6C509 1025 1240 LWR oc CL5*LOWER® 1E5A 01141C 1E5C 1290 DC XL3°0O1141C® 
1026 E4D707C509 1D2A 1241 UPR oc CLS"UPPER® 1E5D 27 1£50 1291 Dc XL1i*27°* 
1028 C7C3FOF9F5 102F 1242 6CO095 OC CL5'6C095°* 1E5E OF26 1E5F 1292 oc XL2°"OF26* 
1030 D70940E4C34009L5 103D 1243 ROSW oc CL14*PR UC REED Sw)! 1E60 O5040CO91F16 1E65 1293 oc XL6*05040CO091F16* 
1038 C5C440E2E650 1243 1&66 1£1030212CO0E 1E6B 1294 oc XL6°1E1030212CO0E* 
103€ E2C8C9OC6E34004C1 1047 1244 SHIFT DC CLiO*SHIFT MAG)* 1€6C 200610152006 1E71 1295 DC XL6* 20061D152000* 
1046 C750 1244 1E72 2FFF 1E73 1296 oC XL2*2FFF* 
1048 C5D6C640E2ZE65D 1D4E 1245 EOF oc CL7*EQF Sw) Lot 1297 * 
104F C3E8C34B40C303E4 1DSA 1246 oc CL12*CYC. CLUTCH, * : @ 1298 * 
1057 E3C3C86B 1246 | 1299 * UPPER CASE TILT ROTATE CODES 
1058 €361095D 1DSE 1247 TOR oc CL4*Ts/RIE om 1300 * 
105F CODSE3SC5DSD9E4D7 1D6D 1248 INTPL ODOC CLIS*INTERRUPT POLL) ® Pts 1E74 BF 1E74 1301 TBSLE4 OC XLi*BF* 
1067 €2400706030350 1248 : 1E75 B6éBEBSBOB4SBC lETA 1302 Dc XL6* B6BEBSBDB4BC®# 
1O6E C3C8C5C30240C3C1 1079 1249 oc CL1I2*CHECK CABLE(* oa 1€78 8981 1E7C 1303 oc XL2*BOTI1* 
1076 C20D3C540 1249 _— 1E7D B7 1E7D 1306 oc XL1*s7* 
IO7A ETETETETE7 1O7E 1250 CABL oc CLS *XXXXX® LETTE 97 1E7E 1305 oc XL1°978 
LCTF 4940404040404040 1092 1251 MSGCAB DC 20XL1*40° foo 1E7F 87 2E7F 1306 oc xL1*a7°* 
1087 -°040404040404040 1251 a 1E80 89 1E80 1307 DC XL1*B9° 
1D8F 40404040 1251 i 1E&81 898989898989 1E86 1308 oc XL6*BSBSB9B9B9BS* 
1093 40 1093 1252 - oc XL1°40°* Dé 1E87 698989 1E89 1309 DC XL3°*B989898 
1094 1096 1253 CABLE ODS CLs he Fae 1E8A AT 1E8A 1310 pc XL1°AT® 
1099 1DAC 1254 oS CL20 : 1€8B B9 1E8B 1311 oc XL1°B9* 
LOAD O2C4Fl F4F1 1081 1255 oc CL5*KD141° OY 1E8C BOBSESB9IBSB9 1E91 1312 vc XL6*B9IBSB989B9B98 
1082 C7C3F5F5F3 1086 1256 GC553 OBC CL5‘'GC553°* ; 1E92 B98B990B0B8989 1E97 1313 oC XL6*°B9BS9O0BOB9B9* 
1087 C7IC3F5F5F2 1088 1257 6C552. DC CL5*G6C552° 1E98 B9B9B9B9B9A0 1E9D 1314 OC XL6'*8SB9BSB9B9A0® 
108C 050D6400709E35D 10C2 1258 NOPRT OC CL7*NO PRT)D* iS ae 1ESE SOAFFF 1EAO 1315 oc XL3"°80AFFF® 
10C3 Cé6C5C5C4C2C1C3D2 10D2 1259 FOSW oc CLI6*FEEDBACK SwITChH)* 7 ae 1316 * 
10C8 40E2E6C9E3C3C85D 1259 1EAl 40D9F140 LEAS 1317 TABLET DOC CL4* Ri * 
1003 C5060340E2E65D 1009 1260 EOL oc CLT*EOL Sw)* - 1EAS 6BOD9F2406B09F2C1 1EB8 1318 oc CL20*,R2 sR2AsR5 2Tl 2T2 * 
LODA C3D0940D4C1C705C5 1DEC 1261 MAG oc CL19°CR MAGNET OR INDEX) ® , LEAD 6B09F5406B8E3F140 1318 
IDE2 E340060940C9D5C4 1261 1EB5 6B8E3F240 1318 
IDEA C5E750 1261 1EB9 Fi 1E89 1319 TABLES OC XL1*F1°* 
1262 * : 2 LEBA F2F 3F4F5FF LEBE 1320 oc XL5*F2F3F4F5FF® 
1263 * TABLE FOR LOWER CASE LEBF FI LEBF 13212 TABLEA OC XL1°Fl* 
1264 * ; LECCO F2F3F4F5F6F7FBFO LECT 1322 oc XL8*F2F3AE4FSF6FTIFBF9® 
1DED 1265 TBL1 EQU * ha 1lEC8 FO60507C58786B4B LECF 1323 DC XLS*FO60507C5B7B6B4B° 
10€0 FIFZF3F4FSF6FTFB LOFT 1266 oc XL11°FLF2F 3F4F SF OF TFEFSFOEO®* . 1€00 61FF 1ED1 1324 oc XL2°61FF* 
1OFS F9FO60 1266 Ape: 1325 * 
1OFS SODSE6BCS5D9ESEBE4 1E02 1267 oc XL11* SODSE6CS5D9ESESESC9D6EDT® ; Se 1326 * 44K9S440R% 
LE00 C9D607 1267 : 1327 * * FLAGS ® 
E03 7FCCLE2C4C6C7CS8D1 1LEOD 1268 oc XL11*7CCLE2C4C6C7C8C102035B° I a 1328 * 4OEEREESED 
1€0B 020358 1268 % 1ED02 O00 1ED2 1329 MARK oC XL1*900° 
LEGGE THREIE7C3ZE5C20504 1&18 1269 oc XL11° 7BESE 70 3E5C20504684B861 * ; 0080 1330 MARKO £EQU x*80* EXPECT AN INTERRUPT 
1E&16 684861 1269 pS 0040 1331 MARK1i EQU X*408 INTERRUPT RECEIVED 
LE19 FF 1£19 1270 oc XLI‘ FFE 8 0020 1332 MARK2 EQU x*208 PROGRAM INITIALIZEEC 
1271 # 0010 1333 MARK3 EQU x*10° NON-ERROR PRINTOUT 
1272 * . TABLE FOR UPPER CASE . 0068 1334 MARKS €EQU x*os* SLT CARD PRINTOUT 
1E1A 1273 TBL2 €QU * | G 0004 1335 MARKS EQU “~X'04* 2e62 MILLISECOND BIT 
LEIA TESCSETAGCTDGESC 1E24 1274 Dc XL11°7E4C 5E 7TA6C 7D6E5C405D6D* 0002 1336 MARK6 EQU x*o2t 1.34 SECOND BIT 
1€22 405060 1274 os 0001 1337 MARK? €QU x*o1° SHIFT CYCLE 
1E25 4E5C5CS5SCS5CS5C5C5C LE2F 1275 OC XL11*4ES5C5C5C5C5CSCSC5C5C5C* | © 1Ef3 OO 1E03 1338 PRTMSG OC XL1*°00°* PTR REED SW FLAG GK 
se 
OaTeE 29AUGTS5 O7NOV75 Pros ID 102-1) C pate 29AUG75 OT7NOV75 + me PROG 10 102-1 
EC MO. 827804 827805 PAGE il | EC NO. 827804 827805 PAGE 111A 
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IBM MAINTENANCE OILAGNOSTIC PROGRAM PART NO. 4248246 
PAGE 12 || PAGE 12A 
1021 SECTION 2--INITIAL PRINTER DIAGNOSTIC TESTS ao0 12 | 1021 SECTION 2--INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1339 * CONSTANTS AND STORAGE AREAS ' 1F78 40 1F78 1404 MLFNS OC XL1°40° 
1340 * | 1&79 O3D6D05C740C6E4D5 1F94 1405 oc CL2B8°LONG FUNCTION SWITCH SAMPLED® 
1ED4 00 1ED4 1341 oc XL1*00°* | 1F81 C3E3C9D60540E2E6 1405 
1—ED5 0001 1ED6 1342 ONE oc xLz2*ooo1* LF89 C9E3C3C840E2C104 1405 
LED? 0003 1ED8 1343 THREE OC Xt 2*0003° | 1F91 D7D3C5C4 1405 
1E09 0004 1EDA 1344 FOUR oc XL2*0004* | 1F95 15 1F95 1406 oc IL1*21°* 
1ED8 1CC6 1EDC 1345 AMSTR1 OC AL2(MSGTR1-21) - 1F96 40 1°96 1407 MLFN DC XL1°40* 
1E€D0 1CFO LEDE 1346 AMSTEL OC AL2(MSGTE1-21) . 1F97 D3D6D05C740C6E4D5 IFAA 1408 DC CL20°*LONG FUNCTICGN SwWITCH® 
1EDF 00000000 1EE2 1347 WORK oc XL4@*OOt 1FSF C3E3C9D60540E2E6 1408 
1EE3 OOCO LEE4 1348 R1SAV: BC XL2°00°* = LFA? C9E3C3C8 1408 
1€E5 0000 LEE6 1349 R2SAV2 DC xL2*o00° ae 1FAB 18 1FAB 1409 oc IL1L*24* 
1EE7 OO 1EE7 1350 SWITCH OC xt1°00* | 1FAC 40 1FAC 1410 MFDS oC XL1°40* : 
1EE8 OO LEESB 1351 SWIT1 OC xt1*00* | 1FAD C6C5C5C4C2C1C3D2 1FC3 1411 oc CL23*FEEDBACK SWITCH SAMPLED® 
1EE9 000147 1EEB 1352 CDELOS DC XL3*OQ00147* i 1FBS 4OE2ZE6C9E3TC3CE40 1411 
1LEEC 000335 LEEE 1353 CDEL23 DC XL3'000335° | 1fB8D E2C104D703C5C4 1411 
1EEF 001000 LEF1L 1354 CDEL1O DC XL3*00100D* ' a 1FC4 10 1FC4 1412 oc I1L1°16° 
LEF2 OCO186A 1EF4 1355 DLAY oc XL3*O0186A* | .. 1F—C5 40 1FC5 1413 MFO oc XL1°40° 
1EFS OO186A LEFT? 1356 TIM cc XL3*OO186A° | 1FC6 C6C5C5C4C2C1C3D2 1FO4 1414 oc CLIS*FEEDBACK SWITCH* 
1EF8 FAOO 1EF9 1357 CDOS oc XL2"'FAOO* bg 1FCE 40E2ZE6C9E3C3CE 1414 
1EFA FFC821 1EFC 1358 CD1SEC DOC XL3°FFC821° to 1f05 0101 1F06 1415 oc xL2*o101° 
LEFD FFFA2S8 1EFF 1359 CD1CO OC XL3*FFFA28* | LED? 15 IFDT 1416 Dc IL1¢21°* 
1F00 00800000 1F03 1360 S7KTO7 OC XL4*00800000° | 1F08 40 1FD8 1417 DC XL1°40° 
1F04 00400000 1FO07 1361 STRTOB DC XL4*004C0000° 1FD9 E4D7D7C5D940E2C8 IFEC 1418 oc CL20*UPPER SHIFT REQUIRED® 
1F08 00000004 LFOB 1362 STATOS DC XL41'00000004* | 1FEL COC6E3S40D9CS5D8E4 1418 
1FOC 080211 1FOE 1363 xCST1 OC xL3*080211* | 1FE9 CODST5C4 1418 
LFOF 17CD 1F10 1364 TEM2 oc AL2Z(NOTREL) : LFEO 15 1FED 1419 oC ILit2i¢ 
1Fli 0000 1F12 1365 SAVPSR DC xL2*00* | 1FEE 40 1FEE 1420 DC XL1*40° 
1€13 1700 1F14 1366 TEMPAR DC ALZ(RESET) is LFEF D3D6E6C5D94CE2C8 2002 1421 DC CL2O0'LOWEX SHIFT RECUIRED* 
LF1IS 17€3 1Fl6 1367 ADRSER OC AL2(SELECT) ft eit 1FFT CSC6E3S40DSC5DSES 1421 
LFELT 1749 1F18 1368 ITLVi OC AL2(CONSLE) 1FFF C9OD9CS5C4S 1421 
1Fi9 1418 1FiA 1369 AINCB1 OC AL2€INCB1) fo 2003 OF 2003 1422 oc IL1*15* 
LFIB 1435 1F1C 1370 AINCB2 DC AL2CINCB2) Se 2004 40 2004 1423 MCTL pc XL1°40# ; 
1F1D 0000 1FLE 1371 KEEP1L DC xL2*0000°* ; 2005 C3E8C303C540E306 2012 1424 c CLI4*°CYCLE TOO LONG* Pa a eg eur ogo 
LF1F 0000 1f20 1372 KEEP2 DC xL2*0000* aa 2000 D640D3D6D05C7 1424 
1F21 80 1F21 1373 HEx80 DC xLi*8o° 1 ke 2013 OC 2013 1425 pc IL1*12°* 
1F22 0000 1F23 1374 SAVI oc xt2*oo* 2014 46 2014 1426 MXTRA OC XL1*40# 
1F24 0000 1F25 1375 SAV2 oc Xi.2°00* io 2015 CSETEZD9CL40C3E8 201F 1427 oC CLLILY*EXTRA CYCLE*® 
1F26 0000 1F27 1376 oc xLz*oo* pee 2010 €303¢5 1427 
128 0000 1F29 1377 ZERO oc xXL2*O0* ; 2020 12 -2020 1428 Bc IL1°18* 
1F2A FIFI 1F28 1378 LOWER OC cL2*iz? : ! r 2021 40 2021 1429 MF2L pc XL1°40* 
_ Le2c 6ceéc 1F2D 1379 UPPER DC CL2*sse oo 2022 C6C5C5C4C2C1C302 2032 1430 oc CLI7*FEEDBACK TCO LATE* 
- LF2ZE 4040 1F2F 1380 SPACE DC XL2*4040° 202A 40€3D60640D03C1E3 1430 
1-30 78006000 1F33 1381 STATSP DC XL4°78000000* i, 2032 C5 1430 
1F34 000000 1F36 1382 COUNT DC XL3'000000* i 2033 0101010101010101 203A 1431 pC X£L8*0101010101010101° 
1F37 FOFOFO 1F39 1383 ZONE1 OC XL3*FOFOFO! . 2038 10 263B 1432 BC IL1*16* 
IF3A Fl LF3A 1384 FI oc XL1°F1S yes 203C 40 203C 1433 oc XL1'40° 
1F3B FLF2F6 1F3D 1385 F126 oc XL3"FLF2F6* A 203D D7D9C9D5E3C5D940 2048 1434 DC CLLIS* PRINTER ENABLED® 
1F3E 12F6 1F3F 1386 END7A OC AL2( ENOT} 2045 C5D5C1C20305C4 1434 
1640 12FA 1F41L 1387 STATCA DC ALZ(STATCK} Poesy 204C £4 204C 1435 oc ¥IL1°20° 
1F42 FFFF * 1F43 1388 HEXFF OC XL2*FFFFS joe tae 204D 40 204D 1436 MMAL BC XL1°40* 
1389 * 204E DTD9C9DSE3C5D940 2060 1437 DC CLI9*PRINTER MALFUNCTION? 
1390 * STATUS MESSAGES : , Qo 2056 D4C105C6E4D5C3E3 1437 
1391 * Se 205E C9D46D5 1437 
1F44 O1 1F44 1392 pc IL1*O1* : 2061 19 2061 1438 oC ILit25* 
LF45 01 1F45 1393 FIRST OC 1L1*01°* 7 2662 40 2062 1439 MXLAT OC XL1*40* 
1€46 0101010101010101 1F4D 1394 oc XLBS*OLOLOLOLOIOLOIOLF Re 2063 D7D9C9D5E3C5D940 207A 1440 oC CL24* PRINTER TRANSLATOR CHECK® 
1F4E 0101 1F4F 1395 DC XL2'0101° - 2068 ESD9CI1D5E2D3C1E3 1440 
1f50 09 1F50 1396 oc IL1*09¢* : 2073 D6D940C3C8C5C3D02 1440 
1F51 40 1FS1 1397 oc XL1°40* Role 2078 oc 2078 1441 oC ILl*12° 
LF52 G5SDE4OD7D9C9USE3 LFS59 1398 oc CL8*NO PRINTS 207C 40 , 207C 1442 MEOF oc XL1°40¢ 
LFSA 1A 1F5A 1399 oc ILi* 26* 2B 207D C5D5C440D6C640C6 2087 1443 oc CLIL*END OF FORKS 
LFSB 40 1F5B 1406 oc XL1°40°* eo Mead 2085 D6D9D4 1443 
LF5C DTD9C9D5E3C50940 1F74 1401 oC CLZ5* PRINTER SHIFT MODE SWITCH® 2088 OC 2088 1444 DC IL1®22¢* 
1F64 E2CB8C9ICGE340D4D6 1401 ae 2089 40 2089 1445 MEOL oc XL1°40* 
1F6C C4C540E2E6C9ESC3 1401 208A C5D5C440D6C640D3 2094 1446 — OC CLI1*END OF LINE® 
LF74 C8 1401 ' 2092 C9D5C5 1446 
1F75 0101 1FT6 1402 oc XL2*0101° gt 2035 OD 2095 1447 oc IL1*i3° 
LFT7 1D LF77 1403 pc IL1*29° | & > 2096 40 2096 1448 MBUSY DC XL1*40¢ 
| 
CATE 29AUGT5S O7TNOV7S PROG ID 102-1) © pate 29AUGT75 O7NOV75S a - — Bila eo si PROG ID 102-1 
=C NO. 827804 827805 PAGE 12 | EC NO. 827804 827805 PAGE 12A 
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PAGE 13 i, | PAGE “13A 
1021 SECTIGN 2-~INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 1021 SECTION 2--INITIAL PRINTER DIAGNOSTIC TESTS MGD 12 
ERR LOC OBJECT COOE ADDR STMT SOURCE STATEMENT C2 CROSS~REFERENCE 
2097 D7TDICIDSE3C50D940 20A2 1449 oc CLiZ2*PRINTER BUSY® ; ‘ SYMBOL T LEN VALUE OEFN REFERENCES 
209F C2ESE2E8 1449 * 
20A3 18 20a3 1450 OC IL1*°24° ADONEA A 006 1516 0950 0948 
20A4% 40 Z20A4 1451 oc XL1*40* ADONE1 A 006 1659 1040 0148 1027 
20A5 D5D6056007D9C905 20688 1452 oc CL23*NON-PRINTABLE CHARACTER® ‘ ADRNSG A 002 1413 0876 0868* 0879% 0880 
Z20A0D €3C€1C203C540C3C8 1452 ADRSER A GO2 1F16 1367 1114 
2085 C1D9C1C3E3C509 1452 ADTRE A 006 1589 0980 0975 
208C 0101 29BD 1453 oc XL2*0101¢ ADTRE1] A 006 I14EF 0940 0929 
20BE 1A 2ZQ0BE 1454 DC IL1*268 , ADTRE2 A 004 14F5 0941 0951 
208F 40 208F 1455 MPEND OC XL1*40° ADOTHO1! A 004 1681 i062 1043 
20C0 D7D9CIDEE3SC50940 2008 1456 oc CLZ25*PRINTER INTERRUPT PENDING® ADTWOS A 004 15FB 1016 1067 
20C8 CIDSE3C509D9E4D7 1456 ADTWO4 A 004 16D3 1071 0984 1063 
20C0 £€340D7C5D5C4C9D5 1456 AINCB1 A 002 1FlA 1369 08sso 
20D8 CT 1456 AINCB2 A 002 LF1C 1370 0895 
2009 40050605C5 200D 1457 NONE oc CLS5* NONE®* , : AMSTE1 A O02 t1LEDE 1346 08146 
20CE 20DF 1458 WORK1 ODS CL2 bg AMSTR1I A 002 1EDC 1345 0800 
20E0 20E1 1459 os CL2 | ARR C 001 ooo8 1473 0111 0626 0629 0632 0650 06652 0792 C904 0914 1012 1087 1164 
20E2 Z20E3 1460 WORK3 OS CL2 ' 1173 
20E4 20E6 1461 WORKS ODS CL3 ' BBC A 004 isodl 1169 1164 : 
20ET7 20EA 1462 STATUS DS CL4é i BBC1 A004 I17F5S 1164 0119 0923 0998 10046 1021 1051 1059 
20EB 20EE 1463 STEHDB OS CL4 : BCK A 008 1800 1217 0545 
Z20EF COC640D9CSE3ZE4D9 2100 1464 pc CL18*1IF RETURN FAILURE * GK' CABL A 005 1LDO7E 1250 0693% O704* 
20FT7 0540C6C1 C903 E4D9 1464 : CABLE A 005 1098 1253 0689 
20FF C540 1464 ‘ CAB552 A COS 11F2 90702 0698 
2101 C3C8D24004C5C3C8 211D 1465 FDB Doc CL29"*CHK MECH ENTRY CHRT PG OOI1-A * GK’ CARD A 004 1863 1184 0723% O727 
2109 40C505E3D09E840C3 1465 i CARDS A 004 1867 1185 0712 
2111 C8DYE3Z4007TC7T40FO0 1465 CDELOS A 003° I1EEB 1352 0633 
2119 FOF160C140 1465 CDEL10 A 003 1€F1l 1354 0627 
ZLLE C3C8D24007E30940 213D 1466 PRNTRD OC CL32*CHK PTR RD SW WIRING GC552-GC553* GK! CDEL23 A 003 1EEE 1353 0630 
2126 O9T4S40E2E640E6C9 1466 ' cd05 A 002 LEFS 1357 0122 0926 1024 
Z212E D9CIDS5C740C7TC3FS5 1466 / ‘ CDISEC A 003 ILEFC 1358 0980 
—— oo 2136 FSF 260CT7TC3F5F5F3 1466 i---€D100 A 003 LEFF 1359 0940 1040 ext as 
Z213E O7D9E340C6C4C202 214E 1467 FOBRSW OC CLi7*PRT FOBK REED Sw)® GK CHECK A 004 13c9 0853 0845 
2146 40D9C5C5C440E2E6 1467 - CHECK] A OOS 13E€¢@ 0863 0858 08s8s9 
214E 5D 1467 ; CHKPRE A 004 12A3 OU76l 0752 
; - 43468 8 ComMP1] a0oo03 oODl12 C285 0292 
1469 * EQUATES COMP2 a 004% OD2D 0293 0286 
1470 ® \. COMP3 A 004 OD31 0294 0290 
C001 1471 XR1L EQU x*Qo]* , COMP4 A 003 0026 0291 0288 
0002 1472 XR2 EQU x*o2* - CONSLE A 004 1749 =1110 1368 
0008 1473 ARR £QU = x*Oos* CON] A G04 1219 49713 0741 
OZ21A 1474 PRINT €EQU X*21A* , CON11 A 004 2L1AQO O677 0664 
O2Z1E 1475 UNPACK EQU X*21E°* cor A 00S 133F 0808 O0800* 08098 08)]42% 
0216 1476 LINK £Qu x*216° . ‘“- COUNT A O03 1F36 1382 0069% 0079 0d0085% 0086 
022A 1477 LGAD EQU X*O022A* . col A 003 I11BE 0687 0676 
0222 1478 HALT EQU X* 222° . CRTNO A OO1L OAOGZB 0022 1037 
0020 1479 PLIAR EQU x*208 : . CRI A 004 150B 06947 0945 
0004 1480 PSR EQU X* 04? DELOS A 004 1123 0632 0591 0608 0610 
0018 1481 PRNT EQU x*1g¢ : a DEL100 A 004 1109 0626 0072 0586 0603 0606 it69 
QOO1] 1482 RDSWM EQU x*o1° REEO Sw WIRING HSG FLAG GK - DEL23 A O04 1i16 0629 0589 
0010 1483 MECM ECU x*10°8 MECH ENTRY CHRT MSG FLAG GK OLAY A 003 I1LEF4 1355 1093 
0008 1484 FDOBCBM EQU x*os* FDBK REED SW CABLE MSG FLAG GK .. DOER A 003 1336 G805 0811 
0080 2485 SECM EQuU x*goe SECOND MSG FLAG GK SC. OOER1 A CO& 132E 0803 0818 
FFFF 1486 END OOIT A 005 I13E8 C864 0886 
. - 073 A 003 ODAO 0333 0298 
{ 074 A003 OECD 0435 0413 
ee ENODEL A 004 1137 0636 0626% 0629% 0632% 
i ENDG A 004 1745 1104 1087* 1098 
: ENOM A 004 1486 030s 09048 
° ; . ENDPRT A 004 16F9 1081 0111% 09142 1012% 
; : . ENDS A 004 1815 1177 11733 
\ . ENDSTR A 00S 1472 0899 o792¢ 
: ; ENDZ A 004 I1T7F1 1160 LL1l11* 1118 11218 
. E€NDOS A 004 O80A 0110 0103 
. ENDO6 A 004 12D1 0777 0762 0769 
END6 Aa 003 1280 O751 0744 
: 1 of END61 A O04 L2E4 Oo782 0403% 06512 0674 
; \-END66 A 004 1215 0712 0688 
| : 
DATE  29AUGT5 —-« OTNOVT5 | PROG ID 102-1! (pate  29auG75 —O7NOVTS : PROG ID 102-1 
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PAGE 14 | a PAGE 14A 
; 
1021 SECTION 2—--INITIAL PRINTER DIAGNOSTIC TESTS “0D 12 | 1021 SECTION 2--INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 
CROSS-REFERENCE | kL CROSS-REFERENCE 
SYMBOL T LEN VALUE ODEFN REFERENCES SYMBOL T LEN VALUE CEFN REFERENCES 
ENDT A 004 12F6 0789 0650* 0653* 1386 MARK5 C O0O1L 0004 1335 0128 0137 0946 0962 
END7A A 002 1F3F 1386 0674 ; - . MARK6 C O00OL 0002 1336 013i 09469 
EOF A 007 1D4E 1245 0537 0562 MARK? C O0OL 0001 1337 1064 1066 1068 
- EOL A COT 1009 1260 0104 MBUSY A 001 2096 1448 O118* 0614 0921* 1019* 1LO77*% 
EXPSTT A 004 13B8 0846 0892 MCTL 4 001 2004 1423 0977T# 
FDB A029 2110 1465 0057* 0106% 0158% 0169% 0194* 0198 0225% 0233 0236* 0244 0250* 0322 MECM C 001 colo i483 0058 0107 0159 0170 0251 0323 0365 C472 O761 0763 0958 
0364 O471* OF67 O771* 0957* 0992% 0996 MEOF & OOL 207C 1442 0534% 0561% 
FOBCBM C COOL O008 1484 MEOL A 001 2089 i445 0105 
FOBRSW A O17 214E 1467 0160 : MFCU & 003 OAOC 0026 0730 
FOSW A016 1002 1259 0168 MFD A OOL 1FC5 1413 0144* 0173% 0935* 1033* 1056% 
FIRST A 001 1F45 1393 0853 MEDS A 0Gl 2FAC 1410 0139% 0174* 0938* 1036 1057% 
FOR A&A 007 IAFB 1216 0518  MF2L A 001 2021 1429 05423 
FOUR A 002 IEDA 1344 0809 MLEN A 001 I1F96 1407 0954# 0969% 
Fl A 001 1F3A 1384 + °&3#+0085 : MLENS A OO1 ILF7B 1404 0955* 0964 
F126 A 003 1F3D0 1385 0086 MMAL A001 204D 1436 0444% 0596% 0976* O0990% 1049% 
F2 A 004 OC3E 0208 0210 ; *OD1 A 004 1476 0904 0093 0836 1176 
GC095 A 005 1D02F 1242 0704 _ + &OD02 A OOL 123F 0725 0670% 0683 
G6C552 A 005 10BB 1257 0702 ' '. (#OD3 A 6001 1255 0733 O671* 0684*% 
GC553 A005 1086 1256 MODS A 001 1204 0706 0672% 0685* 
GGG A 004 ODE6 0349 1039 Moods A 001 11086 0695 0669* 0682% 
Gl A 004 ODC3 0342 0338 . MOD6 & 005 11D2 0693 
G2 & 006 OD004 0282 0347 0371 MOD7 A 001 1282 0746 0&73% 0686*¢ 
HALT C 001 O222 1478 0065 0120 O176 0203 0255 6277 ©0330 0369 0404 0432 076 0505 MPEND A OOL 208F 1455 1076 
0528 0555 O787 0924 0999 1005 1022 1052 1060 1140 1153 MRETRY A O17 1903 1204 1168 
HEXFF A 002 I1F43 1388 0073 0209 0742 MSGACP A O19 IBCL 1224 0056 ; 
HEX80 4 001 1F21 £1373 0740 o891 ; MSGCAB A OO1l 1D92 1251 O0051* 0104* 0160* 0168* 0223% 0321* 0355* 0358% 0425% 04654 0494* 0537 
Hi A 006 OEVTF 0409 0455 0478 oe Ny 0562* 0697 O700 0700 O701* 0708 O779 CTT9* 11012 
H2 A C04 OFO6 0450 0441 MSGCKP A023 I1A2C 1208 0299% 0303 0414* 0418 ; 
H3 A 004 O€£FB 0447 0443 . _ MSGEXP A 020) 1C8F 1232 0851 
_ H& A 0046 OFT7TL 0480 0487 — MSGINT A 049 1€13 1228 1151 
H41 A 004 OF6D 0479 0507 MSGNON A O06 OB8AOD 0149 0084 6136 
HS & 004 OFS90O 6488 0434 MSGRCV A 020 i1CA2 1233 0843 ‘ 
INC A 003 1259 0736 0715 O722 O729 0731 . MSGRES A 014 1020 1239 0064 0202 0276 0329 0402 0431 0504 06527 0554 
INCADR A 003 13F8 O867 0866* O878 MSGSLT A 008 1B8€9 1225 0748 : 
INCBTO A 0C4& 1414 0877 O872 O890% 08S5*% . MSGSPC A 022 iBE2 1227 0083 
INCBL A CO6 1418 C878 1369 © MSGTEX A 030 1CFO9 1237 083i 
INCB2 A 006 1435 0885 oaT? 1370 MSGTEL A 025 1D12 1238 0817 0817* 0835 1346 
INCR A 006 134A 0810 0807 . . MSGTPB A O26 ILBAE 1223 0312 
InC2 A 003 1208 O709 0692 07063 MSGTRC A 030 1CC2 1235 0822 
INTPL A 015 1060 1248 1161 ; MSGTR1 A 025 1CO0B 1236 0799 0O799* 0826 1345 
ITtVi A OG2 1F18 1368 1094 10954 2158 MSGXTM A 037 IC7TB 1231 0491 
11 A 004 2013 06540 0533 ‘ \ MS6017 A 019 1€56 1230 1138 
I2 A 006 1025 0545 0541 MSGO7 A 031 18C2 1196 0041 
13 A 004 106D 0567 0560 : . MSGO8 A 024 180A 1197 0046 
JMP A 003 JlLIL0F 0698 0155% 06998 ; ' 4 MS609 A 052 190E 1198 0050 
KEEPL A OO2 ILFLE 1372 O0870* 0884 ; MSGi0 A 044 1844 1181 0153 
KEEP2 A 002 2F20 1372 0878* O879 ' » MSGIL A 026 1928 1199 0166 
Kl A006 10C4 0600 0595 ' MSG12 A 035 1948 1200 ~ 0735 
K2 A C04 1104 0617 0613 “4SG13 A 032 1968 1201 0192 
LENGTH A 001 14211 0875 0864* 0865+ ~ MSGI4 A 038 1991 1202 0224 0234 0235*% 0245% 0498 
LENL A 001 1381 0825 0348* 0456% OC827% . MSG6141 A 035 1B6A 1221 0756 
LINK C 001 0216 1476 0116 06212 0332 0485 0567 MSG142 A 042 1894 1222 0760 
LOAD C O01 O22A 1477 0617 . M8615 A 033 1982 1203 0216 0224 0229 0234* 0240 0245 
LOWER A O02 LF286 1378 0584 0601 %. MS616 & 038 1AL5 1207 0271 0387 
LWR A005 1025 1240 G267T 0299 MSG1i61 A 005 19C8 1205 O0267# 0383% 
MAG A019 I1DEC 1261 0223 0494 , MSG19 A 049 AGA 1213 0352 
MARK A 001 1E€D2 1329 0052* 0128 0131% 0135 0137 0140* 0143* 0147% O157% O0167% 0218% 0222% % MSG20 A COS LAT? i2iil 0249 0319 0362 0470 o775 
03213% 0320% 6354% 0363* 0382% 0424* 0462* C466* 0493% 0657* 0662% 0663 MSG21 A 048 1AA3 1212 0392 
0675* 0743 0749% 0896* 0946% 0949% 0952 0956* 0962 0965* 0968* 0972¢ , MSG22 A O19 1AB6 1213 0395 
O981* 1064 1066* 1066* 1090 1097 1122* 1123 1125% %~ MSG623 AO2Z29 1AD3 1214 0460 
MARKO C 001 O080 1330 1090 1123 MSG24 A030 JLAFL 1215 0518* 0522 0545%* 0549 
MAREE C 001 0060 1332 1097 1122 . SG30 A O12 180C 1218 0308 0423 
MARK2 C 001 0020 1332 ‘ MSG41 A017 1810 1219 0580 
MARK3 C 001 060010 1333 0052 O187 06167 O218 0222 0313 0320 0354 0363 0382 0424 0462 MSWARN A 048 1€43 1229 0786 
0466 0493 0663 0675 1125 ~ MVE A 003 IBCC 1226 00794 
MARKG C 001 C008 1334 0657 0662 0743 O749 \ MXLAT A 00lL 2062 1439 0339% 04474 
: i 
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EC NO. 827804 827805 : PAGE 14A 


EC NO. 827804 827805 PAGE - 14 


eeoeeveveneeneoneceoenee0 ée$0o ®©e0e0080068080800 ®@ ee eo @ 


oe tes me 














CoeeeeeoeeoeeseeeeeseLeSoe oo eo eoeo ESE ECS 


e. 


° 


fi. 2 
Lt: 
1 
! 


1 hdiajieiclian tinea nese sei ete e on 


‘ 16M MAINTENANCE DIAGNOSTIC PROGRAM PART NQ. 4248246, IBM MAINTENANCE DIAGNOSTIC PROGRAM . PART NO. 4248246 
( PAGE 5. PAGE 15A 
3 2021) = SECTION 2-~-INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 1021 SECTION 2--INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 

; iy 2 

{ , CROSS-REFERENCE tL: CROSS-REFERENCE 


i Sy¥mpOt ¢f LEN VALUE CEFN REFERENCES ;# SYMBOL T LEN VALUE DEFN REFERENCES 
MXTRA A OOL 2034 1426 0597# ‘ ‘SIORT A 004 16FD 1087 1080 
NEXT A 004 1768 1118 1116 S104 A 003 1723 1096 1100 
{ NONE A 005 2000 1457 0862 0888 SPACE A 002 I1F2F 1380 0068 0090 0206 0235 
' NOPRT A OO7 1D0C2 1258 0051 O701 STATCA A 002 I1F41 1387 0403 0651 
i NOTRES A 004 17A8 1135 5 1115 1117 1144 STATCK A 004 12FA 0792 0175 0254 0368 0475 0782 0922 0991 1003 1020 1050 1058 1387 
i NOTRE] A 004 17CD 1148 1364 STATSP A 004 1F335 1381 0067 0149 0188 
N2L2 A 004 1783 1125 1128 1130 STATUS A 004 20EA 1462 0075* 0076 O077 0088 0091% 0092* 0094* C095* 0096* 0097 0102 01132 
ONE A 00O¢ 1€D6 1342 0153 0634 03865 0931 0950 1001 1029 1954 1099 ng 0114* 0116 0124 0126 0129 0132% 0335% 0336* 0337 0343*% 0346 0437% 
PRINT C 001 O21A 1474 0038 0043 0047 0053 0061 O080 0150 6163 0189 0195 0199 0213 i Cc? 0438* 0440 0442 0451* 0454 0532 0535% 0536%* 0540 0559 0563 05644 
0226 0230 0237 0241 0246 0268 0273 0300 0305 0309 0316 0326 0593 0594 0612 0795 0837* 0844 0905* 0906* 0907% 0916* 0917% 0919 
0349 0359 0384 0389 0393 0399 0415 0420 0428 0457 0467 0488 i ~ 0928 0930* 0933 0936 09414 0942 0944 C947 0973 0974 0983 0985% 
i 0495 0501 0519 0524 0546 0551 0577 0665 O677 0694 0705 0717 1 €3 O0987* 0983 1014*# 1015* 1017 1026 1028¥% 1031 1034 1042 1044* 10462 
0724 0732 0745 0753 O757 O764 O772 O780 0783 0823 0832 0840 : 1047 1062 1070 1073 1074 1112* 11134 1129 1174* 11758 
0846 0848 0859 O873 0893 0993 1135 1148 1165 STATOO A 004 1FOB 1362 0530 
PRINTS A 004 15E€C 1012 0208 0342 0450 0483 STRTC7T A 004 1F03 1360 0282 0480 
PRINT] A 004 OBOE 0111 oo71 o0o99 STRTOB A G04 IFOT 1361 0409 
PRINT2 A 006 OB36 O2%22 0117 STSHDB A 004 20EE 1463 0067* 0097 0101* 0115*%* 0123 0149* 01884% 0282% 0289* 0293* 0337 03448 
PRINT3 A 0C4& O898 0147 0125 Ke 0345* 0346 0409%* 0439% 0440 0452* 0453% 0454 0480% 0530% 0557% 05824 
PRINTS A 004 OBS2 0127 0127 0583* 0600* 0796 0838%* 0852 0918* 0927* C982* 1016*® 1025* 1041* 10712 
PRINT5 A 004 O8SD 0132 0130 A 1072* 1091% 1092% 1157% 
PRINT6 A 004 OB40 0124 0134 suB A 006 112D 0634 0628 0631 0635 
PRINTS A 004 OB89 0143 0138 ; SwITCH A 001 ILEET 1350 0654* 0740* 0801* 0812 0816* 0839% 0891% 
PRNT C 001 0018 1481 O112 0206% 0333* 0435* 0481% 0584 0585 6587* 0588 0590 0601%* 0602 .  S$WITL A OOl ILEEB 1351 
0604* 0605 0607 0609 O915 1013 1096 1132 1134 : SYNCC A 904 14CO 0928 0932 
PRNTRD A 032 213D 1466 0720 : SYNCC2 A 004 1597 0983 1002 
PRTMSG A 001 1E€D3 1338 0058* 0107% 0156* 0159% 0170% 0219% 0251*% 0323% 0365*% 0472* 0714 0716% SYNCP A 004 1622 1026 1030 
0761 0763%* 0768 0O770* 0958% 0959% ~ SYNCPL A 004 1663 1042 1055 
PR1 A 006 1618 1024 1018 TABLEA A 001 JLEBF 1321 0284 
PR2 A 006 1691 1054 1048 ; . TABLET A 004 1LEAS 1317 0804 ~ 
i PR3 A 004 16F5 1080 1075 - * TABLES A 001 JEBS 1319 0479 
PSR C 001 0004 1480 1110 11598 : TBLE3 A OOL 1€47 1282 0281 
; PliIaR C 001 0020 1479 1111 1131% 11338 TBLE4 A001 IlE74& 1301 0408 
i ROSW A014 103D 1243 0355 0465 ' -.. TBtl A 001 10ED 1265 0280 
i ROSWM C001 0001 1482 0156 0219 0714 0716 TBL2 A O01 J1ELA 1273 0407 
i REP A 025 1850 1182 0668 0680 7 _ TEMPAR A 002 I1F14 1366 1133 
: REPLCE A 004 1138 0650 0Cc59 0108 0141 0145 O161 O17 0220 0252 0314 0324 0340 0356 . TEM A 002 1F10 1364 1131 
0366 0397 0426 0445 0448 6463 0473 0499 0538 0543 0565 0598 THREE A O02 IED8S 1343 0653 1121 
: 0615 0960 0966 0970 0978 1078 1102 1126 1142 1145 . TIM A 003 IEF? 1356 1093% 10998 
REP15 A 006 OAA2 0085 0078 0100 “_. TOR A 004 1DSE 1247 0321 0425 
REP25 A GO& OAE6 010) 0087 9O089 ; TST A v03 1230 oO721 0713% 0728 0737 0737* 0738 
REP35 A 006 OA90 OCOT79 0098 . TSTBTO A 003 1406 0871 0863* 0885 0885 
REP555 A 004 OA7S COT72 0074 . ~ JSTR A 003 1339 0QO806 0803* 0810 08104 
RESET A QO0& 170D 1155 1147 1366 TSsTt2 A003 11CC 0691 0690* 0710 O710* O711 
RETURN A 004 148A 0914 0205 0211 0279 0406 0482 , . TYPBL A 004 OF29 0457 1038 
: RET1 A 006 1486 0926 0920 ~ UNPACK C 001 O21E 1475 0819 0828 
RET3 A 004 oOCS2 0213 0939 : UPPER A 002 1F26 1379 0587 0604 
RET33 A 004 1546 0962 0953 - UPR A 005 102A 1241 0383 0414 
RETS A 006 1504 1001 0989 “ - UVWXYZ A 001 OAdd 0005 : 
RETO A 004 155C 06968 0963 WORK A 004 I1EE2 1347 0795* 0796* 0797* 0798* 0£02 0815 0821 0830 0986 0986 1645 1045 
RET99 A004 15€8 0972 0943 + . WORK A 002 20D0F 1458 0652* 0658 
RTNO1l A 001 OALO 0034 0024 ' - WORKS A O02 20E3 1460 O122*% 0133% 0926* 0931* C940* 0950 CS8C® 1001*® 1024 1029% 106404 10548 
RTNO2 A OOl OCO& 0184 0036 WORK4 A 003 20E6 1461 0627# 0630* 0633*% 06348 
RTNO3 A OOl OCD6 0263 0186 xXCST1 A 003 12FOE 1363 0582 
RTNO&4 A OO] OF30 0378 0265 S. XR C 001 0001 1471 O207* 02094 0280* 0287 0295 0295* 0333 0407*# 0410 O410# 0435 0655 
RTNOS A O0O1 OFCS5 0514 0380 ! 0658* 0659 0661 O687 0691 O721 0739 ©6739% 0742* 0750 O751 O777% 
RTNOG A O01 1071 0573 0516 ies, 0793 0802* 0806 O815* 0844* 0852* 0854 0855 0856 0857 O871 O8B7 
RISAV] A 002 ILEE4 1348 0793% 0897 1088% 1155 ‘ €3 0887* 0897% 1088 1118* 1119 1155% 
R2SAV2 A 002 ILEE6& 2.349 0794* 0898 1089% 1156 XR2 C oct O00O2 1472 0070* 0073* 0281%* 0283 0284* 0285 0287 0291 02918 0294* 0296 02968 
SAVPSR A002 ILFl2 i365 1110# 1159 | ~ 0297 0345 0408* 0411 0411%* 0412 0453 0479% 0481 U484 0486 04863 
Savi A 002 1f23 1374 0655* 0777 e: 0656 0689*% 0693 0702 0709 0709* 0712% 0723 0736 07369 C778# 0794 
SAV2 A 002 1F25 1375 0283% 0294 0656% 0778 | 0804* 0805 0805% 0808 08534 0864 0866 C867 O867* 0868 0869 08698 
SECK c 001 OO80 1485 0768 0770. 0959 | cs 0870 O0880* 0881 0883 0884* 0888 0898% 1089 11568 
SECTIM A 004 12AE 0764 0776 ; C zero A 002 1F29 1377 0343 0344 0451 0452 0536 0564 06CO 
SELECT A 004 17C3 = 1145 1367 i ZONE1 A 003 1F39 1383 0069 
SENSOR A 004 1865 1173 0334 0436 0531 0558 0592 0611 | o 
SHIFT A010 1047 1244 0358 , \ TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
| 
DATE  29AUG75 O7NOVT7S PROG ID 102-1! C pate = 298UG75 ss OTNOVTS + 3 — ys. a PROG ID 102-1 
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1021 SECTION 2——-INITIAL PRINTER DIAGNOSTIC TESTS 


THE CHARACTER 


40D 12 


OBJECT CARD LISTING 


PART NO. 


4248246 


PAGE 16A 


INDICATES A BLANK COLUMN AND THE CHARACTERS DO — H INDICATE NUMERIC SHIFT. 


CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 


GBK GBD PN 42 


T+-Y: DBD B/ 


T+-Z5F-DLFaDa" KD 


T+-DO/101(-H=88 


Tt-g5¢ -—2 ?HETD 


wo 


i 


& 


T4-EWH+» 2DAU<KA/6 


 T4=_/CTL¥HIE /1- 


T+->* KCTG_$S H 


“ Te-?P/LRRCO <-#/8 
T+#-OKHCYEG_H<C16 


‘Ta 2 (HAV »D+<a'2D 


T+-2HOH*#BEZBG /e 


T4#-3C /DAGKDIC D 


., T+-3=428BGDLZBHHC 


T+-49#*HBGUCK< 2C 


( [4-54 $7" < ACE 


T+-674/ 34-0C6Q< 


_ T4-7D SCDH4+#2-£% 


T4+=BV<JZDD HiDA¥ 


_ T4=9-CH*BH/ BOH* 
_T4-28 /YFCs4-C D 


. DATE 29AUGT5 


EC NO. 827804 


Medes ce 8280s 
ane DOL 
)+/  34aBGDL_BHHC 
ABXMOFKCD+ED-: TU 
QG2a0F2C Y<AU-: 2B 
FG)UaPBBIT10/GLY 


SOH*BH/ FC 0-81# 


#60343 68: BAAS 
3OH*BFZOSFDEEBTZ 
{G)Ha*2DI4/ 3428 
)OH*BF-O7HJ7 /OH 
AHJW2D O:DA#K4-D 
RyAWOC DRV/A7II< 
"ye soH*BHy <0 
>60<4 /aVO-Hs 787 
<AAYSGKP /OHEEKE 
IPT35HJ4:DAKLOH® 
@PBASOHtU+4- <B 
KC 4)TJ4! OHRS+2E 
(A & CaM:DAEKC & 
K91* AOH*BH/C VOH® 


O7NOVTS 
827805 


PRINTER/KEYBOARD 
” /OHES /@00/CSOH* 
* /OHEA-8)H<BG SH 
GH+X2DAH< /2<G3$ 
GEGO#-BCX+08-2 TZ 
&G_| /1D#. A ON* 
9+ /--#C-QH+T2DED 
Kaz | 1E0~,CZFG_. 


Ds = J#Lt/ 34T3 


GDLED aPA"ETEO 


EA-8)H<BG SHEBAB 
34@BGDL_H :DA¥ 
/G*BG /DAHJW20H® 
+< ODF*#—-)1*BG /Z 
= |HAERG C2 &* 
E+JC 10H®BF-D<F03 
J#aH--<BG /YFC/4 
GEs0< SCOG2U< SC 
“eg o1GoU)saBG /Y 


R2A4D0H*BFUEKF/M 


MSZHAG/sB /93C < 


eeseeeeeoeede 


MOD 12 
BF-DQF(, /OHE TE 


&8-0CH+8-=<3D0G62a 


/OHE JUS8ZBGB: 
FH+-€ 2CDH+# 6&0 
BETEHE?33FH OF2C 


SDBCYA/ D+-E54TU 


/10#B 4003471 
SHJ4:DAHLCA )USE 
+s<BGD?, /OHSD Y 
GEHY1FAa70-D KaB 
KCAH)U/72C DR»AW 
BFYDIHJ4< JWOFES 
AM/YND4L /OHEA-8 
:-BCZaY*. B—-HAOQH* 
” JOHE /Y$,TYEG_« 
~CH*BH/C10H*BEXD 
>G2UZ BC, 4 Hee 
BBJZ3+/ 34T34HI4 


69*BG /YB<ADTOH 


~#/aG64-DA 8-HA?38 


84aa84aa 
RC-OFGQQ)0TYEG_- 
< /@6G3XB - ;0H* 
FHA@6G3Y( /36G37 
E0H* .CSBGHDH: BBC 
Y<AU-: TYEH+88DBC 
HH+T2D &f /#K<AZ 


*GaP /10#H +0Q 


+0OH® J+=H-O<XBG /Y 
8 30C <-#/a30H* 
GE306 J*CO D<IZB 
LILH/G*8G /DAHJW 
” /OHE &UE#337HI4 
)H<BG SHES<BGEH, 
(DT> H#05 /aV4-D 


"/1Des ” OH*BF-D 
Q <BGF M#ASCY+08 
~2@BACEEAtAtA0H® 
SDA#LOHRI+4Y~-<B 


BF-OLF,$ /10#6 


0 D+3£0DFS0)HZB 
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1021 SECTION 2--INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 --- 4021. SECTION 2=-INITIAL PRINTER DIAGNOSTIC TESTS MOD 12 
OBJECT CARD LISTING a OBJECT CARD LISTING 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 


CL 81 THROUGH 96, 
1 
} 
{ 


cL 


T+-#0EKEE+ JC 20H* BF-H<FOOSDA#KC < }-1530H*J+aH--<B G /YFC/4-OH*BH/C 20H*{UGDQ <B8GF M #AS 2£610210021: T+/ | YEA2T0-D-9"H GO*B8G /OKOH*BFYH MGH"B KC ,0-H~JGX GX; PwG Xw® *H &B<B8G /DAAKC) I DO MA20 PT*10210043 
Te-aJ2:CZDH4Y3-BC ,CEH-7SC>aYD)+ OD -:?HEB3L*HD7 41D #A fE0-QZBGDL. H C /1P2C H-:/3 ZC H P~<10210022' T+/ET AES 8 EAD 35S0 O"Y 8-H ( H MO=HB LEBG19B C. 2UuT /OHE-E <8 GECM< Aa-O"y! JE LG2 KJM102:0044 
T ++" <H4#8-HKO Hes C& —-:2CXO0HD4+—-30 8D8G /OHEO/4E41 C#/ 3428GDL_H <C J6(GL4:DA#KOH*® BF-H senioz1a023 T4#/J3 (EHMD#GA 1H A #1 \LMBG18+ AE GE ~ HAL Y4-DATEE H(X JTUC DME1la Ec- 3918/08 L><B G /Y #Z010210045 
T+#-=GBJZ3/ 1E/GLY &G6_1! /10#1 A OH* K=3BG SHE ABGCX® 8B /::C <-#/aCZI— OH*MSZBGE3 2° *0C ~&H 3.010210024. T+/KRUOOAEAt=GC? "G_H5 J#U(EHS9ZB G SBAKI+4 -3T_ SH+U#HKCYOH® C& HE?33FD OF2ZCY<AU -:TY KBU10210046 
° e aa e e ° ° . | e e e . ° ° oo 
T+="BESHB *BGC7G JOHEEKMS 3 1CY4+/ 34-OKGRHI#<BG /Y AI/WJOH*®J+0H ~<B G /YFC/4-OH*BH/C YOH* 8BU10210025' T#/LMOBCO+4A -32?H EDTL*FHIS /1.2:0H*® P**8G SHEACOAHt+< 3=LY3H+O8FBCYa/s Y<AZ—: BAH+<5 5% -E< Q&<10210047 
T#-" 'C&4E-AAIC Q E@A,SO0H*BFUDIF2 &:*BG /YFC/4-OH*® BH/CZC <-#/a.0H*® QAL-DH+,2DAZAPBA 34"% Q$810210026 T+s/MI+A -:]HEAC] *GAMBBBCYA/ DIEO ~,<BGCEH< SCTG?3 OF2CY*+ Q-:IHEEZU DH+T2D GZAAHK+EH -=2 IH PeY¥10210048 
T¢/ 8HEY< SCZG2U <A/6FGMA /1D#I A +66—3: ~HEB31*HBG 410#8#H Cc *EaJz OH*BFUDSF?7DE:Z8 G ZY Q2 10210027 T+/NHD &: /#KC-H -81#00B8 M*LUFG_. 2UAaaPA=OI1E04;CZ FG_HaaKD)+/ 343D G_| /10#A A+ & 34?7H LC@10210049 
e e - ¢ e ° ° ee | ° eee ees s e . 
T+/A3A-BS)H<BG SH E2TZDH+# /1-E4+EE —2 7HEF2Z1*HGO<KA/6 FGM8#=2COC H-sya ZOH*FJ+2E EXBG /Q F fa = €10210028, T#+/OEU SAPAt84+0Q 3428GDLZH #A/# KI[EO-V2ZBG0LZ- #A/#Ke D-2T-AH4tX 2U a@aPBACLEGQ-A<B GDL £.Q10210050 
i 
T+#/B>"aBG /ZFDJZ ID<D< SC>GO8#"2C »<J-H"<0-ZBGDEU 1FA@_@1SB0H*JE?< QHZBGOKI /1-E+ D -:T- ~9010210029,, Te/P A C H-8l1#@ 8+0034TZSH+09GSC YOA 043 $H+-—-(AJ# SG>HOFKCD+ED-27H EHCL*HD7 /1.:11% /G*# 361810210051 
eo e ea ee e e e es | ‘ant e se ¢ % e se es e : e 
aa OC TH/CZ SCZA/Z {EO -LLI*HAL /1D6A C <-#/aZ2<J3—--H"< = Q-ZBGDEULFAa@_81S BOHFJB-<OHZBGOK!| 3F H ay enone ~ T+/P#/CHEOI4S/GS DOH*P**BG SHEA B BHt<352 -—ER~ /1. <sOH*P'*BG SHEALE HE?33FH OF2CY<AU <-:TY 619010210052 
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poe erties 


can, ea eem so 


d 1031 


ERR LOC OBJECT CODE 


| 0a00 


OA00 
OA02 
0A03 
OA04 
OA06 
OA08 
GAOA 


NA0D 
OAOE 
OAOF 


0all 
Oa15 
0A19 
OA1D 
OA1E 
OA1F 
0A21 
0A23 
0A27 
0a28 
0A29 
0A2B 
OA2F 
0A30 
0A31 
0A33 
0a39 
0A30 
0A40 
0A44 
| 0A45 

0A46 

Oase 

OASC 

OA4D 

OASE 

0A50 

0as3 


DATE 
EC mQ. 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


5471 PRINTER KEYBOARD FAULT 


1031 
00 

00 
0000 
QAOD 
0000 
105000 


ol 
00 
OAB2 


34 10 1202 
35 CO 19E€1 
CO 87 O21A 
41 

41 

1395 

10€1 

CoO 67 0214 
02 

20 

1385 

CO 87 021A 
02 

08 

1354 

oc 12 13€8 
CO 87 OE30 
010408 

CO 87 0214 
01 

32 

1395 

CO 87 O21A 
06 

OE 

13¢c3 

F3 10 GO 
CO 87 0222 


29AUGT5 
8278604 


ADDR STMT 

2 

3 

4 

5 

6 

7 

7 

8 

9 

10 

il 

12 

13 

14 

15 

16 

17 

18 

19 

19 

OA01 20 

OA02 21 

0A03 22 

OA05 23 

OA07 24 

OAO9 25 

oaoc 26 

27 

27 

28 

29 

30 

31 

32 

33 

OAoD 34 

OAOE 35 

OA1O 36 

37 

37 

38 

39 

40 

OA1LD 41 

OALE 42 

0A20 43 

OA22 44 

45 

OA27 46 

OA28 47 

OA2A 48 

49 

OA2F 50 

0A30 51 

0A32 52 

1349 53 

54 

OA3F 55 

56 

OA44 57 

OA45 58 

Oa47 59 

60 

OA4C 61 

OA4D 62 

OA4F 63 

64 

65 
OTNOVTS 
627805 


LOCATION DIAGNOSTICS MOD 12 


SOURCE STATEMENT 


DECK 


SEQ 


4 
0 


UVWXYZ START X*OAO0O0* 


TREP 


SELESSESVESEKESSESSERKS O46 SEKREEKEEEESRSSERSERAESEKEKERSSERESEEESESESEERERERERE | 


PART NO. 
PAGE 
LAST CHG 3:09:08 75 


| 
4248248! 
zi 
| 

| 

| 

| 

| 

| 

| 

| 


c 


Pog 


* * 
* 5471 PRINTER KEYBOARD DIAGNOSTIC TESTS *. 
s *, 
* SECTION 3--KEYBOARD TESTS ‘i 
* * 
SRSSSESERSLESSERS SESE EASES EESE SS SSE SEREREEESSESESEEEEESSAERER EES SEETED 
+**s4 £08: 
aEtE SECTION PREFACE ERE: 
*#k&4% 40% 


SESSSESIAESERESESELERESEKESSEE EOS S$EEEEECEEEREEESEKECRKESEREESEEEESEEEEED 


oc 
oc 
oc 
oc 
oc 
oc 
oc 


& 
40440949 
* RTKO1] *& 
eke40e008 
* 


* 

RTNO1 OC 
oc 
oc 


SBN 

--L 
8 
oC 
oc 
oc 
oc 
8 
oc 
oc 
oc 
B 
oc 
oc 
oc 
MvC 
6 
oc 
8 
oc 
oc 
oc 
8 
oc 
oc 
oc 
$10 
8 


XL2°1031° 
xL1°0O0°* 
xL1*OO* 
xXL2°*OO°* 
AL2(RTNO1) 
XL2*00* 
XL3*105000° 


xLi‘oLe 
XL1*°OO* 
AL2(RTNO2) 


MARK ,MARK3 
ITLV1,xX°Co® 
PRINT 
XL1°41°¢ 
IL1*658 
AL2(MSG04) 
XL2*10E1° 
PRINT 
XL1*02* 
IL1°32¢ 

AL 2(MSGEAR) 
PRINT 
XtL1*0O2° 
FLI*11° 
AL2(MSG02) 
MSGCAB(19).POR 
REPLCE 
XL3*010408° 
PRINT 
XL1L*O1° 
ILi‘soe 
AL2(MSG04) 
PRINT 
XL1°O6* 
TL1°14¢ 
AL2(MSGRES) 
X*00* ,KYBO 
HALT 


PROGRAM ID AND REVISION LEVEL 
SECTION FLAGS 

CURRENT ROUTINE NUMBER 
RESERVED 

ADDRESS OF FIRST ROUTINE 
RESERVED 

PRINTER KEYBOARD SPUT ENTRY 


SESESEREES 


* RTNOL ®: 
$0888¢404° 


START 1/0 TEST 


ROUTINE PREFIX 
ROUTINE NUMBER 
NG INTERVENTION REQUIRED 
ADDRESS OF NEXT ROUTINE 


LGAD INT LEVEL 1 IAR 
PRINT 
*START 1/0 
TEST® 


Ogre agnaa o 


PRINT 
*CHECK 
BULBS* 


PUT LINE NAME INTO PRINTOUT 
REPLACE 
B2L2, 

PRINT 
* BOTH 
INDICATORS 
SHOULD BE OFF® 
PRINT 
RESET 
THE 
HALT 
ISSUE COMMAND 
HALT 


B2U3, CABLE(GC461) 


PROG ID 103-1 
PAGE 1 


wn 


ey 


OF Yo) Se 


1031 


ERR LOC OBJECT CODE 


OA57 
OA59 
OASD 
OAS5E 
OASF 
OA61 
OA63 
OA6T 
OA6é8 
OA69 
OA6B 
OAGE 
OAT2 
OAT4 
OA78 
OA79 
OATA 
OA7TCc 
OATE 
OA82 
OA83 
OA84 
OA86 
OA89 
oasd 
OA8F 
0A93 
OA94 
OA95 
OAST 
oags 
OASD 
OASE 
OASF 
OAAL 
OAA4S 
OAA8B 
OAAC 
OAAE 


OAB2 
OA83 
OAB4 


OAB6 
OABC 
oaco 
OAC4 
OACS5 
Oacé 
oAcs 
OACA 
OAace 
OACF 
OADO 
0aDd2 
OAd6 
OADS 
oaDo 
OADE 
OADF 
OAE1 


DATE 
EC NO. 
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10E1 
CO 87 021A 
41 

21 
143 
10E2 
co 87 
06 

OE 
13¢3 
F3 10 
CO 87 
10€2 
CO 87 
41 

21 
141E 
10E3 
co 87 
06 

OE 
13¢3 
F3 10 
co 87 
10E3 
CO 87 
41 

32 
1395 
10E4 
co 87 
06 

OE 
13C3 
F3 10 
30 FF 
CoO 87 
10E4 
co 87 


O21A 


10 
0222 


O21A 


O2Z1A 


20 
0222 


O21A 


O21A 


oo 
19D3 
0222 


0216 


02 
80 
opoc 


oc 03 
3A 10 
co 87 
41 

OE 
144) 
10€5 
Co 67 
01 

1A 
1492 
CO 87 OE30 
0co0000 

CO 87 O21A 
02 

OE 

133 

CO 87 021A 


1989 
1202 
O21A 


O21A 


29AUG75 
827604 


ADDR STMT 

OA58 66 

67 

OASO 68 

OA5E 69 

OA60 70 

OA62 71 

72 

OA67 73 

OA68 74 

OA6A 75 

76 

77 

OAT3 78 

79 

-OA78 80 

OATS 81 

OATS 82 

OA7D 83 

84 

OA82 85 

0A83 86 

OA85 87 

88 

89 

OA8SE 90 

91 

OA93 92 

0A94 93 

OA96 94 

0Ag8 95 

.96 

OagD 97 

OASE 98 

CAAO 99 

100 

101 

102 

OAAD 103 

104 

105 

106 

107 

108 

109 

110 

OAB2 111 

OAB3 112 

OABS 113 

114 

114 

1403 115 

116 

117 

OACS 118 

OACS 119 

OAC7 120 

OATO 121 

122 

OACE 123 

OACF 124 

OAD1 125 

126 

OADS 127 

128 

OAaDD 129 

QADE 130 

QAEO 131 

132 
OTNOVTS 
827805 


LOCATION DIAGNOSTICS MOD 12 


SOURCE STATEMENT 


oc 
8 
oc 
oc 
oc 
DC 
8 
oC 
oc 
oc 
$10 
8 
oc 
6 
boc 
oC 
oc 
oc 
B 
oc 
oC 
oc 
$10 
6 
oc 
5 
DC 
oC 
oc 
oC 
8 
oc 
oc 
oc 
$10 
Cul 
8 
oc 
8 

& 

sese80898 

* RTNO2 © 

Seteseee8 

* 

S 

RTNO2 OC 
oc 
oc 


MVC 
SBN 
5 
oc 
oc 
ec 
oc 
8 
DC 
oc 
OC. 
8 
oc 
B 
oc 
oc 
oc 
8 


XL2°*10E1° 
PRINT 
XL1°41° 
IL1*33° 
AL2(MSG06) 
XL2°10E2* 
PRINT 
XL1°06* 
IL1°14¢ 
AL2(MSGRES) 
X*10* ,KYBD 
HALT 
XL2°10E2* 
PRINT 
XL1°41° 
I1L1*33° 
AL2(MSG05) 
XL2°10E3°* 
PRINT 
XL1"°06* 
IL21°14° 

AL 2(MSGRES) 
X*20* »KYBD 
HALT 
XL2*10E3°* 
PRINT 
XL1°41¢ 
IL1°S50° 
AL2(MSG04) 
XL2*10E4* 
PRINT 
XL1°06°* 
TL1°14* 

AL 2(MSGRES) 
X*O00" ,KYBD 
HEXFF ,X*FF® 
HALT 
XL2*10E4* 
LINK 


XL1°02° 
XLi*so°* 
AL2(RTNO3) 


STSHOB(4) »STAT 
MARK »MARK3 
PRINT 
XL1°41¢* 
IL1°14* 
AL2(MSG07) 
KL2*1OE5® 
PRINT 
XL1°O1* 
IL1*26¢ 
AL2(MSG09) 
REPLCE 
xL3*o0CO000* 
PRINT 
xL1°O2° 
IL1L°14° 
AL2(MSGRES) 
PRINT 


PART NO. 
PAGE 


OF -E1- 
PRINT 
* PROCEED 
SHUD BE ON 
REQ PEND OFF* 


PRINT 
*RESET 
THE 
HALT 
TURN PROCEED ON 
HALT 
OF -E2- 
PRINT 
*REQ PEND 
SHUD BE ON 
PROCEED OFF®* 


PRINT 
“RESET 
THE 
HALT® 
TURN REQ PEND ON 
HALT 
OF -E3—- 
PRINT 
*BOTH 
INDICATORS 
SHUD BE OFF® 


PRINT 
"RESET 
THE 
HALT® 
TURN BOTH INDICATORS OFF 


HALT 
OF -E4- 
GO TO NEXT ROUTINE 


SENSE 1/0 TEST 


ROUTINE PREFIX 


ROUTINE NUMBER 
INTERVENTIGN REQUIRED 
ADDRESS OF NEXT ROUTINE 


SET XPTO STATUS 


PRINT 
* SENSE 
1/0 
TEST® 


PRINT 
*IF TIGHT 
Loop 
OCCURS ®* 
REPLACE 
B2N2, 
PRINT 
*RESET 
THE 
HALT ® 
PRINT 


B2P2 


PROG 10 
PAGE 


eeeoeosas cGceoeeoeeoesewoeoeoeeaseoedeoeeneoeeodeoeee 80 0 6 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


PART NO 4248248 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOo 4248248 | 
PAGE 2 PAGE 2a 
1031 5471 PRINTER KEYBOARD FAULT LOCATIGN DIAGNOSTICS MOD 12 1031 5471 PRINTER KEYBOARD FAULT LOCATION DIAGNOSTICS MOO 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
OAES 06 OAE5 133 oc XL1*06! "PRESS OBEOS C2 01 1982 201 LA STATUS~3_XR1 
OAE6 28 OAE6 134 DC 1L1*43¢ AND RELEASE OBED 78 01 03 202 TBN 3¢¢XR1)eX*O1* CHECK FOR 
OAET 1478 OAES 135 DC AL2(MSGO08) SPACE BAR OBFO F2 90 5D 203 JF B7 DATA CHECK ON 
OAES CO 87 0222 136 8 HALT HALT OBF3 3C 5C 18E8 204 MVI MDATCK,»C te? 
OAED 10E5 OAEE 137 oc XL2*10E5* OF ~ES5- OBF7 7D 40 02 205 CLI 21 sXRLD 9 X*408 CHECK FOR 
OAEF 38 20 1202 138 SBF MARK »MARK2 SETUP FOR WAIT LOOP OBFA F2 01 20 206 JNE B8 CORRECT CHAR 
OAF3 30 13 1983 139 B2 SNS  STATUS—2—X"13! WAIT OBFO 7D 40 00 207 CLI Ol,XR1),X*408 CHECK FOR 
OAFT 30 11 1985 140 SNS STATUS,X*11¢ ONE MINUTE OCOO F2 01 18 208 JNE B9 CORRECT REED SW 
OAFB 38 20 1983 141 TBN STATUS-2-X'208 FOR STATUS 0CO3 78 02 03 209 TBN 30 y9XR1L)-X*02" CHECK FOR XLATOR CHECK 
OAFF F2 10 56 142 JT Blll CHANGE OCO6 F2 90 OB 210 JE 414 
OB02 38 10 1983 143 TON = STATUS—-2,X"108 CHECK SAMPLED ON OCO9 3C SC 18FD 211 MVI MXLAT,Cte? 
OB06 F2 90 04 144 JF *+7 OCOD CO 87 OE3D 212 8 REPLCE REPLACE 
0B09 3A O1 12D3 145 SBN FLAGsX*O1* 0C11 080000 0Ci3 213 OC XL3*080000* B2P2 
OBOD CO 87 1291 146 8 DELAY 0C14 CO 87 OE£3D 214 B REPLCE REPLACE 
OB11 CO 87 OAF3 147 8 B2 0C18 O0C0000 OClLA 215 oc XL3*0C0000* B2N2, B2P2 
OBLS 38 01 1963 148 TBN STATUS=2 5X *OL® CHECK RESERVED BIT ON OC1B 3C 2D 1OAC 216 89 MVI LEN2,X*20¢ 
CB19 F2 10 15 149 JT *4+24 OCLF 3A O1 1204 217 SBN XMTBLK,X*O1! SET XMIT BLK FLAG GK 
OB1C OC 01 180E 141E 150 MVC RESMSG(2).MSGO5 0C23 CO 87 OE3D 218 i) REPLCE REPLACE 
0B22 3C 14 10F2 151 MVI LENZ »X*14* 0C27 200002 0c29 219 oc XL3*200002* A-B2S2, CABLE(6C553) GK 
OB26 3A 01 12D2 152 SBN MARK,» MARK? OC2A 3C 20 1010 220 B8 MVI LEN1»sX*20¢ 
082A CO 87 O£3D0 153 B REPLCE REPLACE OC2E 7D 40 00 221 CLI Ol eXR1L)eX* 408 CHECK FOR 
OB2E 040000 OB30 154 oc XL3*040000° B2N2 0C31 F2 01 07 222 JNE B10 CORRECT READ SW 
0B31 38 O01 1203 155 TBN FLAG,X*0i* CHECK FOR SAMPLED ON 0C34 CO 87 O£30 223 B REPLCE REPLACE 
0B35 F2 10 11 156 JT B3 0C38 08s0c0o OC3A 224 oC XL3*080000°* B2P2 
0838 3C 5C 1885 157 MVI MSTRBS,Ctee 0C38 OC O07 13DD 17E8 225 810 MVC MSGCAB—-11(8) »REED 
083C OC 09 13DF 17E0 158 MVC MSGCAB—9(10),STRBE 0C41 3C 2D 10AC 226 MVI LEN2eX*2D8 
0B42 CO 87 0E30 159 B REPLCE REPLACE 0C45 3A 01 1204 227 SBN XMTBLK,X*O1® SET XMIT BLK FLAG GK 
0B46 200002 0B48 160 DC XL3*200002' $2, CABLE(GC553) : 0C%9 CO 87 OE3D 228 B REPLCE REPLACE 
CB49 3B 01 1203 161 B83 SBF FLAG,X*01' : x OC4D 200002 OC4F 229 oc XL3*200002' B2S2, CABLE(6C553} 
OB40 3C 5C 189C 162 MVr «-MSTRB,CEet OC50 78 02 03 230 e@7 TBN 3¢—XRL},X*O2* CHECK FOR 
0851 CO 87 OE3D 163 8 REPLCE REPLACE ie 0C53 F2 90 33 231 JF BLL XLATOR CHECK ON 
eee ee ae 0B55 040000 OB57 164 DC XL3°040000! B2N2 0C56 3C SC 18FD 232 MVI =MXLAT,Ce#t ieee ee 
0858 38 01 12D3 165 Blll SBF FLAGeX*O1* OCSA 7D 40 02 233 CLI 2€yXRLI,X*408 CHECK FOR 
OB5C OD FE O1F4 O1F4 166 CLC 500(255),500 WAIT C: OC50 F2 O1 OF 234 JNE 812 , CORRECT CHARACTER 
OB62 OD FE O1F4 O1F4 167 CLC 500(255),500 Zot “  QC60 CO 87 OE3D 235 8 REPLCE REPLACE 
0868 OD FE OLF4 O1F4 168 CLC 500(255),500 MILLISECONDS 0C64 0C0000 0C66 236 oc xL3*o0COO000* B2N2, B2P2 
OB6E CO 87 1279 169 B SENSOR SAVE STATUS _ ge OC67 7D 40 00 237 812 CLE Ol 9XR1)2X*40* CHECK FOR 
osi2 38 0 1983 170 TBN STATUS—25X*10* CHECK FOR SAMPLED € OC6A F2 O1 OB 238 JNE 813 CORRECT REED SW 
0876 F2 10 21 171 JT 81 OC6D 3C 20 1010 239 MVI = LEN 1-2X"20* 
0879 3C 5C 1885 172 MVI  -MSTRBS Cte _ ev. 0C71 CO 87 OE3D 240 8 REPLCE REPLACE 
OB7D 3C 5C 1920 173 MVI MDATP,Ctes “4! Oc7sS 080000 OC77 241 DC XL3*080000° A-62P2 
fees z ee ee es . TBN eo CHECK DATA KEY INTERRUPT PEND ON OC78 OC O7 1300 17E8 242 B13 MVC MSGCAB-11(8} REED 
JF e+ ~-. OCTE 3C 2D 10AC 243 MvI LEN2.xX*2D* 
0888 CO 87 OE3D 176 B REPLCE REPLACE | OC82 CO 87 OE3D 244 6 REPLCE REPLACE 
0B8C 040000 OBSE 177 DC XL3*040000* B2N2 | OC86 200002 OC88 245 oc XL3*200002¢ B2S2, CABLE(GC553) 
OB8F 3A 10 1203 178 SBN FLAGeFLAG3 iC 0C89 7D 00 02 246 Bll CLI 20 ¢XRL}4X*008 CHECK DATA 
0893 CO 87 OE£3D 179 8 REPLCE REPLACE Cy OC8C F2 01 OB 247 JNE 614 CHAR ALL ZERO 
0B97 OCO00O 0899 180 oc XL3*0C00008 B2N2, B2P2 | OC8F 3C 20 1010 248 MVI =LEN1.X*208 
OB9A 3C 40 180E 181 Bl MVI RESMSGeCE ¢ “SETUP PRINT ten 0C93 CO 87 OE3D 249 8 REPLCE REPLACE 
O89E 3C D5 180D 182 MVI RESMSG-1,CtN® MESSAGE ' y= OC97 010000 0C99 250 oc XL3*010000* A~B2L2 
OBA2 38 01 1983 183 TBN STATUS—2»X*"O1* CHECK FOR OCSA 7D 00 00 251 B14 CLI 0 sXR1)eX*008 CHECK REED 
es ae : a Ve a Pe peas RESERVED BIT ON Lf OC9D F2 01 08 252 JNE B15 SWITCHES ALL ZERO 
Vv eX ws  QOCAO 3C 2D 10AC 253 MVE LEN2,X* 20° 
OBAD 3C C6 180E 186 MVI RESMSG-C*F® OCA4 CO 87 OE30 254 B REPLCE REPLACE 
0881 3C C6 180D 187 MVE =. RESMSG=1,C°F* io OCAS 040000 OCAA 255 DC XL3*040000* A~-B2N2 
OB65 3A 01 1202 188 85 SBN MARK» MARKT SET PRINT FLAG ON C oocas 78 04 03 256 B15 TBN =. 3 (9 XR1) 9 X*048 CHECK RETURN KEY ON 
OBB9 39 FF 1984 189 TSF STATUS-1 »X* FFE CHECK FOR CHAR | OCAE F2 90 OB 257 JF Bl61 
O0B8BD 39 20 1983 190 TBF STATUS=29X*208 ALL ZERO AND STROBE OFF C OCB1 3C SC 1914 258 MVI MRET Cee? 
OBC1 F2 90 OF 191 JF B6 «  OCB5 CO 87 OE3D 259 8 REPLCE REPLACE 
OBC4 3C 20 101D 192 HVI = LENT » X* 208 OCBS oco000 ocB8B 260 oc XL3*0C0000* B2N2, B2P2 
OBC8 3C 5C 189C 193 MVI MSTRB Ct #8 .  OCBC 78 OC O1 261 B161 TBN 1(¢,XRL)DeX*0C* CHECK R OR E OR CAN AND SAMP ON 
OBCC CO 87 O£3D 194 8 REPLCE REPLACE C. OCBF F2 90 2¢ 262 JF B16 
OBDO 040000 OBD2 195 oc XL3*040000! A~B2N2 OCC2 3C SC 1868 263 MVI MREC,Ch#? 
0803 38 30 1985 196 66 . SBF  STATUS,X*308 SET ENO AND CANCEL OFF ie OCC6 3C SC 1849 264 MVI MRECS,Ctst 
OBD7 38 01 1983 197 SBF STATUS-2,X*O1* SET CE SNS BIT OFF © OCCA 78 80 03 265 TBN 30,XR1) »X* 808 CHECK REQ KEY INT PEND ON 
OBDB 38 80 1982 198 SBF STATUS-3,X*80* SET UPPR CASE MODE Sw OFF | OCCD F2 90 OD 266 JE B162 
OBDF OD 03 1985 1909 199 cic STATUS(4) »STSHDB CHECK FOR | OCDO 3A 80 1203 267 SBN FLAG, FLAGO =. 
OBES CO 81 O08 200 BE ENDSNS CORRECT STATUS | Cs OCD« OC O7 130D 1650 268 MVC MSGCAB-11€8) sREQCAB 
| 
DATE  29AUG75 = OTNOVTS PROG ID 103-1, CpaTe —«-29aUGTS ~—s«OTNOV75 PROG ID 103-1 
EC NO. 6827804 827805 PAGE 20 EC NO. 827804 827895 PAGE 2a 
i 
i 
i 
| 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


1031 
ERR LOC 


OCDA 
ocood 
Océl 
OCE7 
OcEs 
OCEE 
OCF] 
OCF4 
OCcF8 
OCcFC 
OCFF 
0002 
oo05 
oD09 
open 
obd10 
0013 
O016 
ODIA 
0020 
od24 
0027 
OD2A 
0020 
0031 
0035 
0039 
oo3Cc 
CD3F 
0042 
0D46 
OD4A 
0040 
0050 
0053 
0057 
0058 
OOSE 
0061 
0064 
0068 
od6C 
0070 
0074 
0077 
OO7A 
OD7E 
op82 
0085 
0089 
OD8A 
00886 
oosd 
ooeF 
0093 
0094 
0095 
0097 
0098 
OOSF 
ODA2 
onas6 
ODAA 
odACc 
ODAF 
o0B2 
ODB6 
OOBA 


OaTE 
Ec NO. 


OBJECT CODE 


F2 87 OA 
3A 02 12D2 
OC OA 13E0 
C9 87 O€30 
080408 

78 98 O01 
F2 90 08 
3C SC 1868 
CO 87 OEF3D 
oco000 

7& 04 O1 
F2 90 06 
3C 5C 1849 
CO 87 OE&3D 
o0co000 

78 80 00 
F2 90 11 
3C 5C 181E 
oc 11 13&7 
CO 87 OE3D 
240002 

78 02 O01 
F2 90 OF 
3C 5C 1836 
3A 01 1204 
CO 87 OE3D 
oco002 

78 40 01: 
F2 90 OB 
3C 5C 18AB 
CO 87 OE3D 
050000 

78 80 01 
F2 90 06 
3c SC 18C7 
cO 67 OE3D 
050000 

7D 40 02 
F2 81 48 
3C 20 1010 
C2 O02 12€5 
6D 00 
CO 81 0085 
£2 02 O1 
BD FF 00 
CO 01 OD6C 
CO 87 OE3D 
080000 

CO 87 0214 
C1 

OA 

1663 

1001 

CO 87 O21A 
02 

29 

1679 

3A 10 12D2 
CO 87 OE3D 
040000 

CO 87 OFFO 
CO 87 0222 
1001 

70 40 00 
F2 81 08 
3C 2D 10aC 
CO 67 OE30 
040000 


29aUGTS5 
827804 


02 00 


1706 


17FA 


5471 PRINTER KEYBOARD FAULT 


ADOR STMT 


oceOd 


OCFE 


OcOoF 


OD26 


0D 38 


oD4C 


005D 


0084 
0089 
OD8A 
opsc 
OD8E 
0093 


0Dn94 
0096 


ODAl 


ODAB 


opsc 


OTNOVTS 
827605 


269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 


310. 


311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 


LOCATICN DIAGNOSTICS MOD 12 


SGQURCE STATEMENT 


B162 
B163 
B16 


B17 


819 


B20 


821 


822 


8231 


8247 


B246 


B23 


J 
SBN 
MVC 
8 
DC 
TBN 
JF 
MMVI 
B 
oc 
TBN 
JF 
MVI 
B 
oc 
TBN 
JF 
MvI 
MVC 
B 
oc 
TBN 
JF 
MVI 
SBN 


oc 
TBN 


MVI 


oc 
TBN 
JF 
“vi 


oc 
Cul 
JE 
MVI 


. CLC 


Cul 


JE 
MVI 


oc 


B163 

MARK »MARK6 
MSGCAB-8(11) ,MEQC 
REPLCE 
X.3'080408 
1(.XR1) -X*08* 
B17 

MREC eC o@! 
REPLCE 
XL3*o0co0008 
1(.XR1).X*04'* 
819 
MRECS,C*st 
REPLCE 
XL3*0CO00008 
O(eXR1),X*80* 
820 

MUCM,Ceae 
MSGCAB-1(18) ,UCREED 
REPLCE 
XL3*240002! 
1(.XR1) 2X*02* 
B21 
MSHIFT,Ctx? 
XMTBLK »X*01°* 
REPLCE 
XxL3*'OCO0002°* 
1(¢XR1),X*408 
B22 
MDATE.C*s? 
REPLCE 
XL3'0S0000* 
1(0,XR1),x*80* 
6231 
MREQE,Cts? 
REPLCE 
XL3*050000* 
20 eXR1) -X* 408 
823 
LEN1,X*20° 
TABLEA,XR2 
2(1eXR1).00.XR2) 
8246 

10 oXR2),XR2 
O(eXR2)X* FES 
8247 

REPLCE 
xL3*080000°* 
PRINT 

xXL1°c1e 
IL1*10¢ 
AL2(MSGP2) 
XL2*1001°* 
PRINT 

xXL1°02°¢ 
TL1*418 
AL2(MSGSUS)} 
MARK , MARK3 
REPLCE 
XL3°040000* 
STATCK 

HALT 
XL2*1001° 
O.XR1),X*40* 
414 
LEN2eX*2D8 
REPLCE 
XL3*040000* 


PART NO. 
PAGE 
REPLACE 
B2P2, B2U3, CABLE(461) 


CHECK REQ OR END 
OR CANCEL ON 


REPLACE 

B2N2, B2P2 
CHECK REQ OR END OR 
CANCEL SAMPLED ON 


REPLACE 
B2N2, 82P2 
CHECK UPPR CASE 
REED SWITCH ON 


REPLACE 

B2N2_, B2S2, CABLE(6C553) 
CHECK KEYBOARD 

SHIFTING ON 


SET XMIT BLK FLAG 
REPLACE 

B2N2, B2P2, CABLE(EC553) 
CHECK OATA KEYS 

ENABLED GN 


REPLACE 
B2L2- B2N2 
CHECK REQUEST 
KEY EF 'ABLED ON 


REPLACE 
B2t2,5 B2N2 
CHECK CHAR ENCODE 


REPLACE 
B2P2 
PRINT 
*RE-SEAT 
P2¢ 


PRINT 
* SUSPECT 
OPEN 
PINS® 


REPLACE 


B2N2 
PRINT STATUS 


CHECK REED SWITCHES 


REPLACE 
B2N2 


PROG ID 
PAGE 


4248248 
3 


pers 


Te, EET aD, EEE en NE 
a a re ete ee en ae ee - 





oo 


a 


c™ 


oy MN 


ay 


2, 


} 


o @60 0 


O° 


7 


| 
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1031 
ERR LOC 


oDBD 
ov0c1 
ODC5 
‘ODCc9 
oocod 
ooDd1 
oDD5 
o0os 


oopc 
oDDD 
ODDE 


ODEO 
ODE4 
ODE5 
ODE6 
ODES8 
ODEA 
ODFO 
ODF4 
ODF? 
ODFA 
ODFE 
OE02 
OE06 
OEOA 
OE0D 
OE10 
OE14 
OE17 
OE1B 
OE1LF 
OE23 
OE26 
OE2A 
OE2E 
OE32 
OE35 
OE38 
OE3C 


OE30D 
OE41 
OE47 
OE48 
OE51 


103-1 Coate 


© 
i © 


EC NO. 


TBM MAINTENANCE DIAGNOSTIC PROGRAM 


5471 PRINTER KEYBOARD FAULT 


OBJECT CODE ADOR STMT 
3C 5C 1920 337 
3C 5C 1958 338 
3C 5C 197C 339 
3C SC 194F 340 
3C 5C 1946 341 
CO 87 0E3D 342 
opoco0 ODD? 343 
CO 87 0216 344 
345 
346 
347 
348 
349 
350 
03 oppc 351 
00 ODDD 352 
FFFF ODDF 353 
354 
354 
Co 87 021A 355 
46 ODES 356 
16 ODES 357 
1448 ODET 358 
10€1 ODE9 359 
oC 03 1989 198D 360 
35 CO 19E1 361 
F3 10 O1 362 
F3 10 02 363 
3C 40 1987 364 
Co 87 1279 365 
38 40 1983 366 
39 80 1983 367 
F2 90 19 368 
F3 10 01 369 
3C 80 1987 370 
F3 10 04 371 
CO 87 1279 372 
38 80 1983 373 
39 40 1983 374 
F2 10 OF 375 
3C 5C 18C7 376 
3C SC 18AB 377 
CO 87 0E3D 378 
050000 0£34 379 
F3 10 01 380 
CO 87 022A 361 
co OE3C 382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
397 
34 08 OFFC 398 
CC 01 OFEA 1909 399 
34 08 1901 400 
OE 01 OFFC 19¢3 401 
3C 00 19D4 402 
29AUG7TS5 =: OTNOVTS 
827804 827605 


4248248 


PAR’ NO. 
PAGE 3A 

LOCATION OFAGNOSTICS MOD 12 
SOURCE STATEMENT 

MVI MDATP,C*s? 

MVI MEOCP,Ctse 

MVI MREQ?P,C ese 

MVI MCAN,C*S? 

MVI MEND »C oa? 

8 REPLCE REPLACE 

oc XL3*ODO0000* B2N2, B2P2 
ENDSNS 8 LINK GO TO NEXT ROUTINE 
* 
8224444484 944000288 
* RTNOZ TESTS TO ENABLE REQUEST KEY *@ RINO3 * 
SeStatEe AND KEYBCARD DATA KEYS SFFtesaee 
2 
* RCUTINE PREFIX 
RTNOZ OC XL1*03° ROUTINE NUMBER 

oc XL1*00° NO INTERVENTION REQU’RED 

oc XL2°FFFFE LAST ROUTINE 

8 PRINT PRINT 

oc XL1°46¢ * ENABLE 

oc Itl*22* INTERRUPTS 

oc AL2(MSG11) Test? 

oc XL2'10C1° 

MvC STSHDB(4),ZERO CLEAR STATUS 

L ITLV1,X'CO® LOAD INTRPT IAR 

Ss10d X*01° ,.KY8D RESET INTERRUPTS 

S10 X*02*,KYBD ENABLE DATA KEYS 

MVI STSHDB-2,X*40° SET STATUS 

B SENSOR 

TBN STATUS—22X*40! CHECK FOR 

TBF STATUS-2,X*80° CHECK DATA KEYS ENABLED OFF 

JF Cl DATA KEYS ENABLED ON 

S10 X*01*sKYBD RESET KEYBOARD 

AVI STSHOB-2-X* 80! SET REQ ENABLED ON 

s10 X*04*,KYBD ENABLE REQ KEY 

B SENSGR 

TBN STATUS—2,X*80* CHECK REQ ENABLE ON 

TBF STATUS-2 5X*40* CHECK DATA KEY ENABLED OFF 

JT C2 
C1 MVI MREQE,C*? 

MVI MDATE,C** 

B REPLCE REPLACE 

oc XL3*050000* B2L2_s B2N2 
c2 $10 X*01' ,KYBD RESET KEYBOARD 

8 LOAD GO TO NEXT SECTION 

oc xL1*°00°8 
& 
SEREREEEESEEEHESEEESEEEEEEEEEEEEESESE SFSEEKESESSESLSERESKESRESE SHEDS VLS FESS 
* REPLCE * * REPLCE # 
SF SS4SSE4 THIS SUBROUTINE IS USED TO PRINT CARD CALLOUTS +*eesesenes 
* WHICH HAVE BEEN ISCL¢TED AS FAILING UNITS. * 
* LINKAGE IS VIA e 
* * 
* B REPLCE * 
* oc XL3°XNXKRXXE Sd 
s = 
* WHERE -XXXXXX- REPRESENTS THE CARDS AND/OR CABLES * 
* TO BE CHECKED. * 
& s 
SOSFES4SSFEEESEEE8ESS89ES84E88S9FS4F40456445544E9S9954ESSO948SEEEEEEOES 


REPLCE ST 
KvC 
ST 
ALC 
AVI 


END7+3,ARR 
END6143(2),STATCA 
WORK 1 ARR 

END7+¢3, THREE (25 
SwITCHsx*o0* 


SAVE RETURN ADDRESS 


MODIFY 
RETURN 


PROG 10 
PAGE 


103-1 
3A 


cca YC A Re Nn 
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ERR LOC 


OE55 
OES9 
OE5D 
OE61 
OE65 
OrE68 
OE6C 
OE6D 
OEGE 
OE70 
OET4 
OE78 
OETC 
OE8s0 
OE86 
OE89 
OE8D 
OE8E 
OESF 
OE91 
OE93 
OE9T7 
OE9B 
OESF 
OEA3 
OCA6 
OEA9 
OEAD 
OEBL 
OEB4 
OEBT 
OEBC 
OECO 
OEC] 
OEC2 
OEC4 
OEC7? 
OECA 
OED0 
OED4 
OcED8 
oOeEDC 
OEDF 
O£E2 
OEET 
OEEB 
OEEC 
OEED 
OEEF 
OEFS 
OEF8 
OEFC 
OEFD 
OEFE 
OFOO 
OFG6 
OFO9 
OFOD 
OFOE 
OFOF 
OF11 
OF14 
OFLA 
OF LE 
OF21 
OF 27 
OF 2B 
OF2F 


(Ae nh er nee ve 


DATE 
ec wo. 


OBJECT CODE 


34 
34 
35 
39 
F2 
co 
02 
19 


02 
02 
01 
10 
10 
87 


1304 


3c 
3c 
3c 
3c 
oc 
F2 
co 
C2 
19 


01 
01 
01 
01 
01 
87 
87 


1304 
1001 


3c 
3c 
3C 
3c 
70 
F2 
C2 
3c 
78 
F2 
2c 
co 
o1 
25 


81 
81 
81 
81 
00 
81 
02 
ol 
00 
90 
04 
87 


13€8 


F2 
E2 
OE 
co 
c2 
3c 
78 
F2 
2c 
co 
o1 
06 


&7 
02 
00 
20 
02 
ol 
00 
90 
03 
87 


130A 


oD 
F2 
co 
01 
23 


03 
01 
87 


157F 


oo 
F2 
co 
ol 
54 


03 
01 
87 


15D3 


E2 
OE 
co 
d2 
OE 
co 
38 
F2 


02 
00 
20 
01 
60 
20 
08 
90 


19C7 
19C9 
1901 
1202 
21 

O21A 


OECO 
OEEB 
OEFC 
OFOD 
OFEA 
1A 

O21a 


OECO 
OEEB 
OEFC 
OFOD 
02 
28 
L3EE 
OEB2 
02 
10 
1304 
0214 


oD 
05 
OEB2 
OEB1 
130E 
OEDD 
00 
2F 
130A 
O21A 


130A 
021A 


130A 
08 
O21A 


04 
oEoe 
OE£0C 
Ol 
19046 
OEDS8 
1202 
638 


29AUGTS 
827804 


5471 PRINTER KEYBOARD FAULT 


ADOR STMT 


OE6C 
OE6D 
OE 6F 
1908 
OESD 
OES8E 
OE90 
OE92 
90 
OECO 
OECL 
OEC3 
OEB2 
00 
OEEB 
OEEC 
OEEE 
19F1 
OEFC 
OEFD 
O&FF 
19€D 
OF OD 
OFOE 
OF10 
OEDD 
1905 
OTNOVTS 
827605 


403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 


. £52 


453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
£69 
470 


LCCATION DIAGNOSTICS MOD 12 


SOURCE STATEMENT 


CON11 


col 


TST2 


MO01 


INC2 


END66 
CON1 
TST 


#OD2 


M003 


INCZ 


M0D4 


INC 


ST 
ST 
L 
TBF 
JT 
B 
oC 
oc 
oc 
MVI 
MVI 
MVI 
MVI 
MVC 
J 

B 
oc 
OC 
oc 
Oc 
MVI 
MVI 
MVI 
MVI 
CLI 
JE 
LA 
MVI 
TBN 
JF 
MvC 
B 
oc 
oc 
oc 


LA 
ALC 
BNOL 
LA 
MVI 
TBN 
JF 
MVC 


oc 


oc 
CLC 
JNE 


oc 
oc 
cic 
JNE 


oc 
oc 
LA 
ALC 
BNOL 
LA 
ALC 
BNOL 
TBN 
JF 


SAV1,-XR1 
SAV2_XR2 
WORK1 ,XR2 
MARK » MARK3 
CONLL 

PRINT 
xL1*O2* 
3L1°25°¢ 
AL2(REP) 
MOD1,X*01° 
MOD2,X*O1* 
MOD3-X*O1§ 
MOD4,X*0O1* 
END6143(2) -ENDTA 
con 

PRINT 
XLi‘c2et 
IL1*25* 
AL2(REP) 
XL2*1O0O0L1® 
MOD1.X*81° 
MOD2.X*81°* 
MND3,X*81°* 
MOD4,X*81° 
20 eXR152X*00* 
END66 

CABLE, XR2 
TST2+1,X*O1* 
20eXR1) 9 t—% 
INC2 
CABL(05}) 500 ,XR2) 
PRINT 
XL1*oO1* 

IL1* 37° 
AL2(MSGCAB) 
END66 
S(sXR2) XR2 
TST24101),TST2¢1 
TST2 

CARDS ¢XR2 
TST#1exX*O1!e 
0( »XR1L) ,*—-* 
INC 
CARD(4) ,0( -XR2) 
PRINT 
xLifolt 
IL1*06* 
AL2( CARDO) 
CARD( 4} .B2U2 
INCZ 

PRINT 
XL1°'0O1° 
1L1*35° 
AL2(MSG19) 
CARD(4) .82U3 
INC 

PRINT 
XL1°O1* 
I1L1°84* 

AL 2(MSG620) 
40 eXR2) eXR2 
TST#+201) -TST+1 
TST 
1(0.XR1L),XR1 
SWITCH HEX8O 
CON1 
MARK » MARKS 
EnDOSL 


PART NOo 
PAGE 


SAVE 
REGISTERS 


PRINT 
NGN-ERRGR 
REPLACE 
MESSAGE 


PRINT 
ERROR 
REPLACE 
MESSAGE 


SETUP FOR 
CABLE PRINTOUT 
CHECK FOR 
BITS ON 
MOVE LOGIC PAGE # INTO PRINTOUT 
PRINT 
*CHECK 
CABLE 
XXXXXK* 


INCREMENT 
MESSAGE POINTER 
SET CARD POINTER 


CHECK FOR 
CARD PRINTING 


PRINT 
EACH 
CARD 


CHECK FOR 82U2 
CARD PRINTOUT 
PRINT 
B2U2 
SWAPABLE 
WITH A-A3A3 


PRINT 
A-B2U3 
SWAPPABLE 
WITH A-B2U5 
CHECK 
ALL BITS 
PER BYTE 


CHECK 

BOTH BYTES 
CHECK 

END SH 


PROG ID 
PAGE 


4248248; 


4 


| 
| 
| 
! 
| 
| 
| 
| 
: 


| 
| 
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1031 
ERR LOC 


OF32 
OF 36 
OF37 
OF38 
OF3A 
OF3E 
OF41 
OF45 
OF46 
OF47 
OF49 
OF4D 
OF50 
OFS4 
OF55 
OFS6 
OF58 
OF5C 
OFSF 
OF63 
OF64 


oO OF65 


i OF67 
OF6B 
OF6E 
OF72 
OF73 
OFT74 
OFT6 
OFTA 
OF7D 
OF81 
OF82 
OF83 
OF85 
oFs9 
OF8C 
OF9O 
OF91 
OFS2 
OF94 
OF98 
OF9B 
OFOF 
OFAO 
OFAl 
OFA3 
OF AG 
OFA9 
OFAD 
OFAE 
OFAF 
OFB1 
OFBS 
- OFB6 
Ci OFB7 
OFB9 
OF8D 
OFCO 
OFC4 
OFC8 
OFCO 
OFCA 
OFCC 
OFDO 
OFD4 
OFDS8 
OFOC 


Oe GS SE) 


27970 


© 


103-1 oate 
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EC NO. 


@ e @eeeeoeeoeeeaeeoeeoeegeeoeeewee se eee 8 8 eoeoeevn00e 


5471 PRINTER KEYBOARD FAULT 


OBJECT CODE ADDR 
CO 87 021A 

81 OF 36 
OA OF37 
150D OF39 
38 80 1203 

F2 90 08 

CO 87 021A 

81 OF45 
OE OF 46 
15F8 OF48 
38 40 1203 

F2 90 08 

CO 87 021A 

81 OF 54 
ic OF55 
1638 OF57 
38 20 1203 

F2 90 08 

CO 87 021A 

81 OF 63 
10 OF 64 
15ED OF 66 
38 10 1203 

F2 90 08 

CO 87 021A 

81 OFT72 
24 OFT73 
161F OF 75 
3% 04 1202 

F2 90 08 

CC 87 021A 

81 OF81 
oD oFs2 
1648 OF 84 
38 02 1202 

F2 90 08 

CO 87 021A 

81 OF90 
11 OF91 
1694 OF93 
38 08 12D3 

F2 90 08 

CO 87 021A 

81 OF9OF 
oc OFAO 
14B4 OFA2 
78 01 00 

F2 90 10 

CO 87 021A 

81 OFAD 
4D OFAE 
17Al OFBO 
CO 87 O21A 

81 OFBS 
2A OFB6 
17¢CB OFBB 
38 OL 1204 

F2 90 OC 

3B 01 1204 

CO 87 021A 

81 OFC8 
17 OFCS 
1981 OFCB 
35 O1 19C7 

35 02 19C9 

38 1F 1202 

38 FF 12D3 

OC 13 13E8 13£9 
29AUGTS O7NOVTS 
827804 827805 


STMT 


471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
$12 
513 
514 
515 
£16 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
$33 
534 
535 
536 
537 
538 


LOCATION DIAGNOSTICS MOD 12 


SOURCE STATEMENT 


ENDO91 


ENDX1 


ENDX2 


ENDX3 


ENDOS 


ENDO? 


ENDO72 


ENDO71 


CHKPRT 


ENDO6 


8 
oc 
oc 
OC 
TBN 


TBN 


TBN 


TBN 
JF 


oc 
oc 


oc 
TBN 
JF 


oc 


oc 
TBN 
JF 


oc 
BC 
oc 


oc 
DC 
TBN 


PRINT 
Xt1*81°* 
IL1*10¢ 
AL2(CENDSW) 
FLAG, FLAGO 
ENDX1 
PRINT 
XLitsit 
IL1*148 
AL2(MSGRSW) 
FLAG,FLAG1 
ENOX2 
PRINT 
XL1¢*81° 
IL2°28° 
AL2(MSGDAT) 
FLAG, FLAG2 
ENOX3 
PRINT 
XL1*ele 
IL1*16¢* 
AL2CMSGKY) 
FLAG,»FLAG3 
ENDO S 
PRINT 
XL1°81* 
IL1°36°* 
AL2(MSGL2) 
MARK » MARKS 
ENOO7 
PRINT 
XLi‘*ele¢ 
1L1*13°¢ 
AL2(CANSW) 
MARK » MARK6 
ENDO72 
PRINT 
XL1*81* 
IL1*17° 
AL2CEOC Sw) 
FLAG, FLAG4 
ENDOT1 
PRINT 
XL1*61° 
ItLl*i2¢ 
AL2(MSGSHF) 


OC sXR1)eX*O1® 


CHKPRT 
PRINT 
xXL1*81° 
ILL*77° 
AL2(MSG141) 
PRINT 
xLl*eLt 
IL1*42° 
AL2(MSG142) 


XMTBLK,X*O1* 


ENDO6 


XMTBLK,X*O1* 


PRINT 
XL1°81" 
IL1*23° 
AL2(XMTMSG) 
SAVL»XR1 
SAV2_XR2 
MARK, X*1F° 
FLAG yX*FFS 


MSGCAB( 20) »MSGCAB+1 


PA..T NOe 
PAGE 


PRINT 
END 
SWITCH 


PRINT 
REQ 
SWITCH 


PRINT 
KEY 
HIT 
OUT OF ORDER 


PRINT 
KEY 
HELC 
DOWN 


PRINT 
RE-SEAT L2 


PRINT 
CANCEL 
SWITCH 


PRINT 
"END 
OR CAN 
SWITCH 
CHECK FOR 
SHIFT KEY 
MESSAGE 


PRINT 
INTERRUPT 
MESSAGE 


CHK FOR XMIT BLK FLAG 


RESET XMIT BLK FLAG 
PRINT 

* TRANSMIT 

BLOCK 
ASSEMBLY * 

RESTORE 

REGISTERS 
RESET FLAGS 
RESET PROGRAM FLAGS 


PROG ID 
PaGE 


4248248 
4A 


GK 


GK 
GK 
GK 
GK 
GK 
GK 
GK 


103-1 
4a 





IBM MAINTENANCE OIAGNOSTIC PROGRAM 


} 1031 
ERR LOC 


OFE2 
OFE6 
OFET 
OFEB 
OFEF 
OFFO 
OFF1 
OFFS 
OFF7 
OFFS 


OFFD 
1001 
1005 
1009 
1000 
1O00E 
101Cc 
1012 
1018 
i 101Cc 
1010 
1OLE 
1020 
1024 
1028 
1029 
102B 
1020 
1033 
1037 
1038 
1039 
1036 
1041 
1047 
104B 
‘ 104F 
1053 
1057 
105A 
1050 
1060 
1065 
1068 
1071 
1075 
1079 
107C 
1082 
1086 
108A 
1090 
1094 
109A 
109E 
10A2 
1043 
10A5 
LOA? 
10AB 
10aC 


OATE 
EC NO. 


5471 PRINTER KEYBOARD FAULT 


OBJECT CODE 


CO 87 
92 

CO 87 
CO 87 
86 

30 
155C 
CO 87 
1001 
CO 87 


OF 
o1 
00 
01 
ol 
02 
02 
00 
90 
02 
01 
oo 
20 
80 
81 
01 
01 
80 
OF 
87 
oo 
80 
87 
01 
19CA 
16EE 
CO 67 
81 

2c 


29AUGT 
827804 


O21A 


OFFD 
O21A 


0222 
0000 


11C€6 
19F7 
19F9 
O21E 


1664 
O21A 


1010 
O21E 


1603 
021A 


16FF 
1063 
1904 
19B2 
1058 
12D4 
02 

00 

08 

16F1 
1063 
1058 
1057 
19D4 
18 

1063 
1986 
19D4 
17268 
104F 
19CA 
19CA 
O21E 


O21A 


5 


1984 


1968 


1700 
19DD 


600 
19C1 
1058 


190F 


172c 
1982 


ADOR STMT 


OFE6 


OFEF 
OFFO 
OFF2 


OFF8 


1000 
100F 
1011 


101C 
1010 
101F 


1028 
102A 
102C 


1037 
1038 
103A 


10A2 
1044 
1046 


10A8 
10ac 


OTNOV7S 
827805 


539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 


LOCATION DIAGNOSTICS 


MOD 12 


SOURCE STATEMENT. 


ERRORGEAEEREERAEES RSE EAEREEAEE EES 6EESRERETER GES O84$069O84 404009 99089408! 


B 
oc 

END61 8B 
8 
oc 
oc 
oc 
B 
oc 

ENC? B 

* 

* 

* 


* 
* 


PRINT 
KL1#92¢ 
STATCK 
PRINT 
xXL1°86° 
IL1*48* 

AL2 (MSWARN) 
HALT 
xL2°1001° 
*— 


PART NO. 
PAGE 


SPACE 
TWO LINES 
PRINT STATUS 
PRINT 
DO NOT 
RESET ERROR HALT 


HALT 
OF -Ol- 


THIS SUBROUTINE IS USED TO PRINT THE EXPECTED 
AND RECEIVED STATUS, REED SWITCH COMBINATION, 
AND DATA CHARACTER ENCODED. 


sents 


| 
| 
| 


+, 
* 
2! 


* 


THERE REEEEE EEE EERE EERE AREE SSS OSEEOET ORES ESSE SO99949590990000080088 | 


STATCK ST 
ST 
ST 
8 
oc 
oc 
pc 
MVC 
8 
oc 
oc 
oc 
MMVI 
8 
oc 
oc 
oc 
MVC 
5 
oc 
oc 
oc 
MVC 
MYC 
MVI 
LA 
“VI 
LA 
tA 
TBN 
JF 
MVC 
ALC 
ALC 
BNOL 
CLI 
JE 
MYC 
LA 
MVI 
MVC 


LEN 


OOERL 


DOER 
TSTR 


COR 


INCR 


MVC 
SBF 


oc 
oc 
oc 


LEN2 OC 


ENDSTR4+3,ARR 
R1SAV1,XR1 

R2SAV2 sXR2 

UNPACK 

IL1*01° 
AL2(STATUS-1) 
AL2(MSG033-4) 
MSG033(1) eSTATUS—1 
PRINT 

XL1°81° 

IL1*31¢ 
AL2(MSG033) 
LEN1,X*1Fe 

UNPACK 

ILi*Oi* 
AL2(STSHDB=-1) 
AL2(MSG034-4) 
MSG034(1) »STSHOB-1 
PRINT 

XL1'82° 

IL1¢31¢ 
AL2(MSG034) 
MSG135-1(16) ¢MSG135 
COR+3(2),AMS615 
SWITCH, X*00* 
STATUS—3_XR1 
TSTR41y9X*O1* 
TABLET—16 yXR2 
2(9XR2)yXR2 
0(+XR1L),X*NO# 

INCR 
MSG135-15(2) 90 ¢XR2) 
COR+3(2),TWO 
TSTREL(1) »TSTR41 
DOER 

SWITCH, X*80° 

%427 
COR+3(2) » AMSG16 
STSHDB-3,XR1 
SWITCH,X*80* 
MSG136-1(16) 9 MSG136 
DOER1 

WORK-3(1) »STATUS—3 
HORK=3,X* 60° 
UNPACK 

ILitoue 
AL2(WORK=3) 
AL2(MSG035-1) 
PRINT 

xL1*61* 

IL1°448 


SAVE 
REGISTERS 
UNPACK 
CHARACTER 
RECEIVED 


PRINT 
CHARACTER 
RECEIVED 


UNPACK 
CHARACTER 
EXPECTED 


PRINT 
CHARACTER 
EXPECTED 


INITIALIZE 

FOR THE 
BIT 
CHECKER 


TABLE OF PRINTOUTS 
INCREMENT COUNTER 
CHECK FOR ON 


MOVE CHARACTER 

TO REED Sw PRINTOUT 
CHECK ALL 

BITS IN EACH BYTE 


INITIALIZE 

FOR PRINTING 
EXPECTED 
REED SW CHAR 


SET UC MODE 
SWITCH OFF 

UNPACK 
RECEIVED 
REED 

SWITCHES 

PRINT 
RECEIVED 
REED 


PROG ID 
PAGE 


: 
| 
| 
| 
| 
: 
| 
| 


oo, 
: 


¢ 
ie 


Go 


oO 
a} 


ey 


k ¢ 
se 


oe 
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oe ee 
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ane Loc 


10AD 
LOAF 
1083 
1089 
1080 
10C1 
10C2 
10C4 
10C6 
10CA 
10CB 
10cc 
10CE 
1002 
1006 
100A 
10DE 
10E2 
1OE6 
1OEA 
10ED 
10F1 
10F2 
10F3 
10F5 
10F9 
10FO 
1101 
1102 
1103 
1105 
1109 
110C 
1110 
1111 
1115 
1216 
1117 
1119 
1110 
1121 
1124 
1127 
112A 
1120 
1131 
1132 
1133 
1135 
1139 
113€ 
1144 
1149 
114¢ 
1150 
1153 
1157 
115A 
1150 
1161 
1162 
1163 
4165 
1169 
116F 
1175 
1179 
117¢ 


# DATE 
Ec wo. 


5471 PRINTER KEYBOARD FAULT 


OBJECT CODE 


1700 


3C 
oc 
38 
co 
01 


2c 
00 
80 
87 


19CA 
171A 
CO 87 O21A 


82 
2c 


172C 


38 
38 
38 
3B 
38 
38 
38 
F2 
co 
82 
13 


FF 
TF 
01 
FF 
7F 
01 
O1 
90 
87 


180E 


3c 
3c 
co 
82 
14 


13 
oo 
87 


1740 


C2 
F2 
co 
92 
ce 
82 
14 


ol 
87 
87 


87 


1754 


C2 
C2 
79 
79 
79 
F2 
co 
81 
05 


01 
02 
80 
FE 
FF 
90 
87 


199A 


3c 
2c 
OE 
2c 
Eé 
34 
E2 
34 
78 
F2 
co 
81 
00 


01 
00 
00 
00 
02 
02 
02 
02 
oc 
90 
87 


0000 


co 
oc 
OF 
35 
BO 
F2 


29AUGT75 
827804 


67 
00 
Ol 
02 
01 
81 


10AC 
19CA 
19CA 
O21E 


19B6 


19B4 
1982 
1983 
19B8 
1986 
1987 
1202 
oc 

O21A 


10F2 
1904 
O21A 


19B2 
O21A 
O21A 


1986 
180F 
00 
ol 
03 
08 
O21A 


oc 
19BF 
00 


1186 

19E5 1148 
1164 19E&5 
1164 

00 

03 


ADDR 


10AE 


10C1 
10C3 
10€5 


10CA 
10CB 
10CD 


10F1 
10F2 
10F4 


1201 
1102 
1104 


1110 


1115 
1116 
1118 


1131 
1132 
1134 


1161 
1162 
1164 


O7NOV7S 
8278605 


STMT 


607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
o18 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 


LOCATION DIAGNOSTICS MOD 12 


SOURCE STATEMENT 
oc AL2(MSG135) 
MVI LEN2,X*2C* 
MVC WORK~3{1),STSHDB-3 
SBF WORK-34X*80° 
B UNPACK 
oC IL1*o1e 
oc AL2( WORK-3) 
oc AL2(MSG036-1) 
B PRINT 
oc XL1°*62° 
oc IL1*44* 
oc AL2(MSG136) 
SBF STATUS-1,X"FF¢ 
SBF STATUS-3,X*7F* 
SBF STATUS—2eX*O1° 
SBF STSHDB-1,X°FF® 
SBF STSHDOB-3,X* 7F* 
SBF STSHDB-2,Xx°a1° 
TBN MARK »MARK7 
JF *+15 
B PRINT 
oc XL1°82* 
LEN3 oc IL1°19°8 
oC AL2(RESMSG? 
wVI LEN3 ,X°13° 
MVI SWITCH, X*O0* 
B PRINT 
oc XL1°'82°¢ 
oc TL1*20° 
oc AL2(MSG018) 
LA STATUS~3,XR1 
J CHECK 
EXPSTT 6 PRINT 
oc XL2°92° 
8 PRINT 
oc XL1*82¢ 
DC IL1*20* 
oc AL2(MSG019) 
LA STSHDB-3,XR1 
CHECK LA FIRST—1eXKR2 
TBF Gi,XR1) eX*80* 
TeF 10,XR1) eX*FE® 
TBF S(UeXRLIX* FES 
JF CHECK1 
B PRINT 
oc Xi1'81? 
oc 1L2°05°* 
DC AL2( NONE) 
CHECK] Kv! TSTBTGO*1,X*oOL® 
DOIT MVC LENGTH »0{ sXR2) 
ALC LENGTH(1) ,ONE 
MVC INCADR+2Z (130s XR2) 
INCADR LA S~%&(>XRZ2) eXRZ 
st ADRMSGsXR2 
LA 1(,XR2) .XR2 
$T KEEP1.XR2 
TSTBTO TBN Ci sXR1)sxX*00* 
JF INCBTO 
8 PRINT 
Nc xt1°81° 
LENGTH OC IL1*OO0* 
ADRMSG OC AL2(00) 
INCBTO 8 INCB2 
INCB1 MVC KEEP2(1), ENCADR¢2 
SLC ADRMSG(2) ,KEEP2 
L ADRMSG » XR2 
cCLl O0.XR2)eX*OX* 
JE #46 


PART NO. 
PAGE 


4248246 
5A 


SWITCHES 


SET UC MODE 
SWITCH OFF 
UNPACK 
EXPECTED 
REED 
SWITCHES 
PRINT 
EXPECTED 
REED 
SWITCHES 
SETUP 
RECEIVED 
STATUS 
SETUP 
XPTE 
STATUS 


PRINT 
RESERVED 
BIT MESSAGE 


CLEAR SWITCH 
PRINT 
STATUS 
RECEIVED 
WAS 


SPACE 
TwO LINES 
PRINT 
STATUS 
EXPECTED 
WAS 


CHECK 
FOR ANY 
BITS ON 


If NO 
BITS ON, 
PRINT 

*NONE® 


SETUP 
FoR 
LENGTH 
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PAGE 6 | a P WGE 6A 
1031 5471 PRINTER KEYBOARD FAULT LOCATICN DIAGNOSTICS MOD 12 1031 5471 PRINTER KEYBOARD FAULT LOCATION DIAGNOSTICS MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT La ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
| 
1L17F BC 40 01 675 MVI 1(XR2)2X*40! 125F 1022 1260 743 oc XL2°1022° 
1182 35 02 193 676 L KEEP1¢XR2 | 1261 35 O1 19F7 744 RESET L R1LSAV1,XR1 RESTORE 
1186 O€ OO 1158 1158 677 INCB2 ALC TSTBTO+1L(1),TSTBTO+1l TEST ALL BITS 1265 35 02 19F9 745 L R2SAV2 »XR2 REGISTERS 
118C CO 20 1139 678 BNOL OQIT OF EACH BYTE a 8 1269 38 CO 1987 746 SBF STSHDB-2,X*CO# RESET STATUS 
1190 02 01 01 679 LA 1(,XR1)_XR1 1260 35 CO 19€1 747 L ITLV1ex*Co# 
1193 8D 04 00 1996 680 CLC 0(5,XR2) »NONE-4 CHECK FOR 1271 35 04 19D7 748 L SAVPSR,»PSR 
1198 CO O1 1135 681 BNE CHECK1 LAST MESSAGE i 1275 CO 87 0000 749 ENDZ 8B *—-% RETURN 
119C OC O1 1168 19£7 682 MVC =INCBTO+3(2),AINCB1 Vee 750 * 
11A2 OE 00 1904 1905 683 ALC = SWITCH.) »HEX80 | 751 * STATUS RECORDER 
1148 CO 20 110C 684 BNOL EXPSTT nee 752 * 
LIAC 38 FF 1202 685 SBF MARK,X* FFE RESET FALGS ; 1279 34 08 1290 753 SENSOR -. pete ned ae Severe TURN ADORESS 
180 35 01 19F7 686 L R1SAV1 »XR1 RESTORE 1270 30 13 1983 754 SN STATUS—2 oX 
fies 3 a ee 687 L R2SAV24XR2 REGISTERS a af 1281 30 11 1985. (55 SNS STATUS »X*11° SAVE 
1188 OC 01 1168 19€9 688 MVC = INCBT04+3(2),AINCB2 a 1285 3B 01 1983 756 SBF STATUS—25X*01* = RESERVED 
11BE CO 87 O21A 689 B PRINT SPACE 1289 3B OL 1987 757 SBF STSHOB—2,X*O1' T 
11C2 93 11C2 690 oc XL1°93° SIX LINES gi 128D CO 87 0000 758 ENDSOR & e-* RETURN 
11€3 CO 87 0000 691 ENDSTR B *—* RETURN ky 759 * 
692 FERERERESKEKKECAEERESHESEESSRSESESKS ES GS PEEKEKKERLE ESSER SE EEEKREESRESRESEES | 760 * DELAY SUBROUTINES 
693 ® wae Tol * SUBROUTINE ALLOWS ONE MINUTE FOR 
694 * INTERRUPT HANDLING SUBROUTINE : © 762 * A CHANGE OF ST:."US TO BE DETECTED. 
695 * *| 763 * 
696 FEEREREREEESEEEEERTE SES SEREREESERESESEESRERSRETES SS SEES SEES 34 E4SESERER e 1291 34 08 1201 764 DELAY ST ENDD43 gARR couriers 
11C7 34 04 19D7 697 CONSLE ST SAVPSR»PSR .? 2295 34 01 19C7 765 ST SAV1,XR1 SAVE 
11CB 34 20 1278 698 st ENDZ+3,P11AR 1299 34 02 19C9 766 st SAV2¢XR2 OF REGISTERS 
LiCF 30 13 1983 699 SNS  STATUS—2,X*13# SAVE Z 129D 38 20 12D2 767 TBN MARK ,MARK2 CHECK FOR 
1103 30 11 1985 700 SNS STATUSe UE? garalus {-  12al F2 10 OA 768 a ae eae INITIALIZED ON 
1107 35 20 19FB 701 L ADRSER,X*20# HE 12A% 3A 20 1202 769 ’ 
1108 CO 80 1229. 702 BC NOTRES-3,X*80° IAR/ARR oii 12A8 OC 03 19CD 19F5 770 MVC WORK(4) ,DELAYC DELAY CONSTANT 
LIDF CO FF 1166 703 BC NEXT ¢X*FF®& SELECTION \ ss L2AE OF 03 19CD 196F 771 O11 SLC WORK(4) »ONE ALLOW ONE 
11E3 F2 87 43 704 J NOTRES-3 12B4 ©O 01 12C6 772 BNZ 022 MINUTE 
11E6 35 01 1275 705 NEXT L ENDZ4+3,XR1 i -- 1288 CO 87 O21A 773 B PRINT PRINT 
rte ete L1lEA 7D 06 02 706 CLI = =2,XR1)eX* 068 j  12BC 02 12BC 774 oc XL1*02° «nO eee. 
LIED F2 01 06 707 JNE NEXT1 12BD 34 1280 775 OC IL1°528 CHANGE : 
11FO OE O1 1278 19C3 708 ALC €&NDZ43(2),THREE — 12BE 14E8 12BF 776 oC AL2(MSG12) OF STATUS® 
L1F6 3A 40 12D2 709 NEXTL SBN  MARK,MARKL SET INTERRUPT RECEIVED FLAG : &- 120 O€ 01 1201 19C5 777 ALC ENDD+¢3(2),FOUR 
11LFA 38 80 1202 710 TBN MARK ,HARKO CHECK FOR | 12C6 35 O1 19C7 778 D22 L SAV1,XR1 RESTORE | 
LLFE F2 10 OB 711 JT NEXT2 XPTD INTERRUPT | 4,  12CA 35 02 19C9 779 L SAV2 ¢XR2 REGISTERS 
1201 CO 87 OE3D 712 NEXTS 8 REPLCE REPLACE ; CG 12CE CO 87 0000 780 ENDD 8 s—% RETURN 
1205 050000 1207 713 DC xL3*050000° A-B2N2, B2L2 781 * * 
1208 CO 87 1201 714 B NEXTS i 782 * PROGRAM FLAGS * 
120C 38 CO 1983 715 NEXT2 TBN STATUS-2,X®COF. CHECK INTERRUPTS } 783 * s 
1210 F2 10 OB 716 _ JT NEXT3 ENABLED ON 1202 00 1202 784 MARK OC XL1*00* 
1213 CO 87 0E3D 717 8 REPLCE REPLACE | 0080 785 MARKO EQU  x*80* EXPECT AN INTERRUPT 
Hea ps0c00 sae 1219 718 oC mea gen: B2L29 B2N2 . | e 0040 786 MARK1 EQU  xX*s60F PSR ee eo 
1A CO 87 12 719 8 NEXT 0020 787 MARK2 EQU  xXx*208 NITIALIZ 
121E 35 20 19FF 720 NEXT3 L TEM1LsPLIAR DISABLE 0010 788 MARK3 EQU  x*10¢ NON-ERROR PRINTOUT 
1222 F3 10 00 721 SIO. =. X" 00" -K YBD INTERRUPTS © 0008 789 MARK& EQU  x*OBF END SWITCH 
1225 35 20 19FD 722 L TEMPAR »PLIAR RESET : 0004 790 MARKS EQU X*04* CANCEL SWITCH 
1229 F2 10 O1 723 SI1Q X*01*,KYBD INTERRUPTS | 0002 791 MARK6 EQU x*'O2* END OR CAN SWITCH 
122C CO 87 021A 724 NOTRES B PRINT PRINT © 0001 792 MARK7 EQU x*ol? RESERVED BIT 
1230 C6 1230 725 oc XL1°C68 * INTERRUPT | 12D3 00 12D3. 793 FLAG 0DC XL1°00° 
1231 13 1231 726 oc —_—s«dL*:198 NOT | 0080 794 FLAGO EQuU x*BOoF REQ SWITCH 
1232 14FB 1233 «6727 oc AL2(MSG13) RESET® | @ 0040 79© FLAGL EQU X*6QOe KEY HIT OUT OF GROER ‘ 
1234 1021 1235 728 oc xL2*1021° 0020 796 FLAG2 EQU x*208 KEY HELD DOWN 
1236 CO 87 0222 729 8 HALT 0010 797 FLAG3 EQU  x*108 RE-SEAT L2 
123A 1021 1238 730 oC XL2*1021¢ : © 0008 798 FLAG4 EQU x*O0gEF SHIFT KEY MESSAGE 
123C CO 87 OEF3D 731 8 REPLCE REPLACE ’ 1204 00 12D4 799 XMTBLK DC XL1*008 GK 
1240 050000 1242 732 oc XL3"050000# B2L2, B82N2 C 1205 FI6BF26BF46BF86B 12E4 800 TABLET DC CLIG*le2e4e8sheBeP = * 
1243 CO 87 122C 733 8 NOTRES ' &# 1200 €168C026BD7404040 800 
1247 CO 87 OE€3D 734 SELECT 8B REPLCE REPLACE ; 12E5 FO 12E5 801 TABLEA OC XLL*FOF 
1248 800000 1240 735 oc XL3*800000° A-B3L2 ~ l12E6 F2F4F860F LFF 12E8 802 oc XL6*F2F4F860F LFF ® 
124E F2 87 10 736 J RESET & 803 * 
1251 CO 87 021A 737 NOTRE] 8B PRINT PRINT 804 * MESSAGES 
1255 C6 1255 738 oc xXL1°C6* ‘INTERRUPT é 805 * 
1256 31 1256 739 oc IL1°49° RESET BY G 12EC D9C50703C1C3C540 1304 806 REP DC CL25*REPLACE FOLLOWING CARD/S:°¢ 
1257 152C 1258 740 oC AL2(MS614) DISABLE : 12F4 C6D6030306E6C9D5S 806 
1259 1022 125A 741 oc XxL2*1022° COMMAND* 12FC C740C3C109C461E2 806 
1258 CO 87 0222 742 8 HALT '& 1306 7a 806 = 
DATE 29AUG75 OTNOVTS PROG ID 103-1! Cate 29AUGT5 OTNOV75 PROG ID 103-1. 
£C NG. 6827804 827805 | PAGE 6, EC NO. 827804 627895 PAGE 6A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 4248248 IBM MAINTENANCE DIAGNOSTIC PROGRAM PARI NO. 4248248 
| PAGE Th. 2 PAGE 7A 
1031 5471 PRINTER KEYBOARD FAULT LOCATION DIAGNOSTICS M&OD 12 . 1031 5471 PRINTER KEYBOARD FAULT LOCATION DIAGNOSTICS MOD 12 

ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 

1305 C160 1306 807 DC CL2*%a-* 14A3 E240E3C5E2E3 840 
1307 E7ETETE? 130A 808 CARD 0C CL4*XXXX? 14A9 D6D940E2C8C9C6E3 1484 841 MSGSHF OC CL12*OR SHIFT KEY® 
130B C2F203F2 13UE $809 CARDS 0C CL4*B2L2! 1481 4002C5E8 841 
130F C2F204F2 1312 810 oC CL4*B2M2* 1485 D5D640C3C8C1D5C7 1468 842 MSG12 DC CL52*NO CHANGE OF STATUS AFTER ONE MINUTE-ERROR MAY EXIST® 
1313 C2F2D5F2 1316 811 DC Ci.4*B2N2? 14BD C54006C640E2E3C1 842 
1317 C2F207F2 131A 812 DC CL4*'B2P2* 14C5 E3E4E240C1C6E3C5 842 
131B C2F2D9F2 131E 813 pe CL4*B2R2° 14CD D940D6D5C£40D4C9 842 
131F C2F2E2F2 1322 814 oC CL4*B2S2° 1405 DS5E4E3C560C509D9 842 
1323 C2F2E4F2 1326 815 DC CL4'B2u2* 14D0 D6D94004C1E840C5 842 
1327 C2F303F2 132A 816 DC CL4"B3L2° 14E5 ETC9IE2ZE3 842 
132B C2F3D7F2 132E 817 DC CL4'*B3P25 14E9 CODSESC5D9D9ES0D7 14FB 843 MSG13 OC CLIO" INTERRUPT NOT RESET® 
132F C2F3E2F2 1332 818 oc CL4*B3S28 14F1 E340D5D6E34009C5 843 
1333 C2F2E4F3 1336 819 OC CL4*B2uU3* 14F9 E2C5E3 843 
1337 D9C5D840D60S40D7 1349 820 POR DC CL19"REQ OR PROCEED IND)* 14FC CODSE3C509D9E4O7 152C 844 MSG14 OC CL49* INTERRUPT RESET BY DISABLE--REPLACE A-B2L2,A-B2N2° 
133F D9D6C3C5C5C440C9 820 1504 £34009C5E2C5E340 844 
1347 D5C45D 820 150C C2E840C4C9E2C1C2 844 
134A C3C8C5C3D240C2E4 1354 821 MSGO2 DC CL11°CHECK BULBS* 1514 03C5606009C50703 844 
1352 D3C2E2 821 151C C1C3C540C160C 2F2 844 
' 1355 E2E3C1D9E340C961 1363 822 oc CLIS*START 1/0 TEST-* 1524 03F268C160C2F2D5 844 
135D 0640E3C5E2E360 822 152C F2 844 
1364 C2D6E3C840D9C5D8 1395 823 MSGO4 OC CL50*BOTH REQ PEND AND PROCEED INDICATORS SHOULD BE OFF* 152D E6C1D9DSCSD5C760 155C 845 MSWARN OC CL48*WARNING-RESETTING THIS ERROR HALT MAY BE INVALID* 
136C 40D7C5D5C440C1D5 823 1535 D9C5E2C5E3E3C9D5 845 
1374 C440D7D9D6C3C5C5 823 1530 C740E3C8C9E240C5 845 
137C €440C9D5C4C9C3C1 823 1545 D909060940C8C103 845 
1384 E3D609E240E2C8D6 823 154D E340D4C1E840C2C5 845 
138C E£4D3C440C2C540D6 823 eo 1555 40C905E5C1D3C9C4 845 
1394 C6c6 823 155D 60C160C2F2ZE4F240 157F 846 MSG19 OC CL35"-A-B2U2 MAY BE SWAPPED WITH A-A3A3°* 
1396 C9C640C105E840C5 1385 824 MSGEAR OC CL32°IF ANY ERROR OCCURS IN ROUTINE 1° e 1565 04C1E849C2C540E2 846 
139E D9D9D60940D6C 3C 3 824 ph 1560 E€5107D7C5C440E6 846 
13A6 E4D9E240C90540D09 824 1575 C9E3C840C160C1F3 846 
13AE D6E4E3C905C540F1 824 ates 1570 C1F340 846 
Soe eget, Eos 1386 D9C5E2C5E340E3C8 13C3 825 MSGRES OC CL14*RESET THE HALT® Ore 1580 60C160C2F2E4F340 15A2 847 oc CL35"-A-B2U3 MAY BE SWAPPED WITH A-82U5* ae 
138E C540C8C1D3E3 825 1588 D4C1E840C2C540E2 847 
13C4 C3C8C5C30240C3C1 13CF 826 oc CL12*CHECK CABLE(* 1590 E6C1D0707C5C440E6 847 
' 13CC C203C54D 826 cre 1598 C9E3C840C160C 2F2 847 
1300 ETETETETET 1304 827 CABL OC CLS*XXXXx* 15A0 E4F540 847 
1305 4040404040404040 13E8 828 MSGCAB OC 20XL1*40* ‘ 1543 D7C109E3407B8E240 1503 848 MSGz20 OC CL49°PART #S MAY DIFFER, RETURN TO ORIG LOC AFTER SWAF* 
! 130D 4040404040404040 828 aoe 15AB 04C1E840C4C9C6C6 848 
13E5 40404040 828 1583 C5D96840D9C5E3E4 848 
13£9 40 i3E9 829 oc XL1°40* 15BB D9D540E3D6400609 848 
1ZEA O2C4F1F4F1 13EE 830 CABLE OC CL5S*KD141° tee 15C3 C9C7400306C340C1 £48 
13EF C7C3F5F5F3 13F3 831 - oc CL5*GC553° 15CB C6E3C5D940E2E6C1 848 
13F4 CTC3F5F5F2 13F8 832 oc CL5*GC552° ie a 1503 07 848 
13F9 C7TC3F4F6F1 13FD 833 DC CL5*GC461° : i € 1504 C5D5C440E2E6C9E3 150D 849 ENDSW DC CLIO*END SWITCH® 
13FE D9C5D840D7C505C4 141E 834 MSGOS OC CL33"REQ PEND SHOULD BE ON, PROCEED OFF® 150C C3C8 249 
1406 40E2C8D6E403C440 834 or 15DE D6D940D2C5E840C8 15ED 850 MSGKY DC CLIG"OR KEY HELD DGwN® 
\ 140E C2C54006D56807D9 834 . me 15E6 C5D03C440C4D6E6D5 850 
{ 1416 D6C3C5C5C440D6C6 834 15EE DOC5D8E4C5E2E340 15FB 851 MSGRSW OC CLI4*REQUEST SWITCH® 
141E C6 834 os 15F6 EZESC9E3C3CB 851 
141F D7D906C3C5C5C440 143F 835 MSGO6 OC CL33*PROCEED SHOULD BE ON,REQ PEND OFF® mA LSFC D9C560E2C5C1E340 161F 852 MSGL2 OC CL3E*RE-SEAT A-B2i2e SUSPECT OPEN FIN U1L2° 
1427 E2C8D06E403C440C2 835 1604 C160C2F203F 26840 852 
142F C54006D56809C5D8 835 i 160C E2E4E2D7C5C 3E340 852 
1437 4007C505C440D6C6 835 a 1614 D6D7C5054007C905 852 
143F C6 835 161C 40E4F1F2 852 
1440 E2C505E2C540C961 1440 836 MSGOT OC CL14*SENSE I/O TEST® ae 1620 D6D940C4C1E3C140 1638 853 MSGDAT DOC CL28*OR DATA KEY FEY Gut OF ORDER' 
; 1448 D640E3C5E2E3 836 = 1628 D2C5E840C8C9E340 853 
144E C9D54003D6E6C5D09 1450 837 oc CLI6*IN LOWER SHIFT, ° { 1630 D6E4E34006C64006 653 
1456 40E2C8C9C6E36B40 837 Ee 1638 D9C4C5D9 853 
145€ D7D9C5E2E240C105 1478 838 MSGO8 OC CL27"PRESS AND RELEASE SPACE BaR® i © 163€ €3C105C3C50340E2 1648 854 CANSW OC CLIS*CANCEL SwItcHe 
1466 C44009C5D3C5C1Ez 838 1644 E6C9E3C3C8 854 
146E C540E207C1C3C540 838 i¢ 1649 D9C5D840D2C5E850 1650 855 REQCAB DC CLO*REO KEY)® 
1476 C2C109 838 | \- 1651 E2E4E2D7C5C3E340 1679 856 MSGSUS DC CL41"*SUSPECT OPEN PINS B02, 804,D02,003,D04,005* 
1479 C9CE40D9D6E4E3C9 1492 839 MSGO9 OC CL26"IF ROUTINE RUNS OVER 2 MINE ! 1659 D607C5D540D7C905 856 
1481 05C540D9E405E240 839 : ppt. 1661 E240C2FOFZ6BC2FO 856 
1489 D6E5C50940F 24004 839 Ke 1669 F&6BC4FOF26B8C4FO 856 
1491 C905 839 | 1671 F36BC4FOF46BC4F0 856 
1493 C505C1C203C540C9 1448 840 MSG11 OC CL22*ENABLE INTERRUPTS TEST® 1679 F5 856 
1498 OSE3CSO9D9E4O7E3 840 | C ie7a DIC S6E0E2ZC5C1LE340 1683 857 MSGP2 OC CL1IO*RE-SEAT P2* 
‘$ 
| OATE 29AUG75 OTNOVTS PROG ID 103-11 Cooate 29AUG75 O7NOVTS PROG ID 103-1 
EC NO. 827804 827805 PAGE 7) €C WO. 827804 8277805 PAGE 7A 
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1031 5471 PRINTER KEYBOARD FAULT 
ERR LOC OBJECT CODE ADOR STMT 
1682 O7F2 857 
1684 C505C440D6D940C3 1494 858 
168C C1D540E2E6C9E3C3 858 
1694 C8 858 
1695 5C 1695 859 
1696 C4C1E3C140C3C8C1 1684 860 
16S9E 09C1C3E3C5094009 860 
16A6 C5C3CS5C9E5C5C440 860 
16AE 60404060684040 860 
16B5 C4C1E3C140C3C8C1 16D3 861 
16BD 09C 1C3E3C5D940C5 861 
16C5 €707C5C3E3C5C440 €61 
16CD 600404060684040 861 
1604 5C 16D4 862 
1605 O9CSCS5C440E2E6C9 16EF 863 
1600 E3C3C8C5E240D9C5 863 
16E5 C3C5C9E5C5C44060 863 
16ED 404060 863 
16FO 4040404040404040 1700 864 
16F8 4040404040404040 864 
1700 40 864 
170% DOCSCS5C440E2E6C9 1718 865 
1709 E3C3CB8C5E240C5ET 865 
1711 D7C5C3E3C5C44060 865 
1719 404060 865 
171C 4040404040404040 172C 866 
1724 4040404040404040 866 
172C 40 866 
1720 E2E3C1E3E4E240D9 1740 867 
1735 C5C3C5C9E5C5C440 867 
1730 E6C1E268 867 
oe 1741 E2E3C1EZE4E240C5 1754 868 
1749 ETDO7C5C3E3C5C440 868 
1751 E6C1E268 868 
1755 C9C6é40C1DS5SE840D6 177E 869 
175D E3C8C5D940C9D5E3 869 
1765 CSD9D9E4D7E3C905 869 
1760 C740C4C5E5C9C3C5 869 
1775 E240C1E3E3C1C3cs 869 
177D CS5C4 86S 
I77F 40E30640E2ZE8E2ZE3 17Al 870 
1787 C50440C1D9C540D6 870 
178F OTCSD9CLE3SCODSCT 870 
1797 40C3D6D9D9C5C3E3 870 
L79F 03E86B8 870 
L7A2 D6D4C9EZ40C3CB8C5 17CB 871 
I7AA C3D2C9D5C740C2F3 871 
17B2 E2F2€840C2F307F2 871 
17BA 6840C1D5C440C3C1 871 
17C2 C203C54D02C4F1F4 871 
LICA FLSD 87 
17CC C505C440D60940C3 17D6 872 
1704 C1D55D 872 
L707 E2E3D9D6C2C540E2 17EO 873 
17GF E650 873 
17E1 DOCSCSC440E2E65D LTEB 874 
LTE9 E4D7D70940C3C1E2 1L7FA 875 
I7Fl C540D9C5C5C440E2 875 
1T7F9 E65D 875 
I7FB SC 17FB 876 
L7FC DSCSE2C5D°ESC5C4% 180E 877 
1804 40C2C9E340C9E240 877 
180C Dé6D540 8717 
878 
879 
880 
igscF 01 180F e881 
1810 O1 1810 882 
DATE 294U675 O7NOV7S 
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—OCSW OC CLI7*"END OR CAN SWITCH® 

oc CLisse? 
MSG033 OC CL31°DATA CHARACTER RECEIVED - =<, § 
MSG034 OC CL31"DATA CHARACTER EXPECTED - ~, * 


oc CLitee 


MSGO35 OC CL27*REED SWITCHES RECEIVED ~ ~-* 
MSG6135 OC CLi7® . 

MSG036 DC CL27*REED SWITCHES EXPECTED - <-§* 
MSG136 OC CcLi?® : 

MSG018 DC CLZO°STATUS RECEIVED BWAS,* 

MSGO19 DC CL2ZO°STATUS EXPECTED WAS, ° 


oc CL42°*IF ANY OTHER INTERRUPTING DEVICES ATTACHED® 


ASG141 DC CL35° TO SYSTEM ARE OPERATING CORRECTLY, * 
MSG142 OC CL42°OMIT CHECKING B3S2, 83P2, AND CABLE(KD141)* 
MEOC oc CL11°END OR CAN)® 
STRBE OC CL1LO*STROBE Sw} 
REED oc CLB*REED Sw)* 
UCREED OC CLI8*UPPR CASE REED Sw? 
oc CLites 
RESMSG DC CLI9*RESERVED BIT IS ON * 
= 
* STATUS MESSAGES 
* 
oc XLi*O1* 
FIRST OC x£1°QO1* 
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| 
| 
| 
| 
| 
8 | 
| 
| 
1 


Ec na. 
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5471 PRINTER KEYBOARD FAULT 


OBJECT CODE 


0101010101010101 
01010101 

15 

40 

D2C 5EBC2DECLDOC4S 
40D406C4C540E2E6 
C9E3C3C8 

0101 

12 

40 
D2C5E8C2D6C109C4 
40E 2C8CSC6E3C9D5 
Cc? 

21 

40 
09C50840060940C5 
D5C440060940C3C1 
D5C 3C50340D2C5E8 
40E2C104D7D3C5C4 
19 

40 

DIC 50840D60940C5 
D5€ 440060940C€3C1 
05C3C5034002C5E8 
16 

40 
E2E30906C2C540E2 
ESCSE3C3C840E2C1 
D4D7D3C5C4 

OE 

40 
E2E3D9D06C2C540E2 
E6C9E3C3C8 

1B 

40 

D2C 5E8C2D6C109C4 
40C4C1E3C140D2C5 
E8E240C505C1C2D3 
C5C4 

10 

40 
D9C5084002CSE840 
C505C1C203C5C4¢ 
0101010101010101 
0101010101010101 
14 

40 
D2C5EBC206C109C4 
40C4C1E3C140C3C8 
€5C 3D2 

16 

40 

02C SEBC2D6EC1D9C4 
40E7D3C1£3D60940 
C3C8C5C302 

ob 

40 

DSC 5E3E4D9054002 
C5E8 

25 

40 

DSC SE3E4D9D54006 
D940C4C LE 3C140D2 
CSEB40C9ODSE3CST9 
DSESD7E34007C505 
C4C905C7 

08 

40 


29AUG75 
827804 


ADOR 
181¢C 


1810 
181E 
1832 


1834 
1835 
1836 
1847 


1848 
1849 
1869 


186A 
186B 
1883 


1884 
1885 
18SA 


1898 
189C 
18Aa9 


18AA 
18A8 
18C5 


18C6 
18C7 
1806 


18E6 


18E7 
18E8 
18FB 


18FC 
18FD 
1912 


1913 
1914 
191E 


191F 
1920 
1944 


1945 
1946 


GINOVTS 
827805 


STMT 


883 
883 
884 
885 
886 
886 
886 
887 
888 
889 
890 
830 
890 
891 
892 
893 
893 
893 
893 
894 
895 
896 
896 
896 
897 
898 
839 
899 
899 
900 
$01 
902 
902 
$03 
904 
905 
905 
905 
$05 
906 
907 
908 
908 
909 
209 
910 
911 
912 
912 
912 
$13 
914 
915 
915 
915 
916 
917 
918 
918 
919 
920 
921 
921 
921 
921 
921 
922 
923 


PART NO- 


PAGE 


LOCATION DIAGNOSTICS MOD 12 


SOURCE STATEMENT 


oc 


oc 
MUCM oc 
oc 


oc 
oc 
MSHIFT OC 
oc 


oc 
MRECS OC 
oc 


oC 
MREC oc 
oc 


oC 
MSTRBS OC 
oc 


oc 
MSTPB OC 
oc 


MDATE OC 
oc 


oc 
BREQE OC 
oc 


oc 
MDATCK OC 
DC 


oc 
MXLAT OC 
oc 


oc 
MRET oc 


oc 
MDATP OC 
oc 


8S 


HEND 


12IL1*O1* 


ILL*2l¢ 
XL1*40° 
CL2ZO"*KEYBOARD MODE SwITCH® 


21L1¢01* 
TL1*18° 
XL1*40° 
CLI7*KEYBOARD SHIFTING® 


1L1°33* 
XL1*40° 
CL32*REQ OR END OR CANCEL KEY SAHPLED* 


IL1*25* 
XL1*40° 
CL24*REQ OR END OR CANCEL KEY®* 


IL1*22¢ 
XL1*40° 
CL21*°STROBE SWITCH SAMPLED®* 


IL1*14° 
XL1"40" 
CLI3*STROBE SwWITCH® 


IL1*27° 
XL1°40* 
CL26*KEYBOARD DATA KEYS ENABLED® 


ILL°16° 
XL1*40* 
CL1S5*REQ KEY ENABLED® 


16ILi*ois 


IL1°*20° 
XL1*40°* 
CLI9*KEYBGARD DATA CHECK® 


IL1*22¢ 
XL1*40°* 
CL21L°KEYBOARD XLATOR CHECK? 


ILZ*11¢ 
XL1*40° 
CLIO*RETURN KEY® 


IL1°37° 
XL1°40* 
CL36*RETURN GR DATA KEY INTERRUPT PENDING* 


IL1*08° 
XL1°40° 


PROG ID 
PAGE 


4248248 


BA 


103-1 


8A 


eeee7e7eeeeeeee ee 802828 eee eeeeeeeeeese 


) 
| 
| 
{ 
{ 
| 


At inate reece 


a en 


-” 


ee 
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ERR LOC 


1947 
194E 
194F 
1950 
1958 
195A 
1958 
195C 
1964 
196C 
1974 
197B 
197C 
1970 
1985 
1980 
1995 
1996 
1998 
19A3 
19AB 


1$B2 
19B6 
19BA 
198C 
LOBE 
19CO0 
19C2 
19C4 
19C6 
19C8 
19CA 
19CE 
1902 
1904 
1905 
1906 
1908 
19DA 
190C 
19DE 
19E0 
19E2 
19E4 
19E6 
19E8 
LOEA 
19EE 
19F2 
19F6 
19F8 
1°FA 
19FC 
LOFE 
1A00 


OATE 
EC NO. 


5471 PRINTER KEYBOARD FAULT 


OBJECT CODE ADOR STMT 
C505C44002C5E8 194D 924 
Ob 194E 925 
40 194F 926 
€3C105C3C5034002 1959 927 
C5E8 927 
20 195A 928 
40 195B 929 
C505C440060940C3 197A 930 
C105C3C50340C9D5 930 
E3C50909E407E340 930 
D7C5D5C4C9D5C7 930 
1A 1978 931 
40 197C 9932 
D9C50840D2C5E840 1995 933 
CIDSESC5D9DIE4DT 933 
£340D7C5D5C4C9D5 933 
C7 933 
4005D605C5 199A 934 
E3D9C1D5E2D4C9E3 1981 935 
40C 20306C30240C1 935 
E2E2C504C2D03€8 935 
936 
937 
938 
00000000 19B5 939 
o0c00000 19B9 940 
0000 1968B 941 
0000 19BD 942 
0001 19BF 943 
0002 19C1 944 
0003 19C3 945 
0004 19C5 946 
0000 19C7 947 
0000 19C9 948 
00000000 19CD 949 
00000000 19D1 950 
FFFF 1903 951 
00 19D4 952 
80 1905 953 
0000 1907 954 
OFFD 1909 955 
OFF9 190B 956 
16F1 190D 957 
1710 190F 958 
11C7 19E1 959 
0000 19E3 960 
0000 19E5 961 
1169 19ET 962 
1186 19E9 963 
C2F2E4F3 19EO0 964 
C2F2E4F2 19Fl 965 
00044630 19F5 966 
0000 19F7T 967 
0000 19F9 968 
1247 19FB 969 
1261 19FD 970 
1251 19FF 971 
40304008 1AO3 972 
973 
974 
975 
0001 976 
0002 977 
0004 978 
0216 979 
022A 980 
O21A 981 
0222 982 

29AUGTS OTNOVTS 

827804 827805 


PART NO. 
PAGE 
LOCATION DIAGNOSTICS MOD 12 
SOURCE STATEMENT 
oc CL7'END KEY! 
oc IL1*11¢ 
MCAN OC XL1"40¢ 
oc CLLO*CANCCL KEY® 
nc IL1"32¢ 
MEOCP DC KL1"40# 
oc CL31"END OR CANCEL INTERRUPT PENDING? 
oc IL1"26° 
MREQP OC XL1*'408 
oc CL25*REQ KEY INTERRUPT PENDING! 
NONE OC CL5* NONE? 
XMTMSG DC CL23*TRANSMIT BLOCK ASSEMBLY® 
s 
* CONSTANTS 
* 
STATUS DC XL4*008 
STSHDB OC XL4&*008 
oc XL2"008 
ZERO OC XL2*00" 
ONE oc XL2*O1* 
TWO DC XL2*02¢ 
THREE OC XL2"03! 
FOUR 0C XL2"04# 
SAV1 OC XL2"00° 
SAV2 OC XL2*008 
WORK OC XL4*00! 
WORK1 OC XL4*008 
HEXFF DC XL2°FFFFS 
SWITCH DC XL1°00! 
HEX80 0DC XL1*80! 
SAVPSR DC XL2°00# 
STATCA OC AL2(STATCK) 
ENDTA. OC AL2(ENDT7) 
AMSG15 OC AL2(MSG135-15) 
AMSG16 DC AL2(MSG136-15) 
ITLV1 OC AL2(CONSLE) 
KEEP] DC XL2*00008 
KEEP2 OC XL2*0000° 
AINCB1 DC AL2(INCB1) 
AINCB2 OC AL2(INCB2) 
B2U3. OC CL4*B2u3° 
B2U2 OC CL4*B2U2' 
DELAYC OC XL4*00044630° 
R1ISAV1 DC XL2*008 
R2SAV2 OC XL2*00° 
AORSER OC AL2(SELECT) 
TEMPAR DC AL2(RESET) 
TEML OC AL2(NOTREL) 
Stat OC XL4*40304008° 
2 
* EQUATES 
s 
XR1 EQU = xK*O1°¢ 
XR2 EQU = X*02" 
PSR EQU x04! 
LINK EQU X*2168 
LOAD EQU = x*22A8 
PRINT EQU xX*22A° 
HALT E€QU = xX*2228 
PROG ID 
PAGE 


4248248: 
9 | 


eeeeoodeoodc 


103-1 
9 | 


SPN 


‘ 


oO © 


060 00 9 


oO @ © 


© 
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ERR LOC OBJECT CODE 


DATE 
EC NO. 


5471 PRINTER KEYBOARD FAULT LOCATION DIAGNOSTICS MOD 12 


29AUG75 
627804 


ADDR STMT SOURCE STATEMENT 


0008 983 ARR EQU x*08! 

O21E 984 UNPACK EQU X*21€¢ 
0020 965 PLIAR EQU x*208 

0010 986 KYBD EQU x*108 

FFFF 987 END 


VTNOVTS 
827805 


PART NO. 
PAGE 


PROG 10 
PaGE 


4248248 
9A 


103-1 | 


C 
= 


. ! : TIC PROGRAM 7 PERT NO. 4248248 
‘tom MAINTENANCE DIAGNOSTIC PROG peat 248 


IBM MAINTENANCE DIAGNOSTIC PROGRAM | PART NO. 4248248 
PAGE . 10 


1031 5471 PRINTER KEYBOARD FAULT LOCATION DIAGNOSTICS MOD 12 1031 5471 PRINTER KEYBOARD FAULT LOCATION DIAGNOSTICS MOD 12 


mm 


| 

' 

| 

| 

| 

| 

! 
CROSS-REFERENCE | CROSS-REFERENCE 

| 

| 

| 

{ 

| 

| 

{ 

| 

| 

1 

{ 

{ 

t 

} 





SYMBOL T LEN VALUE ODEFN REFERENCES ¢ SYMBOL T LEN VALUE ODEFN REFERENCES 
ADRMSG A 002 1164 0668 0660® 0671*% 0672 ENOX3 A 004 OF67 0493 0488 
AORSER A 002 19FB 0969 0701 - ENDZ A 004 1275 0749 0698* 0705 07062 
AINCBL A 002 19&7 0962 0682 ENDO6 A 004 OFCC 0534 0528 
AINCB2 A 002 19€9 0963 0688 ENDOT A 004 OF85 0505 0500 
AMSG15 A 002 1900 0957 0579 ENDO71 A 003 OFA3 06517 0512 
AMSG16 A 002 190F 0958 0593 ENDO72 A 004 OF94 O51] 0506 
ARR C 001 o00gs 0983 0398 0400 0556 0753 0764 ENDOS A 004 OF?76 0499 0494 
Bl A 004 OB9A 0181 0171 - ENDO9L A 004 OF3A 0475 0470 
BLO A 006 OC3B 0225 0222 \ END61 A 004 OFE7T 0541 0399% 04169 
811 A 003 OCB89 0246 0231 END66 A 004 OED4 0442 0428 0438 
Blll A 004 Ov58 0165 0142 ~ ENDOT A 004 OFF9 0548 0398* 0401% 0956 
B12 A 003 OC67 0237 0234 i * END7A A 002 19DB 0956 0416 
B13 A 006 OC78 0242 0238 EGCSW A 017 1694 0858 0510 
B14 A 003 OC9A 0251 0247 , « EXPSTT A 004 110C 0639 0684 
B15 A 003 OCAB 0256 0252 i + FIRST A OOL 1810 0882 0646 
B16 A 003 OCEE 0274 0262 FLAG A001 1203 0793 0145* 0155 01614 0165* 0178% 0267* 0475 0481 0487 0493 5511 O0537* 
Bl6l A 003 OCBC 0261 0257 | « FLAGO C 001 0080 0794 0267 0475 
Bl62 A 004 OCDD 0270 0266 | \. FLAG1 C001 0040 0795 0481 
Bl63 A 004 OCE7 0272 0269 FLAG2 C 001 0020 0796 0487 
BL7 A 003 OCFF 0279 0275 ce FLAG3 C 001 0010 0797 0178 0493 
B19 A 003 OD1O 0284 0280 | \. FLAG4 C€ 001 0008 07°98 0511 
B2 A 004 OAF3 0139 0147 | FOUR A 002 19C5 0946 0777 
82U2 A 004 19F1 0965 0451 ~ HALT C 001 0222 0982 0065 ©O77 GOSS 0102 0136 0330 0546 0729 0742 
B2U3 A 004 19ED 0964 0457 | %SHEXFF A 002 1903 0951 0101 
B20 A 003 OD27 0290 0285 HEX8O A001] 1905 0953 046? 0683 
B21 A 003 003C 0296 0291 INC A 003 OF11 0463 0445 0458 
B22 A 003 OD4D 0301 0297 | Ne? INCADR A 003 1149 0659 0658® 0670 
623 A 003 ODAC 0332 0307 INCBTO A 064 1165 0669 0664 0682% 0686 : 
B231 A 003 ODSE 0306 0302 | ws. INCBL & 006 1169 0670 0962 

___._-_-.__ B246 =A 004 O85 0317 0312 ' R#INCB2 A 006 1186 0677 0669 0963 . sissies 
B247 A 004 OM6C 0310 031% INCR A006 1068 0589 0586 
B3 A 004 OB49 0162 0156 i gm INCZ A 006 OFOO 0457 0452 
B85 A 004 0885 0188 0184 | &INC2 A 003 OECT 0439 0432 
B6 A 004 OBD3 0196 0191 ITLV2 A 002 19€1 0959 0039 0361 O747 
87 A 003 OC50 0230 0203 i am KEEPL A 002 19E3 0960 0662® 0676 
68 A 004 OC2A 0220 0206 | \KEEP2 A 002 19€5 0961 0670* 0671 
89 A004 OClB 0216 0208 KYBD C001 0010 0986 0064 0076 0088 0100 0362 0363 0369 O371 0380 0721 0O723 
CABL A 005 1304 0827 04338 LENGTH A OOL 1162 0667 0656* 0657% 
CABLE A 00S 13EE 0830 0429 | & LENT =A 001 1010 0566 0192* 0220# 0239% 0248% 03089 05684 
CANSW A O13 1648 0854 0504 LEN2 A OOL 10AC 0606 0216* 0226% 0243¢ 0253% 03342 O0606¢ - 
CARD A 004 130A 0808 0446# 0450 0451 0457 -LEN3 A001 lL0F2 0629 0151* 0185¢ 0631 
CARDS A 004 130E 0809 0442 / w LINK € 001 0216 0979 0104 0344 
CHECK A 004 111D 0646 0638 LOAD C001 022A 0980 0381 
CHECK] A 004 1135 0655 0650 06861 MARK AOOl 12D2 0784 0038* 0116* 0138* 0152* 0186* 0270% 0326 0406 0469 0499 0505 05369 
CHKPRT A 004 OFB9 0527 0518 © 0625 0685* 0709* 0710 O767 O769e 
CONSLE A 004 11C7 0697 0959 MARKO C 001 0080 0785 0716 
CONl A004 O€D8 0443 0468 MARK1 C 001 0040 0786 0709 
CON11L A 004 OE€89 0418 0407 1 &MARK2 C 001 0020 0787 0138 O767 0769 
COR A 005 1060 0587 0579 0588% 05932 ; MARK3 C001 0010 oO788 0038 0116 0326 0406 
col A 003 OEA3 0427 0417 MARKS C 001 0008 0789 0469 
Cl A 004 OCE26 0376 0368 1 SMARKS C001 0004 0790 0499 
C2 A 003 0€35 0380 0375 MARK6 C 001 0002 0791 0270 0505 
DELAY A 004 1291 0764 0146 | ge MARKT C 00L 0001 0792 0152 0288 0625 
DELAYC A 004 19F5 0965 0770 1 &.MCAN A OOL 194F 0926 0340% 
DCER A 003 1057 0584 0590 | MDATCK A 001 18€8 0911 0204 
OCERL A 004 104F 0582 0597 | ».MDATE A OOL 18AB 0904 0298 0377# 
OOIT A 005 1139 0656 0678 | &-MDATP A OO1 1920 0920 0173 0337¢% 
Oll A 006 12AE O771 0768 | MEND A OOl 1946 0923 03419 
022 & 004 12C6 o778 0772 | «-MEOC A OLL 1706 0872 0271 
ENDO A 004 12CF 0780 OT64* O777*% ‘ “MEOCP A OO1 1958 0929 0338s 
ENOSNS A 004 ODDS 0344 0200 | MODlL A OOl OECO 0435 0412% 04623 
ENDSOR A 004 1280 0758 0753% | -MOD2 A001 OCEEB 0448 06138 04249 
ENDSTR A 004 11C3 0691 0556* | Nw MOD3 A OOL OEFC 0454 0414 0425¢ 
ENDSW A010 15DD 0849 0474 | MOD4 A 001 OFOD 0460 0415% 0426% 
ENDXL A 004 OF49 0461 0476 | g-MREC A001 1868 0895 0263* 0276% “a 
ENOX2 A 004 OF58 0487 0482 | MRECS A O01 1849 0892 02648 0281% 
DATE 29AUGT5 O7NOV7S PROG ID oe Coate 29AUG7S5 OTNOV7S PROG ID 103-1. 
EC NO. 82760 827805 PAGE 1 EC NO. 827804 827805 PAGE 10A 


©®e«ee eee 000008088080800 0080800080080 08086060086 CO 
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SYMBOL 


MREQE 
MREQP 
MrET 
MSGCAB 
MSGDAT 
MSGEAR 
MSGKY 
MSGL2 
HSGP2 
MSGRES 
MSGRSW 
MSGSHF 
MSGSUS 
MSG018 
MSGO019 
MSGO02 
MSG033 
MSG034 
MSG035 
MSG036 
MSGO4 
MSGO5 
MSG06 
MSGO7 
MSGO08 
MSGO09 
MSG11 
MSG12 
MSG13 
MSG135 
MSG136 
MSG14 
MSG141 
MSG142 
MSG19 
éMSG20 
MSHIFT 
MSTRB 
MSTRBS 
MSWARN 
MUCM 
MXLAT 
NEXT 
NEXT1L 
NEXT2 
NEXT3 
NEXTS 
NONE 
NOTRES 
NOTRE1L 
ONE 
POR 
PRINT 


PSR 
PLIAR 
REED 
REP 
REPLCE 


REQCAB 
RESET 


DATE 
eC #0. 


ODP PPP PP PPP PPPrPPrPrPrPPrPPrPrPPpPprYrYrrPrPrPrPrPrPpPrrprrrrprrrprprpprrprprrprprrprp + 


LEN VALUE 
001 18C7 
001 197C 
001 1914 
001 13€8 
028 1638 
032 1385 
016 15€D 
036 161F 
010 1683 
014 13C3 
014 15F8 
O12 1484 
041 1679 
020 1740 
020 1754 
Oll 1354 
031 1684 
031 1603 
O27 16EF 
O27 1718 
050 1395 
033 141€ 
033 143F 
014 144) 
O27 1478 
026 1492 
022 14A8 
052 14E8 
019 14FB 
017 1700 
017) #172C 
049 152C 
035 I17AL 
042 17CB 
035 i157F 
049 1503 
001 1836 
001 189C 
001 1885 
0486 155C 
001 181E 
001 18F0 
004 2L1E6 
004 11F6 
004 120C 
004 121E 
004 1201 
005 199A 
004 122C 
004 1251 
002 196F 
019 1349 
OOl O21A 
001 ©0046 
001 0029 
008 17E8 
025 1304 
004 OE&30 
008 1650 
004 1261 
29AUGTS5 

827804 


DEFN 


o907 
0932 
0917 
0828 
0853 
0824 
0850 
0852 
0857 
0825 
0851 
0841 
0856 
0867 
0868 
0821 
0860 
C861 
0863 
08665 
0823 
0834 
0835 
0836 
0838 
0839 
0840 
0842 
0843 
0864 
0866 
0844 
0870 
0871 
0846 
0848 
O8ss 
0901 
0898 
0845 
0885 
0914 
0705 
0709 
0715 
0720 
0712 
0934 
0724 
G737 
0943 
0820 
0981 


0978 
0985 
0874 
0806 
0398 


0855 
0744 


OTNOVTS 
827805 


PART NO. 
PAGE 
5471 PRINTER KEYBOARD FAULT LOCATION DIAGNOSTICS MOD 12 
CROSS-REFERENCE 

REFERENCES 

0303* 0376* 

0339# 

0258% 

0053* 0158* 0225* 0242* 0268* 0271* 0287* 0437 0538 0538¢% 

0486 

0048 

0492 

0498 

0320 

0063 0075 oO087 0099 0131 

0480 

0516 

0325 

0636 

0644 

0052 

0562 0563% 0567 

0572 0573* 0577 

0603 

0614 

0043 0059 0094 

0082 0150 

0070 

0120 

0135 

0125 

0358 

O776 

OT27 

0578 O0578% 0587* 0607 0957 

0596 0596% 0618 0958 

0740 

0522 

0526 

0456 

0462 

0292¢ 

0162% 0193% 

0157# 01724 

0545 

0286% 

0211% 02324 

0703 

O707 

O711 0719 

0716 

0714 

0654 0680 

0702 0704 0733 

0971 

0657 0771 

0053 

0040 0045 0049 0056 0060 0067 0072 0079 0084 0091 0096 0117 

0122 0128 6132 0317 0322 0355 0408 0418 0434 0447 0453 0459 

0471 0477 0483 0489 0495 0501 0507 0513 0519 0523 0530 0539 

0542 0564 0574 0604 0615 0627 0633 0639 0641 0651 0665 0689 

0724 O737 O773 

0697 0748% 

0698 0720% 07228 

0225 0242 

0411 0421 

0054 0126 0153 0159 0163 0176 0179 0194 0212 0214 0218 0223 

0228 0235 0240 0244 0249 0254 0259 0272 0277 0282 0288 0294 

0299 0304 0315 0327 0335 0342 0378 0712 O717 0731 0734 

0268 

0736 0970 
PROG 10 
PAGE 


4248248 
11 


oy 


erry 


ae 


C 


ue 


*, 


hee 
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SYMBOL 


KESMSG 
RTNO1 
RTNO2 
RTNO3 
R1LSAV1 
R2SAV2 
SAVPSR 
SAV1 
SAV2 
SELECT 
SENSOR 
STAT 
STATCA 
STATCK 
STATUS 


STRBE 
STSHOB 


SWITCH 
TABLEA 


~ TABLET 
. TEMPAR 


TEM) 
THREE 


TST 


TSTBTO 
TSTR 
TST2 
Two 
UCREED 
UNPACK 
UVWXYZ 
WORK 
WORK 1 
XMTBLK 
XMTMSG 
XR1 


XR2 


ZERO 


5471 PRINTER KEYBOARD FAULT LOCATION OIAGNOSTICS MOD 12 


PPrrPrYrrPrprPrrrrrrpp -t 


OPrPprPpOorrPprrrrprrrrprrp Pp 


A 


LEN VALUE 
019 180E 
001 OAOD 
001 OAB2 
001 opoc 
002 19F7 
002 19F9 
002 1907 
602 19C7 
002 19¢9 
004 1247 
004 1279 
004 1A03 
002 1909 
004 OFFD 
004 1985 
010 I17E£0 
004 1989 
001 1904 
001 12€5 
016 12E4 
00z 19FD 
002 19FF 
002 19C3 
003 OE£DC 
003 1157 
003 105A 
003 OEB1 
002 19C1 
018 17FA 
0Ol O21E 
001 OA0d 
004 19C0 
004 19D1 
001 1204 
023 1981 
001 OOO] 
0Ol 0002 
002 1960 


DEFN 


0877 
0034 
0111 
0351 
0967 
0968 
0954 
0947 
0948 
0734 
0753 
0972 
0955 
0556 
0939 


0873 
0940 


0952 
0801 
0800 
0970 
0971 
0945 
0444 
0663 
0585 
0431 
0944 
0875 
0984 
c00s 
0949 
0950 
0799 
0935 
0976 


C9o77 


0942 


REFERENCES 


CROSS-REFERENCE 


0150* 0181* 0182 


0024 
0036 
0113 
O557# 
0558 
069T7* 
0403*% 
04044 
C969 
0169 
0115 
0399 
0329 
0139% 
0198 
0620* 
0158 
0115* 
0645 
0402* 
0309 
0583 
O7T22 
0720 
0401 
0443% 
0655*% 
05824 
04304 
0588 
0287 
0559 


05984 
0400* 
0217* 
0533 
02014 
0261 
0405% 
0637* 
O7E5 
0309% 
0463 
9659*% 
0766 
0360 


0686 
0687 
0748 
0534 
0535 


0365 


0541 
0140# 
0199 
0621% 


0199 
07468 
04672 


0708 
0464 
0677 
0589 
0440 


0569 


05992 
0405 
0227% 


0202 
0265 
0427 
6645% 
O778% 
0310 
04634 
G660 
OT79% 


0744 
0745 


0765% 
O76 64 


0372 


0955 
0141 
0201 
0637 


0360 
O757# 
0580 


0464% 
06774 
0589% 
6440% 


0600 
0602 
02932 
0205 
0274 
0431 
0647 
0312 


0535* 
0661 


TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 


DATE 
EC NO. 
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0779 
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0465 
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0649 


0313 
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0663 
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0672 
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0374 0561 
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0573 0594 
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O770% O771% 
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0517 ©6534 
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0429# 0433 
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0306 0310 
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0439 04392 
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cL 
GBK GBD PN 42 
T+-7 DCD B-4 


T+-25CT4AA T /0H 
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1$¥10310010 | 
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| 
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60£0 $L 10310017; 
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20 @ avY10310018| 
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Co re—nt5c86 /DAEIW 


Cres BBAGF( DR* 36 


(14s A3E_<<c1s"E0 


Cr+sB>n36 FIL2—J- 


@3r+/cz 1806, 0 Fey 


© 1+/0vaz <OH*BFYH 


54 7-9-9901 2u T 


Giesreev0 


C /1F 


C" ++/GN( 60AD0-R908 


Gite sne_un-F-? ~AH 


@resteo 2? /08°AE 
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Gres. AFS<# JWTOH* 
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827804 


1 THROUGH 16 CL 17 THROUGH 32 


@HAH@HBD=8a &: 
2upaz 1<H <8G /Y 
"H #*4-DAC- RS5AX 
SETESHA-LazZ HOHS 
ADJEM+ —K4"HEB<B 
1(GDRI3MBF*USG1. 
BFAX /OK3 JW4Es 
< JATE)4@ AXMO-D 
< JATED@B sW6lH 
R_T> Fy /0HS JX 
LF 8aDIC2l R5<B 
” / OHE~GMRWTOADN- 
FC ROJESCODJRAX 
"FERS® —DEO#"1. 
20 1aJ97HGESMADX/ 


OH*KCCM-F-8 3D 
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CL 33 THROUGH 48 


23. BaZ & &L5 C 
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/OHE-EYNTLS D_I 
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LEIZEH*BG SHEHSB 
7(* RELMDFI~ /0 
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OLSSIILUCASS# 19K 
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E372 &T /OHE NE 
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Kaz HOH*BFYD(EU- 
E-KyP23-Aa0_L2u 0 
F<ANSOH*BH/ AGH* 
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+ SATF#D+ AASDE? 
BG-DR2/ $>0H*BFYD 
@F$-#-1W6+4 0DR_3- 


MESLB JW60-HOCT7THW 


B LEBFs(s C2UT . 


“HADS4—DATEE FRS 
4AAXP(B K3C LFS< 
GCTSE C /1HAt< 
GCTSE C s1HZOH® 
*  eKUC LES<ODuM 
"0 OKLZBG /YBCAL 
P4aGCIMCFS_IL5>$ 
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B5>1HE(XE6DCP1)P 
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B /< 30¢10310021 
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8 /H 28210310026 
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* "ce 90v10310026 
E-/a 7K¥10310027 
"WA 38810310028 


ZEO ~$410310029 
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AD_H 2@D#10310030_ 


*" gu E3H10310032 
* son’ ~6010910082. 
”" $0 @/<10310033 
opuu 36010310036 
RZ"H 32%10310035 
#10 1H%20310036 
5+0D 02010310037 
¥C-D =L¥10310038 
15*#* £3H10310039 
ua*u *J¥10310040 
D&<D EYU10310061 


NE(U 8#<10310042 
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CL 1 THROUGH 16 


T+/1YS>LT2)PEEIG 
T+/ETE(.DAL1I2I 
T#/J51#) 8ZTO9EI 
T#/KRE*PSBUCASES 
T#/LM2Z2)PTLIXRICA 
T#¢/MI53LTLOCE6)X 


T+/NH2:.A0_| EQFC 


_T4/0E0) 1TE(LAZDC 


T#/P a4CM03/ OZN 


— TO/PAS_XIL4CL523( 


T#/Q664N-82ZPA84C 


T#/R1S_xXO1L)XCOIP 


i+/EZE@LO*F2DaIP | 


T4/S$XEFA EFASEDC 
T+/*S9*PDEFA GFA 
T+/))GDA EDA &DA 
T#/302<PRECXNBAP 
T#/-L5_XR1#1T42/ 
Fe/-+0INISS(R5Z. 
T#//1 GDA EDA &D 
T+/SD6*PQELSRE<P 
T4/S"E4.T6) SBIMC 


DATE 
Ec “O. 


29AUGT75 
827804 
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CL 17 THROUGH 32 


R1s.EB4CT2<N 2<6 
5*~/|GO"P5az—C*1$ 
DE<.EE($NE*XE6DC 
 @#PL1#GS1NCS59G 
T8UCT1;.T5_V 8&T 
O6MCMOS/ 13-18>1 
R1)~LO*] E&<E-07. 
B1MCI53 PAS@XDO<E 
” g>Sa5*-E1DCW231 
"osstTiiv 8>sa5aP 
AQ<.24"1 9 64+-U8_- 
C1) 8>$18a1HEsP 
R1OCS1*#GTE(+219P 
00s 1A&<1HO) XAO=} 
“EDA EDA EDA EDA 
"G+. 103 1UBUCRISI 
R6SLPBAXN14CD1 sP 
2 5_LI84CC2<PC42X 
E&+.WP)XEL®J BR 
A GDA SDNE(.Er<. 
NLOCO6OMCCO IPCI) ¢ 
SORXTOI/ BICNS* | 


OTNOVTS 
827805 
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OBJECT CARD LISTING 


CL 33 THROUGH 48 


L8AlH1*1KE<{A0_1 
16#PQE(AE5%J5 B3T 
P1)PDE(SFL>-E53~ 
C1MCBO)XTLUCR5>L 
11>( 48PY5)R Oat 
153 1£6)XUS=( 5) 
LaW?AQ<. 25-.WOIX 
~07.U@UCHO3/ O%N 
HE<E-07.U*HCPODX 
N10C S9ZxXTOaTOEHC 
E0=( 5_~ESMCP2IN 
QE(.E:E7S9+.P181 
DE(SRE<| ASMCS9RX 
E6MCE9*~E0=1E1DA 
"EDA E(XELSN 8>$ 
£23PE1DCWO31,8>1 
10aPSE<GT8aGC2<P 
N14CB@=.2E4CBa's 
19(-P6MCCOs EE (X 
00) XDE(LOL<N 8>$ 
” eSPYE*.AS( L186 


El 9 8>(RSZ.EEC. 


CL 49 THROUGH 64 


EL saX9=-XEDA EDA 
09 (| DE<-EE(SNEt= 
EG<V/SUCT13~-T2N 
T2)PEE(XUS31 5>P 
A5*xEE (SFE4.T05 1 
TE(XEBSPT2)PTLIX 
N2)PGQ(XESSPTEAX 
* g>$AS*=E1DCW231 
TEG?SE(LASDCD2%$ 
Kls/ 2<PL10CD5>$ 
*91G25_v 1<GTOMC 
TE(SPLIN S@XNBUC 
T0a/#1<GTONCC2<G 
“EDA-E4A PCXELSS 
18alHisl 13:~P194 
AB=LSE<PXSaPC8aP 
DE+10&+.¥8> 1 E5DC 
2E4CAS*J OaGB4aN 
E1*s 8>R)P(XEBRP 
18alH EDKE(.E<. 
RE(XECDCOGMCES#S 


W231C2A_ 42°Y0_$ 


CL 65 THROUGH 80 


"EDA EDA EDA EDA 
RSZIEL®I SESF5°X 
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UBUCA1> | E6MCOS#N 
RO(ATE (XEBEPTE<. 
N14CT2<XSECPROIS 
H&<E-0-~| A@sA-00C 
FL) Ve6 (XEB=LRSMC 
N6*PQ9CPSB4CS9ZX 
K13/ 2<xTE(SUB4C 
Ball 0?7C4EaLOaH? 
RO*ITLIV 6#PC18X 
"g>sisaiHisl 6eP 
T1#J QDA ODA EDA 
DE+$ABW711UCAS3/ 
AG*N 5_~E68GT2)P 
(4ZL1° LED 1 PDELS 
RI*PDE<. 184C 1 8UC 
00)XD&+.H2%8T2)P 
“5_v OaGNoaPLet. 


A6*J 1<GTOMCKIST 
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L7 #02 = 82 2 
18 stncenencosensensnsenenssnsnssesnessenssssnsensesensesensnsensnsenenens| < 2£2¢20643 — 222089484 
19 a 84 @ RTNO2 * CANCEL KEV TEST * RTNO2Z ® 
19 85 %*923446682 $44662002 
CAOO 1041 QA01L 8 =20 oc XL2°1041° PROGRAM ID AND REVISION LEVEL 86 * 
OA02 00 OA02 21 oc xL1*00° SECTION FLAGS a7 * ROUTINE PREFIX 
0a03 00 0A03 22 ce eres ereuea NUMBER | © oaaa 02 OAAA 88 RTNO2Z DC xL1*02* ROUTINE NUMBER 
OA04 0000 OA0S 9 23 xL2*008 OAAB 80 OAAB- 89 oc XL1°80* INTERVENTION REQUIRED 
0406 OAOD QAO? 24 oc ALZ(RTNOI) ADDRESS OF FIRST ROUTINE | x,  OAAC 0826 QAAD 90 oc AL2(RTNO3) ADDRESS OF NEXT ROUTINE 
0a08 0000 0a0g)—s 25 oc XL2*00* RESERVED © 91 
OAOA 105000 OAOC 26 oc xL3*105000* PRINTER KEYBOARD SPUT ENTRY 91 
27 OAAE F2 10 00 92 S10 = X*00*,KYBD RESET KEYBOARD 
27 | Cc: OAB1 OC 05 1857 1094 93 MVC «MSG16-9(6) -CANCEL 
28 * 1 OAB? CO 87 021A 94 8 PRINT PRINT 
29 949699942 Seteeesse OABR 42 OABB 95 DC XL1*42¢ *CANCEL 
39 * RTNO] ¢ REQUEST KEY TEST #* RTNOL *| CG OABC 10 OABC 96 oc IL1°16* KEY 
3] #0298804 ee eeee ee OABD 1860 OABE 97 DC AL2(MSG616) TEST? 7 
32 @ ff OABF 10C3 OAcOoO 8 98 oc XL2*10¢3* 
33 * ROUTINE PREFIX €: OAC1 OC 05 184C 1094 99 MVC MSG15—4(6) -CANCEL 
OAOD 01 OA0D 34 RTNO1 OC xt1°O1* ROUTINE NUMBER OAC7 CO 87 021A 100 8 PRINT PRINT 
OACE 80 OAOE 35 oc XL1*80* INTERVENTION REQUIRED an OACB 06 CACB 101 pc XL1°06* ‘PRESS AND 
OAOF OAAA OA10O 36 oc AL2(RTNO2) AODRESS OF NEXT ROUTINE i C: OACC 1C OACC 102 oc IL1*28°* RELEASE 
37 i OACD 1850 OACE 1C3 oc AL2(MS615) CANCEL KEY® 
37 | gx OACF CO 87 0222 104 B HALT HALT 
CALs Ge 9 fesv tose 38 WE. Raet“stebaneg “SET Reva04RD Maes mt ee ee iia 
. ® : OADS 38 20 15F8 106 SBF MARK ,MARK2 
{ 
ee o 87 O21A e a tess geal e OADS OC 03 1038 10A6 107 MVC STSHOB(4),STCAN SET XPTO STATUS 
OALE 42 OAlE 4 XL te OADF CO 87 154D 108 8 si10 
OA1LF 10 OALF 42 oc IL1°16* KEY OAE3 38 60 1037 20S TBN STATUS.X*60® CHECK END OR CAN ON 
OA20 see0 OA21 843 ue erz insets? TEST® C OAE7 39 90 1037 110 TEE STATUS »X*90° CHECK REQ AND END OFF 
OA22 10C2 0A23 4&4 XL2*1 on CAEB F2 10 25 ill JT £1 
OA24 OC 05 184C 1D8E 45 MVC MSG15-4(6),REQ OAEE 3C SC ICFE 112 MVI MREOP,CtS? 
OA2A CO 87 O21A 46 B PRENT PRINT pte OAF2 3C SC 1CC8 113 MVI MEND Ca? 
OAZE 06 OAZ2E 47 oc XL 1° 06° *PRESS AND €: OAF6 38 40 1037 £14 TBN STATUS,X*40¢ CHECK IF PENDING ON 
OA2F 1C OA2F 48 pc IL1*28° RELEASE OAFA F2 10 04 L15 JT *+7 
0OA30 1850 OA31 49 oc AL2(MSG15) REQ KEY® OAFD 3C SC 1CO0D 116 MVI MEOCP.Cee? 
OA32 CO 87 0222 50 8 HALT HALT C 0601 38 20 1037 117 TBN STATUS,»X*20* CHECK IF CAN OK 
OA36 10C2 OA37 $1 oc xL2*10C2* OF -C2- OB0S F2 10 04 118 JT +7 
OA38 38 20 15F8 52 SBF MARK,MARK2 =, 0808 3C 5C 1CDl 119 MVI MCAN,CSS® 
Bas oe ce aeae 1D09E ne Phe er ee SET XPTO STATUS €: OBOC CO 87 OFOD 120 B REPLCE REPLACE 
0B10 0Cc000 OB12 121 oC XL370C00CO* B2N2— B2P2 
ase = xe a ee a a aca CHECK END OR CAN INT PEND OFF C 0813 CO 87 138C 122 €1 rs) SIORT ENABLE INTERRUPTS 
* O817 38 20 1037 123 TBN STATUS,X*20° CHECK CAN STILL ON 
9440 3C 5C 1CC0 57 VI MEOCP,Cee* 0818 CO 10 0216 124 BT LINK ; 
OA5S1 CO 87 OFOL 58 8 REPLCE REPLACE : OB1F CO 8T OFDD 125 8 REPLCE REPLACE 
OaASS O0C0000 OAS? 59 Dc XL3*0C 00008 B2N2- B2P2 © 0823 080000 0825 126 oc XL3*080000° B2P2 
0458 38 80 1037 60 Dl TBN  STATUS,X*80°* CHECK REQ KEY | 127 * 
OASC F2 10 O08 6l JT 02 INT PEND ON } 128 *e¢eee4e08 $92048080¢ 
OASF 3C SC ICFE 62 AVI MREQP,C eee | @ 129 * RTNO3 & END KEV TEST * RTNOS © 
0A63 CO 87 OFDD 63 8 REPLCE REPLACE | 130 4e9esee800 $SSSESRSS 
0A67 0C0000 OA69 64 oc xL3*0C0000* 82N2, B2P2 | 131 
OAGA 38 80 1034 65 02 SBF STATUS-32X*80° SET UPPR CASE MODE Se OFF 3 @ 132 © ROUTINE PREFIX oe 
DATE 29AUGT5 OTNOVTS PROG ID 104-1 vate 29AUGT5S OTNOVTS PROG ID 104-1 | 
EC NO. 827804 827805 PaGE 1 EC NOw 827804 827805 PAGE la 
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| 
IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. rer 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248250 
PAGE 2 | PAGE 2A 
! 2 
1041 5471 PRINTER KEYBOARD FAULT LOCATION DIAGNOSTICS MOD 12 | 1041 5471 PRINTER KEYBOARD FAULT LOCATION DIAGNOSTICS MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
i 
0826 03 0826 133 RTNO3 OC XL1°03° ROUTINE NUMBER | OBDS 13 OBDS 199 Dc ILL*#19° SHIFT KEY 
0827 80 027 134 DC XL1°80° INTERVENTION REQUIRED l OBD6 1A2D OBD7 20N oc AL2(MSGL7) DOWN? 
OB28 OBAD O0B29 135 oC AL2(RTNO4) ADDRESS OF NEXT ROUTINE OBD8 CO 87 0222 201 B HALT HALT 
136 i. OBDC 10E6 OBDD 202 oc XL2*1L0E6* OF -E6- 
136 OBDE OC 03 103B 1089 203 MVC —- STSHDB(4) g STUPPR SET XPTD STATUS 
©B2A F3 10 00 137 SIO. —-X* 00" »KYBO RESET KEYBOARD OBE4 CO 87 15C3 204 B S1O0S WAIT FOR DEPRESSION 
082D OC 05 1857 1D9A 138 MVC SG16-9(6),END | OBE8 30 8E 1034 205 CLI STATUS-3,X*8E* 
0833 CO 87 O21A 139 B PRINT PRINT OBEC F2 81 51 206 JE G1 
0B37 42 0837 140 oC XL1°42° tEND | OBEF 38 80 1D34 207 TBN STATUS-3,X*808 CHECK UC MODE SW ON 
0838 10 0838 141 oC ILL*16¢ KEY |. OBF3 38 02 1035 208 TBN  STATUS-2,X"02° CHECK KYBD SHIFTING ON 
0839 1860 OB3A 142 oc AL2(MSG16) TEST® - OBF7 F2 90 OB 209 JF #414 
0835 10C4 0B3C 143 oc XL2°10C4° OBFA 3C 2D 124C 210 MVI LEN2,X*2D8 
0830 OC 05 184C 1D9A 144 MVC  MSG15-4(6),END | ‘ OBFE CO 87 OFDD 211 B REPLCE REPLACE 
0B43 CO 87 021A 145 B PRINT PRINT 4 0C02 040000 0co4 212 DC XL3"040000° B2N2 
0847 06 OB47 146 oc XL1°06* ‘PRESS AND | OCOS 38 80 1034 213 TBN STATUS-3,X*80° CHECK UC MODE ON 
0848 1C 0648 147 pc ILL‘ 28° RELEASE 0CO9 F2 10 23 214 JT G2 
0849 1850 OB4A 148 Cc AL2(MSG15} END KEY t OCOC 3C SC 1BA0 215 MVI  MUCM,C*#® 
OB48 CO 87 0222 149 B HALT HALT 0C10 3D SA 1D36 216 CLI STATUS-1,%*5a?° CHECK CHAR ENCODE FOR X°Sat 
OB4F 10C4 O0B50 150 oc XL2°10C4° OF -C4- f- — 0€14 F2 01 07 217 JNE  *410 
OB51 3B 20 15F8 151 SBF MARK» MARK2 7 &- 0€17 CO 87 OFDD 218 8 REPLCE REPLACE 
0855 0C 03 1038 1DA2 152 MVC = STSHD8 14)» STEND SET XPTD STATUS { 0C1B 640000 oc1iD 219 OC XL3*040000° B2N2 
OBSB CO 87 154D 153 B SI -.  OC1E OC O07 1735 1al2 220 MVC  SGCAB~11(8) »MSGUCM 
OBS5F 38 16 1D37 154 TSN STATUS eX* io CHECK END KEY ON i .. OoC24 34 O1 LSFA 221 SBN XMTBLK.X®OL® SET xXMIT¥ BLK FLAG 6K 
0863 39 20 1D37 155 TBF STATUS, X* 208 CHECK CANCEL KEY OFE 0C28 CO 87 OFDD 222 B REPLCE REPLACE 
OR67 F2 10 16 156 JT Fi : |.  o€2e 280002 OC2E 223 pc XL3°280002° B2P2, B2S2, CABLE(GC553) 
OB6A 3C SC 1CD2 157 MVI = MCAN, Coes i © oc2e oc 07 1735 LALA 224 G2 NVC MSGCAB-11(8)eHSGRD 
OBESE 38 LO 1037 158 TBN STATUS, X*108 CHECK IF END ON | 0C35 3C 20 124C 225 MVi LEN2,x*2D8 
OB72 FZ 10 04 159 JT 247 --  0C39 CO 87 OFDD 226 8 REPLCE REPLACE 
0B75 3C SC tCccE 160 MVI MEND,Ceees 1 © 9€30 2u0002 OC3F 227 oc XL3*200002¢ B2S2, CABLE(GC553) 
0B79 CO 87 OFDD 161 B REPLCE REPLACE 0C40 38 02 1035 228 Gi TBN = STATUS-2»X*02° CHECK SHIFTING ON 
0B7D OCC000 OBTF 162 oc XL3*°GCCO00® B2N2— B2P2 1 OC44 F2 10 OB 229 JT 63 
——___-— — 0880 38 40 1037 163 Fl TBN STATUS, X"408 CHECK INTRPT PEND ON | €. aca? 3c 5c 1pes 230 MV MSHEFT,Ceet 
0B84 39 80 1037 164 TBF  STATUS,X*80* CHECK REQ INT PEND OFF 0C4B CO BT OFDD 231 B REPLCE REPLACE 
OB88 F2 10 08 165 JT F2 OC4F OC0000 OC51 232 DC XL3*0C0000" B2N2, 82P2 
OB8B 3C SC ICFE 166 MVI MREOQP,Cese ©  0cs2 £3 10 00 233 G3 SIO -X*00* ».KYBD RESET KEYBOARD 
OB8F CO 87 GFOD 167 B REPLCE REPLACE OC55 CO 87 14E7 234 8 STROBE 
0893 0C0000 CB95 168 DC XL3*0C 0000" B2N2, B82P2 » 0C59 CO 87 O21A 235 8 PRINT PRINT 
0896 CO 87 138C 169 F2 8 SIORT ENABLE INTERRUPTS | @&  otso «2 OC5D 236 oc XL1°42° *RESET 
OB9A 38 10 1037 170 TBN STATUS,X®10° CHECK ENC STILL ON | OCSE OE OCSE 237 oc ILL*14° THE 
OB9E CO 10 0216 171 BT LINK OC5F 1716 CC60 238 DC AL2(MSGRES) HALT® 
OBA2 3C SC 1CC8 172 MVI MEND,Ceee | & — oce1 107 0C62 239 oc XL2° 10E7* 
OBAG CO 87 OFDD 173 8B REPLCE REPLACE 0C63 CO 87 021A 240 B PRINT PRINT 
OBAA 080000 OBAC 174 DC XL3*080000" B2P2 C 0C67 06 OC67 241 Dc XL1°06° “RELEASE 
175 * (RF  oces8 11 0C68 242 oc IL1°17! SHIFT 
176 «#8994004 seegeenes 0C69 LA3E OC6A 243 DC AL2(MSG18) KEY * 
177 * RTNO4 * SHIFT KEY TEST * RTNOS * ,~  0C6B CO 87 0222 244 B HALT HALT 
178 teeeeeses eeecenees' | OCEF 10E7 OC7N 245 DC XL2°10E7° OF -E7- 
179 * 0C71 OC 03 1D3B 1080 246 MYC  STSHDB(4),STLWR SET XPTD STATUS 
180 * ROUTINE PREFIX se 0C77 3B 20 158 247 SBF MARK »MARK2 
OBAD 04 OBAD 181 RTNO4 OC XL1°04* ROUTINE PREFIX | © ocze co 87 15¢3 248 B S10S 
OBAE 50 OBAE 182 oc IL1°80° INTERVENTION REQUIRED -OC7F 3D 3E 1034 249 CLI STATUS-3_X*3E* CHECK RD SW 
OBAF OCF4 OBB0 183 oC AL2(RTNOS) ADDRESS OF NEXT ROUTINE : oe «CBB. F 0 4 OMB INAT ION 
184 | € ocae 25 ai pay oat roA Srcruscewers cucer nara CHECK ON 
184 | OC8A F2 19 35 252 JT G6 
CBB1l F3 10 00 185 SIO X*00" »KYBD RESET KEYBOARD ' ae,  OC8D 39 80 1D34 253 TBF STATUS-3,x"80* CHECK UPPR CASE MODE OFF 
OBB4 CC OS 1857 1085 186 MVC MSG16-9(6) »SHIFT | €> ~ oce1 F2 10 23 254 JT 67 
OBBA CO 87 021A 187 B PRINT PRINT 0C94 3C SC 18A0 255 MVI MUCM,Cese 
OBBE 42 OBBE 188 Dc XLL*42° * SHIFT G 0C98 3D 7E 1036 256 CLI STATUS-1eX*7E° CHECK CHAR ENCODE FOR X'TE® 
CBBF 10 OBBF 189 DC IL1°16° KEY '& ~~ ocec F2 01 07 257 JNE €410 
OBCO 1860 8BC1 190 oc AL2(MSG16) TEST? OC9F CO 87 OFDD 258 8 REPLCE REPLACE 
OBC2 10E6 e8c3 191 oc XL2* 10E6* ar,  0CA3 040000 OCAS 259 DC XL3*060000° B2N2 
OBC4 CO 87 021A 192 B PRINT PRINT ' €2  oCae OC 07 1735 1A12 260 MVC MSGCAB-11(8),#SGUCM 
OBC8 O01 cece 193 oc XL1°O1°* *RESET OCAC 3A OL i5FA 261 SBN  XMTBLK»X*O1* SET XMIT BLK FLAG GK 
OBC9 OE GBC9 194 DC IL1°14° THE | @. 0CBO CO 87 OFDD 262 B REPLCE REPLACE 
oBca 171 a OBCB 195 OC | AL2(MSGRES) HALT® C: oces 280002 OCB6 263 oc XL3*280002° B2S2, CABLE(6C553), B2P2 
196 SB ARK» MARK2 OCB7 3C 2D 124C 264 G7 MVI LEN2eX*2D° 
OBDO CO 87 O21A 197 B PRINT PRINT | gy OCBB CO 87 OFDD 265 8 REPLCE REPLACE be 
OBD4 06 osps4 198 oc XL1*06* *HOLD | ~¥  OCBF 040000 OCCl 266 pc XL3*040000° B2N2 
DATE  29AUG75 OTNO¥TS PROG ID iaei| Coste  29A0UG7S5 _—sOTNOVTS PROG ID 104-1. 
EC NOD. 827804 e27e0s PAGE 2/1 €C NO. 827804 827805 PAGE 2A 
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168M MAINTENANCE DIAGNOSTIC PROGRAM 


1041 
ERR LOC 


occ2 
occs 
occc 
ocoo 
OL04 
ocd? 
OcOB 
OCcOE 
OcE2 
OCE6 
OcES 
OCEC 
OCcFO 


OCF4 
OCcFS 
OCF6 


OCcFs 
OCFB 
OCFF 
o005s 
o009 
ODOA 
000B 
oo0o 
oooF 
opis 
0019 
O01A 
0016 
0010 
0021 
0023 
0029 
0020 
0031 
0035 
0038 
003C 
0040 
0044 
0047 
0048 
O04E 
0052 
0055 
0059 
oo5C 
0060 
0064 
0067 
0068 
OD6E 
on72 
0078 
oo7c 
OO7F 
0083 
0087 


OATE 
EC wo. 


OBJECT CODE 


oc OT 1735 
3C 5C 1C6A 
3C 20 124C 
CO 87 OFDD 
200002 

38 02 1035 
F2 10 08 
3C 5C 1BB8 
CO 87 OFCD 
OA0009 

F3 10 07 
CO 87 14E7 
CO 87 0216 


05 
80 
0088 


F3 16 00 
3B 20 15F8 
oc 05 1857 
CO 87 O21A 
42 

10 
1860 
10C5 
oc 05 
co 87 
06 

1c 
1850 
CO 87 
10C5 
oc 03 
3B 20 
co 87 
39 03 
F2 10 OF 
3c 5C 
3c SC 
CO 87 
080000 
38 OC 
F2 10 19 
38 08 
F2 10 07 
3c SC 
F2 87 04 
3C 5C 
co 87 
ocoo00 
30 IC 1034 
F2 81 11 
3C 20 124C 
oc O7 1738 
Co 87 OFDD 
200002 

CO 87 138C 
CO 87 14E7 
CO 87 0216 


184C 
O21A 


29AUGT5 
827804 


5471 PRINTER KEYBOARD FAULT 


ADDR STMT 


lALA 


ocbdé 


OCE8 


OCF4 
OCFS5 
OCF7 


10€3 
0009 
ODOA 
oDoc 
ODOE 
10C3 
0019 
OD1A 
ooic 


od22 
10C7 


0D46 


O0D66 


LALA 
OO7E 


OTNOVTS 
827805 


267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 
279 
280 
281 

282 
283 
284 
285 
286 
287 
288 
289 
289 
290 
291 

292 

293 
294 
295 

296 
297 
298 
299 
300 
301 
302 
303 
306 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 


LOCATION DIAGNOSTICS MOD 12 


PART NO. 42482 


50 
PAGE 3 


Se NE RR OS WINE lente anne 


SOQURCE STATEMENT 


G6 MVC 
MVI 
MVI 
8 
oc 

G4 TBN 
JT 
MVE 
8 
Oc 

G5 s10 
B 


8 
* 


$9408482% 

* RTNOS * 

020400088 

* 

* 

RTNOS OC 
oc 
oc 


$10 
SBF 
MVC 
B 
oc 
oc 
oc 
oc 
MVC 
8 
oc 
oc 
oc 
8 
oC 
MVC 
SBF 


TBF 
JT 

MVI 
MVI 


oc 
H1 TBN 

JT 

TBN 


MvI 


H2 cul 


43 8 


s 
S8eesecese 


MSGCAB~11(8),MSGRD 
MDATCK,C*#? { 
LEN2,X*208 
REPLCE REPLACE 
XL3*200002! B2S2_ CABLE(GC553) 
STATUS=25X*028 CHECK SHIFTING ON | 
G5 
MSHIFT, Cts? | 
REPLCE REPLACE 
XL3*OAC000! B2N2, B2S2 
X*07" sKYBD ENABLE INTERRUPTS | 
STROBE | 
LINK 
2234444844 
CARRIER RETURN KEY TEST * RTNOS * 
seecesees | 


XL1°0O5°* 
XLi*seo§ 
AL2(RTNO6) 


X*00* »KYBD 
MARK »MARK2 


MSG16-9(6) sRETRN 


PRINT 
XL1'42°* 
IL1*16° 
AL2(MSG16) 
XL2°*10C5* 


MSG15-4(6) eRETRN 


PRINT 
xL1*0O6°* 
ILi‘2e¢ 
AL2(MSG615) 
HALT 
XL2°10C5° 


STSHDB (4) ,STRET 


MARK » MARK2 
$1as 


STATUS »X*03° 


Hi 
MDATCK,Cts? 
MXLAT,C oes 
REPLCE 
XL3*080000° 


STATUS »X*0C# 


H2 


STATUS »X*08* 


%410 
MOATP,C es? 
s¢+7 
MRET,Ceae 
REPLCE 
xL3*oCO0000* 


STATUS~3,X*1C* 


H3 
LEN2eX* 20° 


MSGCAB-11(86),MSGRO 


REPLCE 
XL3*200002° 
SIORT 
STROBE 
LINK 


ROUTINE PREFIX 


ROUTINE NUMBER 
INTERVENTION REQUIRED 
ADDRESS OF NEXT ROUTINE 


RESET KEYBOARD 


PRINT 
"RETURN 
KEY 

TEST® 


PRINT 
"PRESS AND 
RELEASE 
RETURN KEY® 
HALT 
OF -C5—- 
SET XPTO STATUS 


WAIT FOR STATUS CHANGE 
CHECK XLATOR CHECK 
AND DATA CHECK OFF 


REPLACE 
A-B2P2 


CHECK IF INTERRUPT PEND IS ON 


REPLACE 
B2N2, 

CHECK 
REED SWITCHES 


B2P2 


REPLACE 
6282, CABLE(GC553) 
ENABLE INTERRUPTS 


seeeseses ( 


PROG ID 
PAGE 


tn en ee re ee ee re re ee ee re ee ee eee eee ee woe 
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IBM MAINTENANCE OIAGNOSTIC PROGRAM 


1041 


5471 PRINTER KEYBOARD FAULT 


ERR LOC OBJECT CODE 


0088 
oosc 
0080 


OO08F 
0092 
0098 
oD9C 
0090 
OD9E 
ODAO 
ODA2 
ODA6 
ODA8 
ODAC 
oo0BO 
opsB3 
o0B6 
0089 
: ODBD 
‘ 00c3 
oocs 
oocDo 
0D01 
oD05 
. ODDA 
an oDDD 
ODE1 
e ODES 
X ODES 
ODEE 
ODF2 
ODF5 
ODF8 
ODFC 
C OE0O 
O£03 
C OE06 
OEOB 
OEOE 
2 OE12 
' 0E£16 
0E19 
OE1D 
{ 0E20 
OE23 
3 0E27 
¢ OE24 
OEZE 
0E3} 
OF34 
0E38 


-—~ 


OEZE 
0E42 
OES6 
OE49 
OE4D 


on 


Loge OES1 
C 


| 


OE55 
OE58 
OESB 
OESF 


104-1 C vate 


3 


EC NO. 


i 


06 
80 
OE90 


F3 10 00 
OC 04 18AE 
CO 87 021A 
46 

51 
18FT7 
10C6 
co 87 
10C6 
C2 01 15FA 
C2 02 1656 
D2 01 01 
E2 02 O01 
BO FF OO 
CO 81 0216 
oc 03 1038 
1C 03 103A 
2C 00 1038 
33 20 15F8 
CO 87 15C3 
8D 00 
F2 81 29 
3C 20 124C 
39 O01 1037 
F2 10 10 
oc O7 1735 
CO 87 OFDD 
200002 

F2 87 88 
3A 40 15F9 
CO 87 OFDD 
040000 

F2 87 7A 
40 06 
F2 81 36 
3C 20 
38 01 
F2 90 OA 
CO 87 
080000 
Fe 87 5D 
38 02 1037 
F2 90 OA 
CO 87 OFDD 
080000 

F2 67 4C 
CO 8&7 OFODD 
oco000 

F2 87 42 
38 08 1037 
39 04 1037 
F2 10 12 
3C SC 1CA2 
3C 5C 1096 
CoO 87 OFDD 
ocoo0o 

F2 87 25 
39 03 1037 
F2 10 12 


0222 


29AUGTS5 
827804 


LDAF 


1DAA 
00 
oo 


OO 1034 


1670 


OT7NOV7T 
627605 


ADDR STMT 


0088 
oosc 
OD8E 


oo9c 
0090 
OO9F 
ODAl 


ODA? 


ODF4 


OE02 


OE LF 


CE 30 


OE3A 


OE57 


5 


334 
335 
336 
337 
338 
339 
340 
341 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
3735 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
39G 
391 
392 
393 
39% 
395 
396 
397 
398 
399 
400 


LOCATION DIAGNOSTICS MOD 12 


SOURCE STATEMENT 


* RTNOE & 
209940808 
* 


* 

RTNO6 OC 
oc 
DC 


$10 
MVC 
8 
oc 
oc 
oc 
oc 
8 
OC 
LA 
LA 
REPOB LA 
LA 
CLI 
BE 
MVC 
RVC 
MVC 
SBF 


REPOB1 


cic 
JE 
AVI 
TBF 
JT 
MVC 


DC 
SBN 
oc 
Il cic 
AVI 
TBN 
JF 
DC 


TBN 
JF 


oc 


oc 


12 TBN 
TRF 
JT 
MVI 
MVI 


oc 


TBF 
JT 


XL1°06* 
XL1°80° 
AL2(RTNO7) 


X*00",KYBO 


MSG-7(5) ,LOWER 


PRINT 
XL1°46* 
TL1°81° 
AL2(4SG6013) 
XL2*10C6* 


HALT 

XL2°10C6°* 

TABLE 1-1LedKL 
TABLE3—1-¢XR2 
10,XR1) »XR1 
1(.XR2),XR2 
0(,XR2),X* FFE 
LINK 

STSHOB(4) sSTLWRI 
STSHDB-101)50(,XR1) 
STSHDB-3(1) ,00,XR2) 
MARK »MARK2 

s1as 
O(1,.XR2),.STATUS-3 
11 

LEN2,X*20* 
STATUS,X*Ol1* 
+19 
MSGCAB-11(8),REED 
REPLCE 
XL3*200002° 

14 

FLAG,»FLAGL 
REPLCE 
XL3*040000* 

14 

O(1.XR1) -STATUS-i 
t2 

LENIL -X*208 
STATUSsXK*tO1* 
€+13 

REPLCE 
XL3*080000° 

14 

STATUS «X"02¢° 
8433 

REPLCE 
XL3*080000° 

14 

REPLCE 
xt3*ocoon00! 

14 

STATUS ,X*"08°* 
STATUS »X*04! 
+2) 

MDATP,C eae 
MRET,Cese 

REPLCE 
XL3*O0COO00O0* 

14 

STATUS »2X*O3* 

13 


PART NO. 


PAGE 


DATA KEY TEST-LOWER CASE 


ROUTINE PREFIX 


RCUTINE NUMBER 
INTERVENTION REQUIRED 
ACORESS OF NEXT ROUTINE 


RESET KEYBOARD 


PRINT 
TIN LOWER 
SHIFT PRESS 
ALL DATA KEYS® 


HALT 

OF -C5=~- 
CHARACTER ENCODE TABLE 
REEO SWITCH TABLE 
INCREMENT 

COUNTERS 
CHECK 

FOR ENO 


SET XPTD 
STATUS 


WAIT FOR STATUS CHANGE 
CHECK 

REED SW 
CHECK DATA CHECK OFF 


REPLACE 


62S2, CABLE(GC553) 


REPLACE 
B2N2 


CHECK CHAR 
ENCOOED 


CHECK FOR BATA CHECK 


REPLACE 
B2P2 


CRECK XLATOR CHECK ON 


REPLACE 
B2P2 


REPLACE 


B2NC, B2P2 


CHECK INT PEND ON 
CHECK RET OFF 


REPLACE 
A-B2P2, N2 


CHECK DATA CHECKS OFF 


PROG I0 
PAGE 


4248250 
3A 


* RTNOS ®@ 
0440908668 


104-1 
3A 


18M MAINTENANCE DIAGNOSTIC PROGRAM 


1041 5471 PRINTER KEYBOARD FAULT 
ERR LOC OBJECT CODE ADDR STMT 
O€62 3C SC 1C6A 401 
OE66 3C SC 1CTF 402 
OE6A CO 87 OFDD 403 
OE6GE 080000 OE70 404 
OETL F2 87 OC 405 
OE74 CO 87 138C 406 
OE7T8 CO 87 14E7 407 
OE7C CO 87? 1363 408 
O£80 CO 87 0212 409 
O&84 38 OL C20B 410 
OE88 CO 10 ODBD “11 
Oesc CO 87 ODO 412 
413 
414 
415 
416 
417 
418 
0E90 O07 OE90 419 
O£91 80 OE91 420 
OE92 OFEC OE93 421 
422 
422 
OE94 F3 10 00 423 
OE97 CO 87 O21A 424 
OE9B 41 OE9B 425 
QESC 13 OESC 426 
O£90 1A2D0 OE9E 427 
OE9F 10C7 OEAO 428 
OEAL CO 87 O21A £29 
OEAS 01 QEAS 430 
siete cet OEA6B 42 OEA6 431 
OEAT 18F7 QEAB 432 
OEAO CO 87 021A 433 
OEAD 06 OEAD 434 
OEAE 11 OEAE 435 
OEAF LA3ZE OEB80 436 
QEB1 CO 87 0222 437 
OEBS 10C7 CEI6 438 
OEB7 38 20 15F8 439 
OEBB OC 03 1D3B 1089 440 
OEC1 30 13 1035 441 
OEC5 30 11 1D37 442 
OECS 38 80 1034 443 
OECD F2 10 13 444 
OEDO CO 87 14Ah6 445 
OE04 CO 87 CECI 446 
OE08 3C SC 1BAC 447 
OEOC CO 87 OFDD 448 
QEEO 080000 OEE2 449 
OEE3 CO 87 14E7 450 
OEET C2 O21 1628 451 
QEEB C2 02 1684 452 
OEEF 02 O01 O01 453 
OEF2 E2 02 OL 454 
OEFS 8D FF 00 455 
OEF8 CO 81 0216 456 
OEFC OC 03 1036 1DAA 457 
OFO2 1C 00 1D3A 00 458 
OFOT 2C 00 1038 00 459 
OFOC 3B 20 15F8 460 
OF1O CO 87 15C3 461 
OF14 80 00 00 1034 462 
OF19 4D 00 00 1036 463 
OFIE F2 81 12 464 
OF21 3A 40 15F9 465 
OF25 3C 20 1180 466 
OF29 CO 87 OFDD 467 
DATE 29AUGTS OTNOVTS 
EC NO. 827804 827805 


LOCATION DIAGNOSTICS 400 12 


SOURCE STATEMENT 


MVI 
MVI 
8 
oc 


13 


Saowera. 


¥4 


¢ 

SEEEEKESS 

* RTNOT *# 

849994088 

* 

* 

RTNOT OC 
oc 
oc 


$10 
8 
oc 
oc 
oc 
oC 
8 
oc 
oc 
oc 
8 
oc 
oc 
oC 
8 
oc 
SBF 
MYC 
SNS 
SNS 
TBN 
JT 


J2 


MVI 


boc 
Jt 8 
LA 
La 
tA 
LA 
cil 


REPOC 


REPOC? MVC 
MYC 
MVC 


SBF 


CLC 
CLC 
JE 

SBN 
MVI 


PART NO. 


4248250 
PAGE 4 


MDATCK,C ‘#8 
MXLAT, Coe? 
REPLCE REPLACE 
XL3* 080000! 82P2 
14 
SIORT ENABLE INTERRUPTS 
STROBE RESET STROBE SWITCH 
PRINTT PRINT CHARACTER 
TEST CHECK 
SBYTE3, SSWILF FOR TIGHT 
REPOBL LOOP BIT ON 
REPOB PREPARE FOR NEXT KEY DEPRESSION 
SEEKESCERSE 
DATA KEY TEST-UPPER CASE * RINOT * 
SSERESKEE 
ROUTINE PREFIX 
XL1°078 ROUTINE NUMBER 
XL1"g0° INTERVENTION REQUIRED 
AL2(RTNOB) ACDRESS OF NEXT ROUTINE 
X*00* sKYBD RESET KEYBOARD 
PRINT PRINT 
XL1*41* LOCK 
IL1"198 UPPER 
AL2(MSG17) SKIST DOWN 
XL2°}0CT* 
PRINT PRINT 
XLL'OL® ‘IN UPPER 
IL1'66! SHIFT PRESS 
AL2(MSGO13} ALL DATA KEYS® 
PRINT PRINT 
XL1'06° UNLOCK 
YLi¢17* SHIFT 
AL2(MSG18) KEY 
HALT HALT 
XL2*10C7" OF -Co6- 
MARK »MARK2 
STSHDB(4),STUPFR 
STATUS-29X*13° 
STATUS, X11! 
STATUS-~39X*80* 
Ji 
DELAY 
J2 
MUCM,Che? 
REPLCE REPLACE 
XL3*C80000° A-B2P2 
STROBE 
TABLE2-1>XR1 CHARACTER ENCODE TABLE 
TABLE4-1,4XR2 REED SWITCH TABLE 
1(,XR1),XR1 INCREMENT 
1(XR2)_XR2 COUNTERS 
O(,XR2) ,X* FES CHECK FOR 
LINK END OF TABLE 
STSHDB(4),STLWRI SET 
STSHDB-1(1),0(,XR1) = XPTD 
STSHDB-3(1)90()XR2) STATUS 
MARK »MARK2 
S1OS WAIT FOR STATUS CHAFGE 
O(1eXR2),STATUS-3 = CHECK REED Sw 
O(1sXRLPeSTATUS-1 CHECK CHARACTER ENCODE 
J3 
FLAG eFLAG) 
LEN1,X*20° 
REPLCE REPLACE 
PROG 10D 104-1 
PAGE 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


1041 
ERR LOC 


oF2D 
OF30 
CF33 
OF37 
OF3B 
OF3E 
OF42 
OF4&6 
OF4&A 
OF4D 
OF50 
OF54 
OF58 
OFS5C 
OF6O 
OF 64 
OF68 


fbn, 


OF6C 
: OFeD 
.  OFGE 


c OFT7O 
OFT4 
OF75 
OFT6 
OF78 
OFTA 
a OFTE 
OFT7F 
OF80 
OF82 
OF86 

OF87 
€ OF88 
OFBA 
OFBE 
OF90 
OF93 
OF97 
oroe 
OFSF 
. OFA3 
> oora? 
OFAB 
OF AE 
OFB3 
OFB7 
OFBA 
OFBE 
OFBF 
OFCO 
OFC2 
OFC4 
OFCA 
OFCE 
OFD2 
OFD6 
OFDS 
OFDC 


gro ~ 
‘ 


on 


os 


ar, 


Ae to Oe 


6 
C pate 


EC NO. 


OBJECT CODE 


080000 
F2 87 
38 08 1037 
39 O7 1037 
F2 10 12 
3C 5C 1C6A 
3€ 5C 1096 
CO 87 OFODD 
080000 
F2 87 
co 87 
CO 87 
co 87 
co 87 
38 O01 
co i0 
co 87 


29 


oc 

138C 
14€7 
1363 
0212 
0208 
OEFC 
OEEF 


08 
80 
FFFF 


co &7 
42 

15 
19AB 
10C8 
co 87 
ol 

20 
1908 
CO 87 O21A 
06 

18 
1780 
co 8% 
10c8 
F3 10 O1 
30 13 1035 
30 11 1037 
38 08 1D37 
CO 90 OF93 
30 C6 1036 
cO &1 OF9O 
30 C7 1036 
CO 81 GF9O 
3D 40 1D36 
F2 81 1€ 
CO 87 O21A 
C2 

21 
19F9 
100C 
oc 03 
3C 20 
co 87 
co 87 
100€ 
CO 8&7 
00 


O21a 


O21A 


0222 


1038 
1180 
1190 
0222 


1077 


O22A 


29AUGT5 
827804 


OTNOV7 
827605 


OF 2F 


OF 4C 


OF6C 
OF 6D 
OF6F 


OFT4 
OF75 
OFTT 
OFTS 


OFTE 
OFTF 
oF81 
OF86 
oF a7 
oFs9 


OF 8F 


OFBE 
OF BF 
OFC1 
OFC3 


OFD? 


OFOC 


5 


5471 PRINTER KEYBOARD FAULT 


ADOR STMT 


468 
469 
470 
471 
412 
473 
474 
415 
416 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
£94 
4% 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 


LOCATION DIAGNOSTICS MOO 12 


SOURCE STATEMENT 


J3 


J4 


J5 


£ 


SSESEKVKKE 


* RTNOS *# 
eHSEVSESRKKES 


* 


s 
RTNOS 


SYNC3 
SYNC4 


ENDH 


oc 
oc 
oc 


8 
oc 
DC 
dC 
oC 
B 
pC 
oc 
oc 
B 
cc 
oc 
oC 
B 
DC 
sia 
SNS 
SNS 
TBN 
BF 
CLE 
BE 
CLI 
BE 
Cul 
JE 
B 
oc 
DC 
oc 
oc 
MVC 
MVI 
8 

B 
bc 
8 
oc 


XL3*°080000°* 
J5 

STATUS sX*08* 
STATUS sX*07* 
J4 

MDATCK Ces? 
MRET,C# ee 
REPLCE 
xL3*080000° 
J5 

STORT 

STROBE 
PRINTT 

TEST 
SBYTE3,»SSwWlF 
REPOCL 
REPOC 


CHARACTER ENCODE TEST 


XL1*OB¢ 
XLL*80° 
XL2°FEFFE 


PRINT 

XL1°42° 
§L1*21° 
AL2(MSGCEN) 
xL2*10C8* 
PRINT 

XL1°O1* 
IL1°45* 
AL2(MSGFG) 
PRINT 

XL1°06* 
ILl*27é 
AL2(MSG08) 
HALT 
XL2*Locs* 
X*01°,KY8D 
STATUS—2¢X*13* 
STATUS sX*11° 
STATUS »X*08* 
SYNC4& 
STATUS—-1,C°F* 
SYNC3 
STATUS=19C *G* 
SYNC3 
STATUS—-19X"408 
ENDH 

PRINT 

XL1°*C2° 
IL1°33¢ 
AL2(MSGBL) 
XL2*100C® 


STSHDB( 45 »STATFC 


LEN1L,X*20° 
STATCK 
HALT 
XL2°100C® 
LOAD 
XL1°00* 


PART NO. 
PAGE 


4248250 
4A 


A-B2P2 


CrRECK INT PEND ON 
CHECK RET AND DATA CHECKS OFF 


REPLACE 
A-B2P2 


ENABLE INTERRUPTS 
RESET STROBE SWITCH 
PRINT CHARACTER 
CHECK 
FOR TIGHT 
LOOP BIT ON 
Pr.EPARE FOR NEXT KEY DEPRESSION 


SOHSESEEE 


* RINOS 
SESOESSEE 


ROUTINE PREFIX 


ROUTINE PREFIX 
INTERVENTION REQUIRED 
LAST ROUTINE 


PRINT 
CHAR 
ENCUDE 
TEST 


PRINT 
PRESS 
AND RELEASE 
F AND G KEYS 
PRINT 
PRESS 
AND RELEASE 
SPACE BAR 
HALT 
OF -C&- 
RESET KEYBOARD 
SAVE 
STATUS 


CHECK 
FOR -F=- KEY 
CHECK FOR 
-G- KEY 
CHECK FOR 
SPACE BAR 
PRINT 
CHECK 
BALL 
COMPENSATOR 
ADJUSTMENT 


PRINT STATUS 
HALT 
OF -OC- 


533 SESESKESESEEEESESSEESESESSESEEEESLESSHESEESEESEEESEESESEEESEKEEHEESAESEOEES 
534 * REPLCE * 


* REPLCE @ 
PROG I0 104-1 
PAGE 4A 
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1041 


ERR LOC 


OFOD 
OFE1 
OFE? 
OFEG 
OFFI 
OFFS 
OFFS 
OFFO 
1001 
1005 
1008 
100C 
1000 
100E 
1010 
1016 
101A 
101E 
1022 
1026 
1029 
1020 
L02E 
102F 
1031 
1033 
1037 
1038 
103F 
1043 
1046 
1049 
104D 
1051 
1054 
1057 
105C 
1060 
1061 
1062 
1064 
1céT 
106A 
1070 
1074 
1078 
107C 
107F 
1082 
1087 
1088 
108C 
1080 
108F 
1095 


DATE 
€C NO. 


5471 PRINTER KEYBOARD FAULT 


OBJECT CODE 


34 
oc 
34 
CE 
3c 
34 
34 
35 
39 
F2 
co 
02 
19 


08 
ol 
08 
ol 
oo 
01 
02 
01 
10 
10 
87 


1608 


oc 
3c 
3c 
3c 
3C 
F2 
co 
C2 
19 


01 
ol 
ol 
01 
01 
87 
87 


1608 
1001 


3c 
3c 
3c 
3c 
70 
F2 
C2 
3c 
8 
F2 
2c 
co 
01 
25 


81 
81 
81 
81 
00 
81 
02 
cl 
00 
90 
04 
87 


1740 


F2 
E2 
OE 
co 
C2 
3c 
78 
F2 
ec 
co 
ol 
06 


87 
02 
00 
20 
02 
ol 
00 
90 
03 
87 


16€1 


oD 
F2 


03 
ol 


119C 
118A 
1053 
119C 
1056 
1049 
1048 
1053 
15-8 
21 

O21A 


118A 
1060 
1088 
109C 
10a0 


O21A 


1060 
1088 
109C€ 
10A0 
02 
26 
1746 
1052 
02 
10 
172¢ 
O21A 


oD 
05 
1052 
1051 
16E5 
1070 
00 
2F 
16€1 
O21A 


16E1 
08 


29AUGT5 


827804 


ADOR STMT 


1058 
1045 
100C€ 
1000 
100F 
1050 
1020 
102E 
1030 
1032 
00 
1060 
1061 
1063 
1052 
oo 
10868 
108C 
108E 
1073 
OTNGV75 
827805 


535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 


LOCATION OIAGNOSTICS MOD 12 


SOURCE STATEMENT 


4240544204 


* 
x 
* 
s 
* 
= 
+ 
2 
2 
* 


REPLCE ST 
MVC 
st 
ALC 
MVI 
st 
ST 
L 
TBF 
JT 
8 
DC 
oc 
oc 
MVC 
MVI 
MyI 
MVE 
MVI 
J 

CON11 8 

oc 
oc 
oc 
oc 
MVI 
KyI 
MVI 
' MVE 
CLI 
JE 
LA 
MVE 
TBN 


col 


TST2 
MVC 


“001 oc 
oc 
oc 


J 
INC2 LA 
ALC 
BNOL 
END66 LA 
CON] MVI 
TST TBN 
JF 
MYC 


8 
“O02 oc 
oc 


cic 
JNE 


PART NO. 


PAGE 


THIS SUBROUTINE IS USED TO PRINT CARD CALLOUTS 
WHICH HAVE BEEN ISOLATED AS FAILING UNITS. 


LINKAGE IS VIA 
8 REPLCE 


Oc XLBSXXXXXXE 


WHERE -—XXXXXX= REPRESENTS THE CARDS AND/OR CABLES 


TO BE CHECKED. 


END743,ARR 


END6143{2) ¢STATCA 


WORK1,ARR 
END743,THREE(2) 
SWITCH,X*00°* 
SAV1,XR1 
SAV2eXR2 
WORK1,XR1 
MARK «MARKS 
CON11 

PRINT 

XL1*0O2* 
IL1°25¢ 
ALZ(REP) 
END6143(2} sENOTA 
MOD1,X*01* 
MO02,X*O1* 
M003 X*01* 
M004 .X"01* 
col 

PRINT 

xLiec2¢ 
ILL*25¢ 
AL2(REP) 
xt2°1001° 
MOD1i»eXx*81* 
Mo02,xX*81* 
MOD3»X*81* 
MOD4,.X*61° 
2¢,XR1),X*00* 
END66 
CABLE,XR2 
TST241,x*ol* 
2¢ 2XR1) ¢*-* 
INC2 
CABL(5),0(_XR2) 
PRINT 
xL1°oOl1¢* 
IL1¢37¢ 
AL2(MSGCAB) 
END66 
5(,XR2),XR2 
TST24101),TST24+1 
TsT2 

CARDS »XR2 
TST#1,X'01°* 
O( eXR1),8-% 
INC 
CARD (4) ,0€ XR2) 
PRINT 
xL1‘o1?e 
IL1*06* 
AL2(CARD) 
CARD(4) ,B2U2 
INCZ 


SAVE RETURN ADDRESS 


MODIFY 
RETURN 


SAVE 
REGISTERS 


PRINT 
NON-ERROR 
REPLACE 
MESSAGE 


PRINT 
ERROR 
REPLACE 
MESSAGE 


SETUP FOR 
CABLE PRINTOUT 
CHECK FOR 
BITS ON 


MOVE LOGIC PAGE # INTO PRINTOUT 


PRINT 
*CHECK 
CABLE 
XXXXX* 


INCREMENT 
MESSAGE POINTER 
SET CARD POINTER 


CHECK FOR 
CARD PRINTING 


PRINT 
EACH 
CARD 


CHECK FOR B2U2 
CARD PRINTOUT 


PROG ID 
PAGE 


| 


4248250, 
5 


| 


HPREEREEEE, 


! 
| 
| 
| 
' 
| 
{ 
. 
| 
} 
| 
| 


r 


we) ° 


+, 


fe 


104-1 
5 


| 
| 
| 
! 
| 
| 
1| 
r 
| 


TREES AEESESSERERESAS SS 9SESEESEEEESGETS4SESEEESSESETEDDEEEREEESSENKEEEE! 


om 


on 


«am, 
ny 


os a 


erc 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


1041 
ERR LOC 


1098 
109C 
109D 
109E 
10A0 
10A6 
10A9 
10AD 
1OAE 
LOAF 
10B1 
1084 
10BA 
1OBE 
10€1 
10C7 
10CB 
10CF 
1002 
1006 
1007 
1008 
10DA 
10DE 
10€1 
10E5 
10E6 
10E7 
10E9 
10ED 
10FO 
10F4 
10F5 
10F6 
10F8 
10FC 
10FF 
1103 
1104 
1105 
1107 
1108 
110€ 
1112 
1113 
1114 
1116 
111A 
1110 
1121 
1122 
1123 
1125 
1129 
1l2c 
1130 
1131 
1132 
1134 
1138 
1138 
113F 
1140 
1141 
1143 
1146 
1149 
1140 


“DATE 
EC NO. 


5471 PRINTER KEYBOARD FAULT 


OBJECT CODE 


CO 87 021A 


01 
23 


1883 


oo 
F2 
co 
ol 
23 


03 


1661 


01 08 


87 


18A6 


Ee 
OE 
co 
D2 
OE 
co 
38 
F2 
co 
81 
OA 


02 
oo 
20 
ol 
00 
20 
08 
90 
87 


1901 


38 
F2 
co 
81 
OE 


80 
90 
87 


191F 


358 
F2 
co 
81 
ic 


40 
90 
87 


195F 


38 
F2 
co 
81 
10 


20 
90 
87 


1911 


38 
F2 
co 
81 
24 


10 
90 
87 


1943 


38 
F2 
co 
o1 


OD 


04 
90 
87 


196C 


38 
F2 
co 
81 
il 


02 
90 
87 


1AOA 


38 
F2 
co 
81 
oc 


os 
90 
87 


178C 


78 
F2 
co 
81 


01 
90 
87 


O21A 


04 
1070 
107C 
01 
1056 
1078 
15F8 
08 
O21A 


15F9 
O21A 


15F9 
08 
O21A 


15F9 
08 
O21A 


15F9 
08 
021A 


15F8 
08 
G21A 


15F8 
08 
O21A 


15F9 


O21A 


00 
10 
O21A 


29AUG75 
827804 


106F 


1070 


1057 


109¢€ 
1090 
109F 


10AD 
10AE 
1060 


1006 
1007 
1009 


10E5 
10E6 
10E8 


10F4 
10F5 
10F7 


1103 
1104 
1106 


1112 
1213 
i115 


1121 
1122 
1124 


1130 
1131 
1133 


113F 
1140 
1142 


1140 


O7NOVTS 
827805 


ADOR STMT 


602 
603 
604% 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 


LOCATION OIAGNOSTICS MOD 12 


SOURCE STATEMENT 


MOD3 


INCZ 


MOD4 


INC 


ENDO91 


ENDX1 


ENDX2 


ENDX3 


ENDOS 


ENOG7 


ENDOT2 


ENDO71 


8 
oc 
oc 
oc 
cLc 
JNE 
8 
oc 
oc 
oc 
LA 
ALC 
BNOL 
LA 
ALC 
BNOL 
TBN 
JF 
B 
oc 
oc 
oc 
TBN 
JF 
8 
oc 
oc 
oc 
TBN 


TAN 


TBN 


TBN 


TBN 


oc 


PRINT 
XL1i*o1* 
1L1°35¢ 
AL2(MSG19) 
CARD(4) »B2U3 
INC 

PRINT 
XL1*O1* 
111°35° 
AL2(4SG620) 
4(05XR2) »XR2 
TST#1(1) ,TST+1 
Tst 
10,XR1)_XR1 
SWITCH,HEX80 
CON1 

MARK »MARK4 
ENOO91 
PRINT 
XL1"81* 
IL1°10* 
AL2( ENDSW) 
FLAGsFLAGO 
ENDX1 

PRINT 
xt1*s1¢ 
IL1°14* 
AL2(MSGRSW) 
FLAG »FLAG 
ENDX2 

PRINT 
XL1"°61°* 
IL1°28¢ 
AL2(MSGDAT) 
FLAG, FLAG2 
ENDX3 

PRINT 
XL1*s1¢ 
IL1*16* 
AL2(MSGKY) 
FLAG, FLAG3 
ENDOS 

PRINT 
xLiesle 
IL1*36° 
AL2(MSGL2) 
MARK » MARKS 
ENDO? 

PRINT 
XLifexze 
TLitigZe 
ALZCCANSW) 
MARK » MARK6E 
ENCOT2 
PRINT 
xXL1*°81° 
TLL°i7® 
AL2( EOC SW) 
FLAG »FLAG4 
ENDOT1 
PRINT 
XL1*81° 
IL1i‘*12¢ 
AL2(MSGSHF) 
OC oXR1) -X*02* 
PRTMSG 
PRINT 
XL1°61° 


PART NO. 
PAGE 


PRINT 

B2u2 
SWAPABLE 
WITH A-A3A3 


PRINT 
A~-B2U3 
SWAPPABLE 
WITH A-B2U5 
CHECK 
ALL BITS 
PER BYTE 


CHECK 
BOTH BYTES 
CHECK 
END SW 
PRINT 
END 
SWITCH 


PRINT 
REQ 
SWITCH 


PRINT 
KEY 
HIT 
GUT OF ORDER 


PRINT 
KEY 
HELD 
OOWN 


PRINT 
RE-SEAT L2 


PRINT 
CANCEL 
SWITCH 


PRINT 
"END 
OR CAN 
SWITCH 
CHECK FOR 
SHIFT KEY 
MESSAGE 


PRINT 
INTERRUPT 


PROG ID 
PAGE 


4248250 - 


SA 


GK 


104-1 
SA 





IBM MAINTENANCE DIAGNOSTIC PROGRAM 


1041 
ERR LOC 


LI4E 
114F 
1151 
1155 
1156 
1157 
1159 
115) 
1160 
1164 
1168 
1169 
LI6A 
116C 
lLi9 
1174 
1178 
117C 
1182 
1186 
Li87 
1188 
L18F 
1190 
LL9L 
1133 
1197 
1199 


1190 
LIAL 
11A5 
L1A9 
11a0 
L1AE 
11B0 
1182 
1188 
118C 
1160 
L18E 
11C0 
11C4 
11¢€8 
L1c9 
LicB 
11CD 
1103 
1107 
1108 
1109 
1108 
11E2 
LLE7 
L1EB 
LiEF 
LiF3 
LLFT 
LIFA 
LLFO 
1200 
1205 


DATE 
EC NO. 


| 
eeeeeeeeevececeoces 


5471 PRINTER XEYB0ARD FAULT 


OBJECT CODE 


4D 


1B4B 


co 
31 
2A 


87 


1875 


38 
F2 
3B 
co 
8i 
17 


Ol 
90 
OL 
87 


1D33 


35 
35 
38 
38 
oc 
co 
22 
co 
co 
86 
30 


OL 
J2 
iF 
FF 
13 
37 


87 
87 


1834 


£90 


87 


1001 


co 


34 
34 
34 
co 
01 


87 


08 
01 
v2 
87 


1036 
1A5A 


oc 
co 
81 
1F 


00 
87 


LA5E 


3c 
co 
01 


1F 
87 


103A 
1A79 


oc 
co 
82 
LF 


00 
87 


1A70 


oc 
oc 
3c 
C2 
3C 
C2 
E2 
78 
F2 
2c 
OE 


OF 
Ol 
00 
01 
61 
02 
02 
00 
90 
Ol 
Ol 


O21A 


15Fa 


15FA 
O21A 


1049 
104B 
15-8 
1>F9 
1740 
J21A 


1190 
O21A 


0222 


0000 


1362 
1070 
107F 
O21E 


LA5E 
O21A 


1160 
O21E 


LA7D 
O21A 


LAA 
1203 
1056 
1034 
11LFB 
1662 
02 

00 

oB 

1A98 
1203 


29AUG75 


827804 


174] 


1036 


103A 


LAAA 
105F 


00 
1043 


ADDR 


LIGE 
1150 


1155 
115% 
1158 


1168 
1169 
1168 


1186 


1L18F 
1190 
1192 


1198 


Liao 
LLAF 
1181 


118C 
1160 
L1BF 


1108 
LICA 
11cC 


LIDT 
1108 
LIDA 


OTNOVTS 


827805 


STMT 


570 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
638 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
TOL 
102 
703 
104 
105 
706 
107 
708 
709 
710 
Mh 
712 
713 
714 
715 
716 
WT 
718 
7119 
720 
T2i 
%22 
723 
724 
725 
126 
727 
728 
729 
130 
731 
732 
733 
734% 
735 
136 
737 


LOCATION DIAGNOSTICS 


MOD 12 


SOURCE STATEMENT 


PRTIMSG 


ENDO6 


END61 


END? 


oc 


oc 


oc 
oc 
DC 
B 
oc 
8 


JLit77? 
AL2(MSG141) 
PRINT 
XL1L"*8L? 
IL1*42!* 
ALZ(MSG6142} 
XMTBLK,X'OL? 
ENDOG 
XMTBLK ye X*OL* 
PRINT 
ALL*sL? 
TL1*23° 
AL2(XMTMSG} 
SAV1,XR1L 
SAV2sXR2 
MARK Xt Lee 
FLAG, X'FF? 
MSGCAB( 20) »MSGCAB+} 
PRINT 
XLL'92! 
STATCK 
PRINT 
XL1*86* 
IL1°48* 
AL2¢CHSWARN} 
HALT 
XL2°1001° 
s—% 


PART NO. 
PAGE 


MESSAGE 


SET FOR XMIT BLK FLAG 


RESET XMIT BLK FLAG 
PRINT 
*TRANSKIT 
BLOCK 
ASSEMBLY®* 
RESTORE 
REGISTERS 
RESET FLAGS 
RESET PROGRAM FLAGS 


SPACE 
TWO LINES 
PRINT STATUS 
PRINT 
DO NOT 
RESET HALT 


HALT 


OF -Ol- 


4248250 
6 


GK 
GK 
GK 
GK 
GK 
GK 
GK 


EERKSSEKERE SHEL EEE SLEEK ESESRELEHSESSRES LESS LESKKERSERSRELHSHEREEREESREESE 


* 
& 
* 
+ 
& 


THES SUBROUTINE IS USED TO PRINT THE EXPECTED 


AND RECEIVED STATUS. 


REED SWITCH COMBINATION, 


AND DATA CHARACTER ENCODED. 


eH 8H 


SERSKEKSESHESER EE CES EHS CSEESHSESEKES SESS SKSESSESKFESR OK ESSE ERKKEREEESERSLSES AREER 


STATCK 


tEN1 


OOER1 


DOER 
TSTR 


COR 


ST 
ST 
ST 
8 
oc 
oc 
oc 
MVC 
8 
oc 
DC 
oc 
MVI 
B 
oc 
DC 
oC 
MVC 
B 
oc 
oc 
oc 
MYC 
MVC 
MVE 
LA 
MVI 
LA 
LA 
TBN 
JF 
AVC 
ALC 


ENDSTR+ 3,ARR 
RISAVI,XR1 
R2SAV2-XR2 

UNPACK 

IL1L*o1!® 
AL2€STATUS—1 ) 
AL2(MSG6033-4) 
MSG033(1),STATUS-2 
PRINT 

XL1°81° 

IL2L*31¢ 
AL2(MSGO033} 
LEN1»X*1F* 

UNPACK 

ILL fore 
AL2(STSHDB=-1 } 

AL 2(MS6034—4) 
MSG034(1),STSHDB~-1I 
PRINT 

XL2°82° 

IL1*318® 
AL2(MSG6034} 
MSG135-1416) -MSG135 
COR4+3(2) -AMSGL5 
SWITCH,X* oot 
STATUS-3,XR1 
TSTR#1,X*OL® 
TABLET—-16,XR2 
25XR2) »XRZ 

O( »XR1}?,X*008 

INCR 

MSG135-15(2) ,0,XR2) 
COR43(2),TWO 


SAVE 
REGISTERS 
UNPACK 
CHARACTER 
RECEIVED 


PRINT 
CHARACTER 
RECEIVED 


UNPACK 
CHARACTER 
EXPECTED 


PRINT 
CHARACTER 
EXPECTED 


INITIALIZE 

FOR THE 
Bit 
CHECKER 


TABLE OF PRINTOUTS 
INCREMENT COUNTER 
CHECK FOR ON 


MOVE CHARACTER 
TO REEO SW PRINTOUT 


PROG ID 
PAGE 


mom 


QO 


Y aay 


fx £9 


© 


| 
{ 
| 
i 
| 
| 
i 
104-1) € 
°| 


em. 


4 


o 


es 


e9@e$o % 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


104} 
ERR LOC 


1208 
1211 
2215 
1219 
121C 
1222 
1226 
122A 
1230 
1234 
123A 
123E 
1242 
1243 
1245 
1247 
1248 
124C 
1260 
L24F 
1253 
125¢ 
1250 
1261 
1262 
1264 
1266 
126A 
1268 
126C 
L26E 
1272 
1276 
127A 
L27E 
1282 
1286 
128A 
128) 
1291 
1292 
1293 
1295 
1299 
1230 
129E 
129F 
12Al 
12A5 
1248 
12AC 
12A0 
1281 
1282 
1283 
1285 
1289 
1260 
12C0 
12C3 
12C6 
12C9 
12CD 
12CE 
L2CF 
1201 
1205 
12DA 


_ DATE 
EC NO. 


5471 PRINTER KEYBOARD FAULT 


OBJECT CODE ADOR STMT 
O€ 0O LLFB 11FB 738 
CO 20 1LLFF 739 
3D 80 1056 740 
F2 81 18 741 
OC O01 1263 1061 142 
C2 01 1038 743 
3C 80 1056 144 
OC OF 1ADS 1AD6 745 
CO 87 LIEF 746 
OC 00 1D4C 1034 747 
3B 80 1B04C 748 
CO 87 O21E 749 
O1 1242 750 
1D4C 1244 751 
1A98 1246 752 
CO 87 O21A 7153 
81 124B 754 
2c 124C 755 
LAAA 124E 869756 
3€ 2€ 124C€ 757 
oc 00 104C 1038 758 
38 80 1D4C 759 
CO 87 O21E 760 
01 1261 761 
LD4C 1263 762 
1Ac4 1265 763 
CO 87 O21A 164 
82 126A 765 
2c 126B 766 
LADS 1260 767 
3B FF 1036 768 
38 7F 1034 769 
38 01 1035 770 
3B FF 1D3A 772 
38 TF 1038 772 
3B 01 1039 773 
38 O1 1S5F8 TT4& 
F2 90 08 775 
CO 87 O21A 776 
82 1291 «#777 
13 1292 778 
1899 1294 7795 
3C 00 1D56 730 
CO 87 O21A 78h 
82 1290 782 
14 129E 783 
LAEA 12A0 784 
C2 01 1034 785 
F2 87 Lil 786 
CO 87 O21A 78? 
92 12AC 0788 
CO 87 O21A 789 
82 12B1 790 
14 12B2 791 
LAFE 12B4 792 
C2 01 1038 7193 
C2 02 1891 794 
79 80 00 795 
79 FE O1 796 
73 FF 03 797 
F2 90 08 T98 
Co 87 O2EA 7139 
Bi 12CD 800 
0s 12CE 801 
1DiC 1200 802 
3C O1 12F4 803 
2C 00 12FE 00 804 
OE 00 I2FE 1041 805 
29AUG75 O7NOV75S 

827804 827805 


LOCATION DIAGNOSTICS MOD i2 


SOURCE STATEMERT 


INCR 


LEN2 


EXPSTT 


CHECK 


CHECK} 
DCIT 


ALC 
BNOL 
CLI 
JE 
MvC 
LA 
MVI 
MVC 
8 
MVC 
SBF 
8 
oc 
oc 
oc 
8 
oc 
DBC 
oC 
AVI 
MYC 
SBF 
B 
DC 
oC 
oC 
8 
oC 
oC 
oc 
SBF 
SBF 
SBF 
SBF 
SBF 
SBF 
TBN 
JF 


oc 
oc 


MvI 
oc 


oc 
LA 


oc 


oC 
oc 
oc 
LA 
LA 
TBF 
TBF 
TBF 
JF 


oc 
dC 
oC 
MVI 
MYC 
AtC 


TSTR*1LC1L) » TSTR4+1 
DOER 
SWITCH,X*80°* 
*+27 
COR+3(2)sAMSG16 
STSHOB-3 »XRI 
SWITCH »X*808 
MSG136-1(16)5SG136 
DOERL 
WORK-3€1) » STATUS-3 
WORK~39X*80° 
UNPACK 

ItL1*ou' 
AL2(WORK-3) 
AL2(MSG035-1) 
PRINT 

XL1°81° 
IL1°44¢ 
AL2(MSG135: 
LEN2¢X*2C* 
WORK~3(1)»STSHDB-3 
WORK~-3,X* 80° 
UNPACK 

IL1*O1® 
AL2(WORK=3) 
AL2(MSG036-1)} 
PRINT 

XL1i*s2° 
IL1°44¢ 
AL2(MSG136) 
STATUS~1 9X *FF® 
STATUS-3,X* 7TF& 
STATUS-2eX*O1® 
STSHDB-19X' FFE 
STSHDB-3,X* TF® 
STSHDB~2,X*OL® 
MARK » MARKT 
#411 

PRINT 

XL1*e2* 
IL1*1i9° 
AL2(RESMSG} 
SWIFCHsX*00* 
PRINT 

XL1°625 
IL1*20° 
AL2(MSG6018) 
STATUS—-3¢XR1 
CHECK 

PRINT 

XL1°92° 

PRINT 

XL1*62° 
IL1L*20° 
AL2(MSGO19) 
STSHDB-3 »XR1 
FIRST—15XR2 
O(eXR1),X* 808 
1(,XR1L),X* FEF 
3 eXR1L),X* FFE 
CHECK] 

PRINT 

XLi°BL& 
IL1*05°* 

AL2 (NONE) 
TSTBTO+1sX*O1* 
LENGTH, 0€sXR2) 
LENGTH(1) ONE 


PART NO} 
PAGE 


CHECK ALL 
BITS IN EACH BYTE 


INITIALIZE 
FOR PRINTING 
EXPECTED 
REED SW CHAR 


SET UC MODE 
SWITCH OFF 
UNPACK 
RECEIVED 
REED 
SWITCHES 
PRINT 
RECEIVED 
REED 
SWITCHES 


SET UC MODE 
SWITCH GFF 
UNPACK 
EXPECTED 
REED 
SWITCHES 
PRINT 
EXPECTED 
REED 
SWITCHES 
SETUP 
RECEIVED 
STATUS 
SETUP 
XPTE 
STATUS 


PRINT 
RESERVED 
BIT MESSAGE 


CLEAR 
PRINT 
STATUS 
RECEIVED 
WAS 


SWITCH 


SPACE 
TWO LINES 
PRINT 
STATUS 
EXPECTED 
WAS 


CHECK 
FOR ANY 
BITS ON 


IF NO 
BITS ON, 
PRINT 

* NONE ¢ 


SETUP 
FOR 


PROG ID 
PAGE 


4248250 
6A 


104-1 
6A 





i 
§ 
; 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


1041 
ERR LOC 


12E0 
12E5 
12E8 
12EC 
12cF 
12F3 
12F6 
12°-9 
12-0 
12FE 
L2FF 
1301 
1305 
1306 
1311 
1315 
1318 
1318 
IZ1lE 
1322 
1328 
132C 
132F 
1334 
1338 
133€ 
1344 
1348 
134E 
1352 
1356 
135A 
135E 
135F 


1363 
1367 
1368 
136E 
1372 
1376 
137A 
137E 
1381 
1384 
1388 


138C 
1390 
1394 
1398 
139C 
13A0 
13a6 
134A 
13AE 
1361 
1385 
1388 


OATE 
eC uO. 


5471 PRINTER KEYBOARD FAULT 


OBJECT CODE ADDR STMT 
2C 00 12E7 00 806 
E2 02 00 807 
34 02 1300 808 
£2 02 01 809 
34 02 1065 810 
78 00 00 811 
F2 90 08 812 
CO 87 O21A 813 
81 12FD 814 
00 12FE 815 
0000 1300 816 
CO 87 1322 817 
oc 00 1067 12E7 818 
OF 01 1300 1067 819 
35 02 1300 820 
BO 01 00 821 
F2 81 03 822 
BC 40 O1 823 
35 O02 1065 824 
OE 00 12F4 12F4 825 
CO 20 1205 826 
02 01 O1 827 
80 04 00 1018 828 
cc 01 1201 829 
OC 01 1304 1069 830 
OE 00 1056 1057 831 
CO 20 12A8 832 
OC 01 1304 1068 833 
3B FF 15F8 834 
35 01 1D07D 835 
35 02 107F 836 
CO 87 O21A 837 
93 135€ 836 
co 87 0000 839 
840 
841 
842 
843 
844 
845 
34 08 1388 846 
31 18 1037 847 
F3 18 80 848 
30 19 1D4F 849 
39 10 104F 850 
CO 90 136E 852 
38 08 104F 852 
F2 90 O7 853 
F3 18 40 854 
CO 87 136E 855 
co 87 co0O 856 
857 
858 
859 
860 
861 
34 08 1302 862 
3A €0 15F8 863 
34 CO 1039 864 
24 01 1070 865 
34 02 1D7F 866 
OC O02 1053 1082 867 
35 CO 1063 868 
34 CO 1063 869 
F3 10 06 870 
38 40 15F8 871 
F2 10 17 872 
OF O02 1053 1041 873 
29AUGTS5 OTNOVTS 
827804 827805 


LOCATION DIAGNOSTICS MOD 12 


PART NO. 
PAGE 


42482 


aw 


ee ee ee ee ee 


0 


* 
* 
s 
* 


| 


moe 


on 


aon. 


SOURCE STATEMENT 
MVC INCADR4+2(1)-00,XR2) LENGTH 
INCAOR LA *-*(9XR2)—4XR2 
ST ADRMSG -XR2 
LA 1(,XR2),XR2 
ST KEEP1,XR2 SAVE XR2 
TSTBTO TBN 0(+XR1) .X*008 CHECK FOR 
JF INCBTG BIT ON 
8 PRINT PRINT 
oc XL1*81° STATUS 
LENGTH OC IL1*OO* 
ADRMSG OC ~2(00) 
INCBTO B INCB2 
INCB81 MVC KEEP 2(1),INCADR42 
SLC ADRMSG(2) ,KEEP2 ADJUST ADDRESS TO BEGINNING 
L ADRMSG » XR2 OF MESSAGE FIELD 
cul Ol »XR2} eX*O1* 
JE #46 
“VI 10,XR2).X*40* 
L KEEP1,XR2 
INCB2 ALC TSTBTG4+1(1),-TSTBTO+] TEST ALL BITS 
BNOL OOIT OF EACH BYTE 
LA 1s XR1) XR} 
CLC 0(5+XR2) »NONE—4 CHECK FOR 
BNE CHECK] LAST MESSAGE 
eve INCBTO+3(2) ,AINCBL 
ALC SWITCH( 1) .HEX80 
BNOL EXPSTT 
VC INCBTO+3(2) ,AINCB2 
SBF MARK oX* FFE RESET FALGS 
L RISAV1»XR1L RESTORE 
L R2SAV2 sXR2 REGISTERS 
8 PRINT SPACE 
oc XL1°93¢ SIX LINES 
ENOSTR 6 +—% RETURN 
FESESSSETOSEHEE HSE ESETERSERTS SEE TSEEEEEREEESEHEEKE ESSE $OSSEEESEEEEEESEEEEREER 
2 
* THIS SUBROUTINE PRINTS THE CHARACTER WHICH HAS BEEN 
* DETECTED IN THE SENSE BYTE, C CODE '11', LOW ORDER ADORESS 
* 
SESSCEE SES SEEEESSOEOSSESEEEEES SOS ESES SESS EEEEEEESEO6604E90090400E09944SERE 
PRINTT ST PRINTE*3, ARR 
. £10 STATUS ,X*18¢* PRINT 
$10 X*80* ,.x*'188 CHARACTER 
SYNCP SNS WORK » X* 19° WAIT FOR 
TRF WORK » X* 10° PRINTER BUSY 
oF SYNCP Ta oROP 
TAN WORK ,X* 08° IF END Or 
JF PRINTE LINE ON, 
SsIo0 X*40*,X*18* RETURN 
6 SYNC P CARRIER 
PRINTE B e-% 


s 
2 
s 


SUBROUTINE TO ENABLE 


PRINTER 


FESSSSSSSERE SES SESSA SSS ESSES ESS SSEESSESSE RESETS DESSSESTS SES ESEESEESEEEE 


e! 
+ 
* 


SESS SLES SESERESESSSEESEEESE SFO 009 $444E 6494S 084089989SESS4S 449408 EE EEE 


STIORT ST 
SBN 
SBN 
$T 
ST 
MVC 
L 
$T 
$10 
TBN 
JT 
SLC 


$101 


ENDG+3,ARR 
MARK » MARKO 
STSHDB~2 5X*CO* 
RISAV1 eXR1 
R2SAV2_,XR2 
WORK1 (3) ,OLAY 
ITLV1,X*CO* 
ITLV1,x*COoO°* 
X*06* ,KYBD 
MARK MARK] 
ENDG 

WORK1 (3) eONE 


EXPECT INTERRUPT FLAG 
SET ENABLED BITS ON 
SAVE 

REGISTERS 
LOAD INT LEVEL i TAR 
ENABLE INTERRUPTS 
CHECK INTERRUPT RECEIVED 


WATT 1S0 


PROG ID 
PAGE 


| 
| 
| 
| 
| 


OOM 


0 


IBM MAINTENANCE OIAGNOSTIC PROGRAM 


1041 
ERR LOC 


13BE 
13C2 
13C8 
13¢C 
13CF 


1303 
1307 
1306 
130F 
13E3 
13E7 
136 
13€F 
13F2 
13F6 
13F9 
13FC 
1402 
1406 
140A 
1400 
1411 
1414 
1418 
141¢ 
141F 
1423 
1427 
142B 
142E 
1432 
1436 
1439 
1430 
1440 
1444 
1445 
1446 
1448 
144A 
144E 
1450 
1454 
1457 
1458 
145F 
1462 
1466 
146A 
146B 
146C 
146E 
1470 
1474 
1476 
147A 
147E 
1482 
1486 
148A 


104-1 C pare 


7 


rod 


EC wo. 


5471 PRINTER KEYBOARD FAULT 


OBJECT CODE 


CO 01 1381 
OC OE 173C 
CO 87 OFDD 
840301 

CO 87 0000 


13 
1703 
1021 
Co 87 
1021 
CO 87 OFDD 
050000 

CO 87 1440 
CO 87 OFDD 
860000 

CO 87 1458 
CO 87 0214 
C6 

31 
1804 
1022 
CoO 87 
1022 
35 O01 
35 02 
3B CO 
35 Co 
35 04 
co 87 


0222 


0222 


1070 
1O7TF 
1039 
1063 
1059 
0000 


29AUGT5 
827804 


1996 


1045 


13CE 


1413 


1420 


1444 
1445 
1447 
1449 


144F 


1456 


1461 


146A 
1468 
1460 
146F 


1475 


OTNOV7S 
827805 


ADOR STMT 


874 
B75 
875 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
$11 
912 
913 
914 
915 
916 
917 
918 
919 
920 
$921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
$40 
941 


LOCATION OIAGNOSTICS MGO 12 


SOURCE STATEMENT 


BNZ 
MVC 
8 
oc 
ENDG B 


$101 


MSGCAB-4(15), INTPL 


REPLCE 
XL3°840301° 
+-* 


PART NO} 4248250 
PAGE 7A 
MSEC FOR AN INTERRUPT 
REPLACE B2N2, 
B3L2, B3S2_ B3P2_- CABLE(KD141) 


RETURN 


SEREAEAK EES SERKESEKAKEREEESEEEESESEDE TESS ESKESEEEESSHEOEEEEEEEEESEEERESEEEE 


* 
* 
* 


INTERRUPT HANOLING SUBROUTINE 


s 
* 
s 


SHEKEESESEEESEEEE SE EESEESEEEEEEEEEESSO$OOO9E8ES SEEKS OOEEEEESEEESOE49844E8 


CONSLE ST 
ST 
SNS 
SNS 
L 
BC 
BC 
J 
NEXT L 
CLI 
JNE 
ALC 
SBN 
TBN 
JT 
NEXTS 6 
oC 
B 
TBN 
JT 
MvI 
AVI 
B 
oc 
B 
WEXT3 L 
$10 
L 
sie 
NOTRES 6 
oc 
oc 
oC 
oc 
8 
DC 
8 
oc 
8 
SELECT 8B 
oC 


NEXT1L 


NEXT2 


8 
NOTRE] 6 
oc 
DC 
oC 
oc 


RESET Lt 


ENDZ 8 
* 


* 
s 


SAVPSR»PSR 
ENDZ+¢3,P1IAR 
STATUS~2,X*138 
STATUS sX*11° 
ADRSER»X* 20° 
NOTRES-3,X*Cf0° 
NEXT, X*FF® 
NOTRES=3 
ENDZ+3eXRa 
2(.XR1) ,X*06* 
NEXT 
ENOZ43(2) . THREE 
MARK, MARKI 
MARK, MARKO 
NEXT2 

REPLCE 
xL3°050000°* 
NEXTS 
STATUS-2-X*CO® 
NEXT3 

MRECE .C*ee 
MDATE Cee? 
REPLCE 
XL3°050000° 
NEXT2 
TEM1,PLIAR 
X*00* -KYBD 
TEMPAR,PIIAR 
X*°O1* .KY8D 
PRINT 

XL1°C6* 
IL1°19* 
AL2(MSG613) 
XL2*1021° 
HALT 
XL2°1021¢ 
REPLCE 
xL3*050c00° 
NOTRES 
REPLCE 
XL3*800000° 
SELECT 

PRINT 

XL1°C6é* 
IL1*49° 
AL2(MSG14) 
XL2°1022* 
HALT 
XL2°1022¢° 
R1ISAV1.XR1 
R2SAV2eXR2 
STSHDB-2,.X*CO* 
ITLV1eX*CO* 
SAVPSRePSR 
s—-8 


STATUS RECORDER 


SAVE 
STATUS 
CHECK 
TAR/ARR 
SELECTION 


SET INTERRUPT RECEIVED FLAG 
CHECK FOR 

XPTO INTERRUPT 
REPLACE 

A-B2N2- B2L2 


CHECK INTERRUPTS 
ENABLED ON 


REPLACE 
B2L2, B2N2 
OISABLE 
INTERRUPTS 
RESET 
INTERRUPTS 
PRINT 
"INTERRUPT 
NOT 
RESET ® 


REPLACE 
B2L2, B2N2 

REPLACE 
A~B3L2 


PRINT 
"INTERRUPT 
RESET BY 
DISABLE 
COMMANDO! 


RESTORE 
REGISTERS 
RESET STATUS 


RETURN 
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I8M MAINTENANCE DIAGNGSTIC PROGRAM PART NO. rear IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248250 
PAGE 8 | C PAGE SA 
1041 5471 PRINTER KEYBOARD FAULT LOCATION DIAGNOSTICS MOD 12 | 1041 5471 PRINTER KEYBOARD FAULT LOCATION DIAGNOSTICS MOD 12 
| 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | ERR toc OBJECT CODE ADDR STMT SOURCE STATEMENT 
168E 34 08 1485 942 SENSOR ST ENDSOR43 ,ARR SAVE RETURN ADORESS i 1551 CO 87 148E 1010 SI02 8 SENSOR SAVE STATUS 
1492 30 13 1035 943 SNS STATUS-22XK*134 STaTus c 1555 38 OC 1035 1012 TBN = STATUS~2,X*0C! CHECK FOR 
1496 30 11 1037 944 SNS STATUS, X*1i1° SAVE 15593 F2 90 08 1012 JF *¢+1)} 
149A 38 01 1035 945 SBF STATUS-2,X*O1° SET RESERVED & 155C CO 87 14E7 1013 8 STROBE 
149E 38 01 1D39 946 S6F STSHDB-25X*O01* BIT OFF "8 1860 CO 87 15Ff4 1014 B ENDSIO 
14A2 CO 87 9000 947 ENDSOR B tne RETURN 1564 CO 87 14A6 16015 B DELAY 
948 & ee 1568 CO 87 1551 1016 B s1d2 
949 * DELAY SUBROUTINE: qo 156C 3C SC 18C8 1017 MVE MRECS,C tat 
950 * SUBROUTINE ALLOWS ONE MINUTE FOR 1570 3C SC 1BED 1018 AVI MREC »C*#? 
- 951 ¢ A CHANGE GF STATUS TO BE OETECTED. oo 1574 0b 05 184C 1D08E 1019 cec MS8G615—-4(6) ,REQ 
952 *# ; ae 157A F2 O01 18 1020 JNE SIGA 
14A6 34 O08 14E6 953 DELAY ST ENDD<¢3,ARR 157D 38 80 1D37 1021 TBR STATUS »X*80* CHEK REQ KEY 
146AA 34 O01 1049 954 St SAV1>XR1 SAVE CONTENTS oe 1581 F2 10 OD 1022 JT $109 INT PEND ON 
1GAE 34 O02 1048 955 ST SAV2 eXR2 OF REGISTERS — 1584 OC O07 1735 1974 1023 MVC MSGCAB-11(8) ,REQCAB 
1482 38 20 15F8 956 TBN MARK ¢HARK2 CHECK FOR 1584 CO 87 OFDD 1024 B REPLCE REPLACE 
1486 F2 10 OA 957 JT 3 =O11 INITIALIZED ON ys 1S8E 080408 1590 1025 DC XL3*080408° B2P2, B2U3, CABLE(GC461) 
1489 3A 20 15F8 958 SBN MARK »MARK2 x 1591 CO 87 OFDD 1026 S109 8 REPLCE REPLACE 
148D OC 03 ID4F 1078 959 aVvC WORK (4) »DELAYC DELAY CONSTANT 1595 oc0000 18697 1027 oc xt3*ocoooo* A-B2P2, B2N2 
14C3 OF 03 1D4F 1041 960 O11 SLC WORK(4) ONE ALLOW ONE ss 1598 OD O05 184C 1094 1028 SIDA CLC MSG15~4(6),CANCEL 
14C€9 CO 01 14DB 961 SNZ 022 MINUTE QW 1SSE F2 01 11 1029 JSNE S108 
14CD CO 87 O21A 962 8 PRINT PRINT 1SAl OC OA 1738 197F 1030 mvC MSGCAB-8(11),CANCAB SETUP FOR 
14D1 02 1401 963 oc xL1*O2* *NO fc 15A7 3A 04 15F8 1031 SBN MARK , MARKS CANCEL 
1462 34 14D2 964 oc ¥t1°52° CHANGE Sa 15A8 CO 87 GFDD 1032 8 REPLCE REPLACE 
1403 17C0 14D4 965 oc AL2¢(MSG12? OF STATUS® LI5AF 080408 1581 1033 oc XL3°080408* B2P2, B2U3- CABLE(6C461) 
14D5 OF G1 14E6 1047 966 ALC ENDD4+3(02) , FOUR 1582 of OF 1735 1987 1034 SIGB MVC MSGCAB~11(8)},ENDCAB SETUP FOR 
1408 35 01 1D49 967 022 L SAV1,XR1 RESTORE Re 1588 34 O8 15F8 1035 SBN MARK » MARKS END 
140F 35 02 1048 968 L SAV2Z oe XR2 REGISTERS 15sec CoO 87 OFDD 1036 8 REPLCE REPLACE 
14E3 CO 87 0000 969 ENDD 8 = RETURN oe 15C0 080408 15C2 1037 pc XL3°080408* B2P2, 82U3, CABLE(GC461) 
970 EEERESSERSESSESLRKKAKERKTRECKSETSEKKESSKSRERERAEKESCKSLESAREKRLSEGRASSSSESESHKEKES Ro 15C3 34 GS 1SFT 1038 SIOS ST ENDS104+3¢ARR 
971 @ THIS SUBROUTINE WAITS FOR THE XEYBOARD TO BE * 15C? CO 87 148E 1039 SIG4 8 SENSOR SAVE STATUS 
972 % COMPLETELY RESTORED, WEKICH IS ACHIEVED WHEN * c 15CB 38 30 1D35 1040 TBN STATUS—2 -X*30° CHEC. FOR 
973 EITHER THE STROBE SWITCH SAMPLED OR THE REQUEST eb. 15SCF F2 10 22 1041 JT ENDSIO STROBE SAMPLED ON 
eS 974 & OR END OR CANCEL KEY SAMPLED HAS DROPPED. * 15D2 CO 87 1486 1042 B DELAY 
975 A HSSESESARESEREEESSESOSSESEESERDSR ESSE TESERTYSEORS! TEESEREEEELEERES EES Ps 15D6 CO 87 iSC7 1043 B S106 
146E7 34 08 154C 976 STROBE ST ENDL+3-ARR SAVE RETURN ADDRESS PALS LSDA 3C SC 1CG7 1044 MVI HMSTRBS Cte! 
1GEB 34 61 1049 oT7 ST SAV1,XRE : 15DE 3€ SC ICE 1045 “VI MSTRB,Ct#? 
14EF 38 3C 1039 978 SBF STSHOB—2.X*3C* a 15E2 30 O7 OADZS 1046 cLIi CRINDsX*O7* CHECK FOR ROUTINE 7 
14F3 C2 01 OOGA 979 LA 10.XR1 WAIT OR 1SE6 F201 04 1047 JNE &+7 
14F7 OD FE O1F4 OLF4 980 STL cCLc 500{ 255} .500 SEVERAL i 15E9 3A O08 15F9 1048 SEN FLAG, FLAGS 
14FD 36 01 1055 981 A HEXFF,XR1 MILLISECONDS <a 1S5ED CO 87 OFDD 10469 B REPLCE REPLACE 
1601 CO O01 14F7 982 BNZ STi : ' # 15F1 o8s¢oc00 1SF3 1050 + XL3*osooo0* A-~B2P2 
1805 C2 Ol FFFE 983 _ LA X*FFFE® XR Rn Ms 15F4& CO 87 GO00 1051 ENDSIG 6 #-—% 
1509 30 13 1035 984 ENDL2 SNS STATUS~2,X"13* WAIT 1052 * * 
150D 39 3¢ 1035 985 TBF STATUS-2,X*3C°* 100 MSEC @ 1053 * PROGRAM FLAGS * 
1511 F2 10 32 986 JT ENDL1 FOR STATUS 1054 © * 
4514 36 01 1055 987 A HEXFF,XR1 GITS TO BE 15F8@ O00 15F8 1055 MARK oc xXL1*o0O* 
1518 CO 01 1509 988 BNZ ENOL2 RESTORED @ 0080 1056 MARKO EU x*so* EXPECT AN INTERRUPT 
151C 38 10 1034 989 TN STATUS—3,X*10° CHECK STROBE SK GN | 6040 1057 MARKI] EQU x°408 INTERRUPT RECEIVED 
1520 39 08 1034 990 TBF STATUS—3,X*O8* CHECK STROBE SAMPLED OFF 0020 1058 MARK2 EQU X*26¢ INITIALIZE FOR DELAY 
1524 F2 90 O08 991 JSF #414 i © 0010 1059 MARK3 EQU X*10¢ NON-ERROR PRINTOUT 
1527 3C 5C 1CleE 992 RVI MSTRB CESS | GOOB 1060 MARKS EQU x*o6e* END SWITCH 
1528.CO 87 SFDD 993 8 REPLCE REPLACE i 0004 1061 MARK5 EQU X#O46 CANCEL SWITCH 
152F 040000 1531 994 oc XL3°040000* B2N2 S GOO2 1962 MARKEE EOQU x*d2e END OR CAN SWITCH 
1532 3A 20 15FS $95 S8N FLAG »FLAG2 | 0001 1063 MARKT EQU x*o1¢ RESERVED BIT 
1536 3C SC 1B8ED 996 MVI MREC Cea? ; LSF9 00 15F9 1064 FLAG oc XL1*O0O* 
153A 3C SC 18CB 997 MVI MRECS,Ctst € 0080 1065 FLAGO EQU x*gor REQ SWITCH 
153E CO 87 OFDD 998 8 REPLCE REPLACE ; 0040 1066 FLAGI EQU x*49* KEY HIT OUT OF ORDER 
1542 ocooce 1544 999 oc XL3* oc OoCc00°* A-B2P2, B2N2 : GCO20 106% FLAG2 EQU x*208 KEY HELD DOWN 
15%5 35 01 1349 1000 ENDLIT L SAVI XK e 0010 1068 FLAG3 ESU x*168 RE-SEAT iL2. 
1549 Co 8&7 O000 1001 ENDL B xm RETURN | Oo08 1069 FLAGS EQU X*OB* SHIFT KEY MESSAGE 
1002 SEKECSEEEKEESKERECSELESRSEKESEPRSESKERESHE STS SKKLESSHEKESLEKESESSE KE SKSESSKRRASLSSE, 1S5FA GO 1S5FA 1070 XMTBLK coc XL1i'oo* GK 
19003 * «! @ i071 * : 
1004 * THIS SUSROUTINE WAITS GONE MINUTE FOR A CHANGE *| 1072 * LOWER CASE CHARACTER ENCODE TaBLe 
a 1005 + IN THE STATUS-—-RHEN THIS IS DETECTED, CONTROL : 1073 ¢ 
xe , 1006 + IS RETURNED TO THE CURRENT ROUTINE. & I5FB FL 15FB 1074 TABLE] DC XL1‘F1¢ 
1007 ¢ LSFC F2F3F4FSFEF7FS8F9 1603 1075 oc XL8* F2F 3F-4F SFOFTFSF9® 
1008 spbsdgns cdesseuséeectececdsdseteeesceseiecssaesssnsssnesesstsasateteass 1604 FOSOSODBE6CSDSE3 1608 1076 oct XL8* FOGOSODSE6BCSDOES* 
1540 34 O8 15F7 19009 SIG ST ENDSIG+¢3, ARR c 160C EBE4CODGDTICCLE2 1613 1077 oc XLB* ESE4CO9DED77ICCIE2®* : 
DATE 29AUGTS OTNOVT7S PRoc Io 104-1 @oate 29AUGT7S OTNOVTS PROG If 104-1 
=C NOe 8278064 827605 PAGE EC NOw 827804 827805 PAGE SA 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248250 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248250 
PAGE 9 c PAGE 9A 
1041 5471 PRINTER KEYBOARD FAULT LOCATION DIAGNOSTICS MOD 12 1041 5471 PRINTER KEYBOARD FAULT LOCATION DIAGNOSTICS MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ' ERR LOC CBJECT CODE ADDR STMT SOURCE STATEMENT 
1614 C4C6C7C8D102035B8 1618 1078 OC XL8*C4€6C7C801020358* 1756 €905400306"6C509 1765 1138 BoC CLI6"IN LOWER SHIFT, * 
161C 7BESETC3E5C2C0504 1623 1079 oc XL8* 7TBESETC3ZE5C 20504 °* 175E 40E2C8C9C6E36B40 1138 
1624 6B8486140FF 1628 1080 oc XL5"'68486140FF* 1766 D709C5E2E240C1D05 1780 1139 MSGO8 O0C .CL27*PRESS AND RELEASE SPACE BAR® 
1081 * 176E C44009C5D03C5CLE2 1139 
1082 * UPPER CASE CHARACTER ENCODE TABLE a 1776 C540E207C1C3C540 1139 
1083 * 177E C2C109 1139 
1629 7E 1629 1084 TABLE2 DC XL1¢°7E® . 1781 D60940E2C8C9C6E3 178C 1140 MSGSHF OC CL1i2*OR SHIFT KEY® 
162A 4C5E7AGCTOGESC4O 1631 1085 OC XL8* 4C5ETAGC TDGESC4D°* . 1789 4002C5E8 1140 
1632 SD6D4EDSE6C5D9E3 1639 1086 oc XL8*S5SD6D04EDBE6C5D9E3* 1780 D50640C3C8C105C7 17CO 1141 MSG12 oC CL52*NO CHANGE OF STATUS AFTER ONE MINUTE-ERROR MAY EXIST® 
163A E8E4C9DED74AC1E2 16412 1087 Oc XL8*E8E4C9D6D74AC1 E2* : 1795 C540D6C640E2E3¢1 1141 
1642 C4C6C7C8DLD2035A 1649 1088 oc XL8*C4C6C7C8DLD2D35A* : 179D £3€4E240C1C6E3C5 1141 
164A TFESE7C3E5C20504 1651 1089 oc XL8°*7FESETC3E5C20504° 17A5 09400605C54004C9 1141 
1652 4FSF6F4OFF 1656 1090 oc XL 5° 4FSFOFSOFF & ” 17AD 05E4E3C560C50909 1141 
1091 # \ 1785 05094004C1E840C5 1141 
1092 * LOWER CASE REED SWITCH COMBINATIONS 17BD E7C9E2ZE3 1141 
1093 * 4 17C1 CIDSE3SC5D909E4D7 1703 1142 MSG13 OC CLIO* INTERRUPT NOT RESET® 
1657 31 1657 1094 TABLE3 OC XL1°31°8 ‘ 17C9 E3400506E34009C5 1142 
1658 3273347576373879 165F 1095 oc XL8*3273347576373879°* 1701 E2CSE3 1142 
1660 7020105826451923 1667 1096 oc XL8*7020105826451923° y 1704 CODSE3C5D9D9E407 1804 1143 MSG14 OC CL49* INTER,.UPT RESET b6Y DISABLE---REPLACE A-B2L2,A-B2N2° 
1668 68644916577C0162 166F 10597 Oc XL8* 6864491 6577C0162°* 4 170C £34009C5E2C5E340 1143 
1670 0446070851521358 1677 1098 DC XL8*0446070851521358° ITE4 C2E840C4C9E2C1C2 1143 
1678 3829674325021554 167F 1099 oc XL8*3829674325021554! . 17EC 03C 5606009C50763 1143 
1680 68066140FF 1684 1100 oc XL5*680B86140FF® A 17F4 C1C3C540C160C2F2 1143 
1101 # ; 17FC 03F268C160C2F205 1143 
1102 *# UPPER CASE REED SWITCH COMBINATIONS oo 1804 F2 1143 
1103 *# Re 1805 E6C109D5C905C760 1834 1144 MSWARN DC CL48*WARNING-RESETTIAG THIS ERROR HALT MAY BE INVALID® 
1685 Bl 1685 1104 TABLES OC xL1*61* 180D D9CSE2C5E3E3C9D5 1144 
1686 B2F3B4FSF6B7B8F9 1680 1105 oc XL8"'B2F 3B4FSF6BTB8F9* - 1815 C740E3C8C9E240C5 1144 
168E FOAOSODSA6C599A3 1695 1106 pc XL8* FOAO90D8A6C59943° x. 181D 0909D6D940C8C 103 1144 
1696 E8E4C996D7FC81E2 169D 1107 oc XL8* ESE4C996D7FCSILE2* 1825 £34004C1E840C2C5 1144 
169E 84C68788D10293DB 16A5 1108 oc XL8 *84C68788D102930B8* r 1820 4£0C9D5E5C1D3C9C4 1144 
16A6 BBA9E7C3A58295D4 16AD 1109 oc XL 8* BBASETC3A58295D4* ho 1835 DTD09C5E2E240C105 1850 1145 MSG15 0C CL28*PRESS AND RELEASE KEY* Pe eaten « 
16AE EBSBELCOFF 1682 1110 oc XL5"EBSBEILCOFF® 1830 C440D9C503C5C1€2 1145 
1683 FL6BF26BF46BF868 16C2 1111 TABLET OC CL164*1e2@e4eBe Ae BoP ® - 1845 €540404040404040 1145 
1688 C168C26807404040 1111 C 184D 40D2C5E8 1145 
1112 1851 4040404040404060 1860 1146 MSG16 OC Ci.1é6* KEY TEST® 
1113 « MESSAGES ‘3 1859 O2C5E840E3C5E2E3 1146 
1114 * Le 1861 60C 160C2F2E4F240 1883 1147 MSG19 OC CL35*-A-B2U2 MAY BE SWAPPED WITH A-A3A3* 
16C3 09C50703C1C3C540 1608 1115 REP oc CL25*REPLACE FOLLOWING CARD/S:* 1869 D4C 1E840C2C540E2 1147 
16CB €606030306E6C9D5 1115 1871 E6C1D7D7C5C440E6 1147 
1603 C740C3C1LD9SC461E2 1115 C 1879 C9E3C840C160C1F3 1147 
1608 7A 1115 : ° 1881 C1F340 1147 
160C C160 16DD 1116 oc CL2*a-* a 1884 60C160C2F2E4F340 18A6 1148 MSG20 0C CL35*-A-B2U3 MAY BE SWAPPED WITH A-B2U5* 
16DE ETETETET 16E1 1117 CARD oc CL4&*XXxXx® € 188C D4C1E840C2C540E2 1148 
16E2 C2F203F2 16E5 1118 CARDS OC CL4*B2L2* 1894 E6C1D707C5C440E6 1148 
16E6 C2F2D4F2 16E9 1119 oc CL4*B2m2¢ 189C C9E3C840C160CzZF2 1148 
16EA C2F205F2 16ED 1120 oc CL4*B2N2° BO 18A4 E4F540 1148 
16EE C2F2D07F2 16Fl 1121 oc TL4*B2P2° 18A7 C9D0540D306E6C509 1885 1149 MSG oc CLI5*IN LOWER SHIFT * 
16F2 C2F2ZD9F2 16F5 1122 oc CL4*B2R2¢° 18AF 40E2C8C9CEE340 1149 
16F6 C2FZE2F2 1679 1123 oc CL4*B2S2° € 1886 D709CSEZE240C4C1l 18E1 1150 OC CL44*PRESS DATA KEYS LEFT TO RIGHT. TOP TO BOTTOME 
16FA C2F2E4F2 l6FD 1124 oc CL4'*B2u2' 18BE £3C14002CS5E8E240 1150 
16FE C2F303F2 1701 1125 oc CL4*B3L2° te 18C6 03C5C6E340E30640 1150 
1702 C2F307F2 1705 1126 oc CL4*B3P2¢ oh 18CE D9C9C7C8E36B40E3 1150 
1706 C2F3E2F2 1709 1127 oc ClL4"63S2° i 1806 060746E30640C 206 1150 
LTOA C2F2ZE4F3 170D 1128 oC CL4"*B2uU3° Se 18DE E3E306D4 1150 
L7OE DICSE2ZC5E340E3C8 1718 1129 MSGRES OC CLI4*RESET THE HALT® o 18E2 6B40E3C8C5054007 18F7 1151 MSGO13 DC CL22*, THEN PRESS SPACE BaR® 
1716 C540C8C103E3 1129 18EA O9CSEZE240E207C1 1151 
171C C3C8C5C30240C3C1 1727 1130 oc CLI2*CHECK CABLEC® : f 18F2 C3C540C2C109 1151 
1724 C203C540 1130 oes 18F8 C5D05C440E2ZE6T9E3 1901 1152 ENDSW DC CLIGO*END SWITCH 
1726 EVETETETE7 172C 1131 CABL oc CLS* XXXNX* i 1900 C3C8 1152 
1720 4040404040404040 1740 1132 MSGCAB OC 20XL1° 40° 1902 0D60940D2C5E840C8 1911 1153 MSGKY DC CLi6°OR KEV HELD CGwN' 
1735 4040404040404040 1132 ‘ € 190A C5D3C440C4D6E605 1153 
1730 40404040 1132 ' 1912 DICSO8E4C5E2E340 1OLF 1154 MSGRSW OC CLIS*REQUEST SwITCHe 
1741 40 1741 1133 oc XL1°40* 191A E2E6C9E3C3C8 1154 
1742 D2C4FlFSF1 1746 1134 CABLE OC CL5*KO141° ' ie 1920 D9IC560E2C5C1E340 1943 1155 MSGL2 CC CL36°RE-SEAT A-B82L2,. SUSPECT OPEN PIN U12* 
1747 CIC3FESFSF3 1748 1135 oc CLS *"6C553° 1928 €160C2F203F 26840 1155 
174C CICSFSFE5SF2 1750 1136 oc CLS5*G6CS52° be 1930 E2E4E207C5C3E340 1155 . 
1751 CYCSF4F6F1 1755 1137 oc CLS °G6C461* iC 1938 D607C5054007C9D5 1255 
' 
; | 
DATE 29AUG75 OTNOVTS PROG ID : | Coate 29AUGT5 O7NOVTS ' Proc 10 104-1 
€C NO. 827804 827805 PaGE 9 j EC NO. 827804 827805 PAGE SA 
| 
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18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO- 4248250) = 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248250 
PAGE 10 iC PAGE 10a 
1041 5471 PRINTER KEYBOARD FAULT ‘OCATION DIAGNOSTICS MOD 12 | 1041 S471 PRINTER KEYBOARD FAULT LOCATION DIAGNOSTICS MOD 12 
| we 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | “err Loc Gasect cove ADDR STMT SOURCE STATEMENT 
1940 40E4F1F2 1155 k LAFF C9C640C1DSE840D6 1828 1180 DC =«-« CL42*IF ANY OTHER INTERRUPTING DEVICES ATTACHED® 
1944 06D940C4C1E3C140 195F 1156 MSGDAT DC CL28*OR DATA KEY HIT OUT OF ORDERS |: 1807 £3C8C50940C905E3 1180 
194C D2C5E840C8C9E340 1156 | 180F C5D9D9E4D7E3C9D5 1180 
1954 D6E4E34006C64006 1156 | « 1817 C740C4C5ESC9C3C5 1180 
ae pees ou8 an 1156 ne vee =e | ‘. 1B1F £240C1E3£3C1C3C8 1180 
1960 C3C1D5C3C5D340E2 196C 1157 CANSW D CLI3*CANCEL SWITCH® . 1827 C5C4 1180 
1968 E6C9E3C3C8 1157 | 1829 S0E3D660EZESE2E3 1B4B 1181 MSG141 DC = CL35* TO SYSTEM ARE CPERATING CORRECTLY» * 
196D O9CSD840D2C5E85D 1974 1158 REQCAB OC CLB*REO KEV} % 1831 C€50440C109C54006 1181 
1975 C3C1D5C3C5D340D2 197F 1159 CANCAB DC = CLL "CANCEL KEY)* | 1839 D7C5D9C1E3C9D5CT7 1161 
1970 C5E85D 1159 | ¢ 1841 40C3D6D9D9CSC3E3 1181 
1980 C5D5C440D2C5s5D 1987 1260 ENDCAB DC = CL8* END KEY?® ' 4. 1849 D3E86B 1181 
1988 CIDSESCSD9D9E4D7 1996 1161 INTPL DC  CLIS*INTERRUPT POLL} * 1B4C D6D4C9E340C3CEC5 1675 1182 MSG142 DC CL42°OMIT CHECKING B3S2, B3P2, AND CABLE(KD141)° 
1990 £34007D6030350 1161 ,. 1854 €302C9D5C740C2F3 1182 
1997 C3C8C1D9CIC3E3C5 19AB 1162 MSGCEN DC CL21*CHARACTER ENCODE TEST®* Ps 1BSC E2F26840C2F3D7F2 1162 
199F D940C5D5C3D6C4C5 1162 1864 6840C105C440C3C1 1182 
19A7 40E3C5E2E3 1162 i: 1B6C _C203C54DD2C46F1F4 1162 
19AC D7D9CSEZE240C105 19D8 1163 MSGFG DC CL45*PRESS AND RELEASE F AND G KEYS SIMULTANEOUSLY® (4h. 1874 F1SD 1182 
1984 C440D9C503C5C1E2 1163 oar 1B76 DICSCSC440EZE65D 1870 1183 REED OC CL8*REED Sw?® 
198C C540C640C105C440 1163 . |g -«:IBTE OSCSEZCSDSESC5C4 1890 1184 RESHSG DC = CLISRESERVED BIT IS ON ° 
19C4 C7T40D2CSE8E240E2 1163 "A. B86 40C2C9E360C9E240 1184 
19CC C9D4E4D3E3C105C5 1163 1B8E 060540 1184 
1904 D6ESE2D3E8 1163 @ 1185 @ 
19D9 D9CSCOC5D940E3D6 19F9 1164 MSGBL DC CL33*REFER TO FEMM 2-155 : 'G 1166 * STATUS MESSAGES 
19E1 40C6C5D40440F260 1164 1167 * 
19E9 F1F5F54040404040 116% - ee :1891 01 1891 1188 oc = XL2°01 
19F1 4040404040404040 1164 C1882 o1 1892 1189 FIRST OC XLi*O1* 
19F9 40 1164 1B93 0101010101010101 189£ 1190 oC = -«12TL1*01° 
19FA C505C440D6D940C3 LAQA 1165 EOCSW DC CLIT*END OR CAN SWITCH® top 1898 01010101 1190 
LAO2 C1DS40E2E6C9E3C3 1165 % -1B9F 15 1B9F 1191 pc 8s at2is 
1AGA C8 1165 1BA0 40 1BAO 1192 MUCM OC =. XL1*408 
LAOB E4C340D4D6C4C55D 1Al2 1166 MSGUCM DC CL8*UC MODE) , 1BAL D2CSE8C2D6C1D9C4 1884 1193 DC CL20*KEYBOARD MODE SWITCH® 
1A13 DOCSCSC440EZE65D 1ALA 1167 MSGRD DC CL8*REED Sw)® \ s- BAS. 40D4D6C4C540E2E6 1193 
1ALB D3D6C30240E2C8C9 1A2D 1168 MSG17 OC CLI9*LOCK SHIFT KEY DOWN® 1BB1 C9E3C3C8 1193 
1423 C6E34002C5E840C4 1168 C 1885 0102 1BB6 1194 oc 8s 2TL1*01° 
1A2B8 D6E6D5 1168 «° 1BBT 12 18B7 1195 oc 8k 1°18* 
LAZE E4D5D3D6C3624040 1A3E 1169 MSG18 DC CLI7*UNLOCK SHIFT KEY 1B88 40 1886 1196 MSHIFT OC = XL1"40* 
1436 E2C8C9C6E34002C5 1169 ~~ 1889 D2C5EBC2D6C1D9C4 18C9 1197 OC CLIT7*KEYBOARD SHIFTING® 
= ee aes \ -:18C1 40E2C8C9C6E3C9DS 1197 
1A3F LA3F 1170 oc CLA tee 1809 C7 1197 
1440 C4C1E3C140C3C8C1 1ASE 1171 MSGO33 DC CL31"DATA CHARACTER RECEIVED - <e * C 1BCA 21 1BCA 1198 pc 8 s«&IL.1*338 
1A48 D9C1C3E3C50940D9 1171 -  18CB 40 18CB 1199 MRECS OC xXL1*40* 
1A50 C5C3C5C9E5C5C440 1171 : 18CC D9C5D840D6D940C5 18E8 1200 DC CL32*REQ GR END GR CANCEL KEY SAMPLED® 
LASB 60404060684040 1171 s 1804 05C440D6D940C3C1 1200 
LASF C4C1E3C140C3C8C1 1A7D 1172 MSGO34 DC = CL31*DATA CHARACTER EXPECTED - =» ° \..  1BDC 05C3C5034002C5E6 1200 
1A67 D9IC1C3E3C5D940CS 1172 1BE4 40E2C1D4D703C5C4 1200 
LAGF E7D7C5C3E3C5C440 1172 2 .  18EC 19 1BEC 1201 pc 8 sdL¢25° 
LATT 60404060684040 1172 € 1 Bep 40 1BED 1202 MREC OC = XL1"40° 
LATE SC LATE 1173 pc CCL" #* 1BEE DIC5DE40D60940C5 1005 1203 DC CL24*REQ@ OR END OR CANCEL KEY® 
LATF DOCSCSC440E2E6C9 1A99 1174 MSGO35 DC CL27*REED SWITCHES RECEIVED - ~* -~  18F6 D5C440D60940C3C1 1203 
1487 E3C 3C8C5E24009C5 1174 {- 1 BFE D5C3C5N340D2C5e8 1203 
LAGF C3C5C9E5C5C44060 1174 1C06 16 1C06 1206 oC =: IL 2228 
LA9T 404060 1174 ye: 1€07 40 1CO7 1205 MSTRBS DC xXL1"40* 
LA9A 4040404040404040 1AAA 1175 MSG135 DC = CL1T7* . \- 108 EZE3D9DEC2C540E2 ICIC 1206 DC CL21*STROBE SWITCH SAMPLED® 
LAA2 4040404040404040 te | 1010 E6C9E3C3C840E2C1 1206 
1aaa 40 1175 _ 1€18 D4D703C5C4 1206 
anne Desc cesar cece 1acs 136 MSGO36 DC CL27'REED SWITCHES EXPECTED - -* €> ici o£ 1C1D 1207 pC sd" 14* 
ICLE 40 1C1LE 1208 MSTRB OC XL1*40° 
aaee DIC eae ae Acn Agee pe ¢ 1C1F £2E3D9D6C2C540E2 1028 1209 DC =—s-sCL13*STROBE SWITCH® 
1AC3 404 1176 % - 1C27 -E6C9E3C3C8 1209 
1AC6 4040404040404040 LADG 1177 MSG136 DC = CL17° : 1C2C 18 1C2C 1210 pc CEL A278 
LACE 4040404040404040 1177 .  1€2D 40 1C2D 1211 MDATE OC xXL1*408 
1A06 40 1177 © —-1€2E O2CSEBCZDECIDSC4 1C47 1212 ©C CL26*KEYBOARD DATA KEYS ENABLED* 
1AD7 EZE3C1LE3E4E240D9 LAEA 1178 MSGO1B DC CL20"STATUS RECEIVED WAS,* 1036 40C4C1E3C140D2C5 1212 
LADF C5C3C5C9ESC5C440 1178 C: 1C3E E8E240C505C1C2D3 1212 
LAE? E6C1LE266 1178 # C46 CSC4 1212 
LAEB E2E3C1E3E4E240C5 LAFE 1179 MSGO19 DC CL20*STATUS EXPECTED WAS,* 1€48 10 1C48 1213 oc — ss EL‘ 168 
1AF3 E7D7°5C3E3C5C440 1179 ~  1€49 40 149 1214 MREQE DC xXL1"4G° 
1aFB E6C1E268 1179 © ica oscsossonzcsees0 1¢58 1215 OC CLI5"REQ KEY ENABLED® 
DATE 29AUG7S O7NOVTS PROG ID 104-1 Epate — 29UGTS =: OFNOWTS PROG ID 104-1. 
EC NO. 6827804 PAGE 10, EC NO. 827804 827805 PAGE LOA 


827805 


‘ @ 
i 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


1041 5471 PRINTER KEYBOARD FAULT 


ERR LOC 


1¢€52 
1c59 
1cél 
1ic69 
1C6A 
1C6B 
1€73 
1C78 
1C7E 
1C7F 
1€80 
1€88 
1¢90 
1095 
1096 
1097 
1C9OF 
1CAl 
1CA2 
1CA3 
1CAB 
1C83 
icBB 
1cc3 
1cc7? 
1ccs 
1cc9 
1c00 
1€02 
1c02 
1CDA 


oe 1coc 


1ccoo 
1COE 
1CE6 
icEE 
1CF6 
1CFO 
1cFE 
1CFF 
1007 
1D00F 
1017 
10186 
1010 
1025 
1020 


1034 
1038 
103¢ 
1D3E 
1040 
1042 
1D44 
1046 
1048 
104A 
104C 
1050 
1054 
1056 
1057 
1058 
1DSA 
205¢ 


DATE 
EC nO. 


OBJECT CODE ADDR 
C505C1C203C5C4 
0101010101010101 1C68 
0101020101010101 

14 169 
40 1C6A 
D2C5EBC206C1D09C4 1C7D 
40C4C1E3C140C3C8 
C5C302 

16 ICTE 
40 1C7F 
O2CSE8C206C109C4 10694 
40E703C1E3060940 
C3C8C5C3D2 

08 1c95 
40 1096 
DSC 5E3E409D540D2 ICAO 
C5E8 

25 1CAl 
40 1CA2 
O9CS5E3E4090540D6 1CCé6 
0940C4C1E3C14002 
C5E840C9DSE3C509 
DIE4D 7E340D7C5D05 
C4C9D05C7 

08 1cC7 
40 1¢c8 
€505C44002C5E8 1cCF 
oe 1¢€00 
40 1c01 
C3C1D05C3C50340D2 1C06 
C5E8 

20 1coCc 
40 1cD00 
C505C440060940C3 1CFC 
C105C3C50340C9D5 
E3C509D9E4D7E340 
DTCSDSC4C9IDSCT 

1A 1cFO 
40 icfe 
D9CSDB40D2CSER4O 1017 
C9D5E3CSD9D9E407 
E340D7C5D5C4C9D5 

C7 

4£0050605C5 101C 
E3D9C105E204C9E3 1033 
40C203D6C30240C1 
E2E2C504C2D3E8 
00000000 1D37 
00000000 1038 
ocoo 1D30 
0000 103F 
oo01 1041 
0062 1043 
0003 1045 
0004 1047 
ocoo 1049 
0000 1048 
00000000 104F 
00000000 1053 
FFFF 1055 
00 1056 
80 1057 
c000 1059 
119D 1058 
1199 1D5D 
29AUGTS OTNGVTS 
827804 827805 


STMT 


1215 
1216 
1216 
1217 
1218 
1219 
1219 
1219 
1220 
1221 
1222 
1222 
1222 
1223 
1224 
1225 
1225 
1226 
1227 
1228 
1228 
1228 
1228 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1234 
1235 
1236 
1237 
1237 
1237 
1237 
1238 
1239 
1240 
1240 
1240 
1240 
1241 
1242 
1242 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 


My ak ois 


PART NOs 4248250 
PAGE 11 
LOCATION DIAGNOSTICS MOD 12 
SOURCE STATEMENT 
DC =—._—«»L6 TL. "02° 
pC —s«IL1*208 
MDATCK DC —-_ XL1 "408 
DC  CL19*KEYBOARD DATA CHECK® 
pc sdk 2228 
MXLAT DC XLi'4ot 
DC Ci21"KEYBOARD XLATOR CHECK® 
oc sttt2ie 
MRET DC XL1*40° | 
DC  CLIO*RETURN KEY® - 
DC IL1°37° 
MDATP OC xL1*40° e 
OC CL36"RETURN OR DATA KEY INTERRUPT PENDING* a 
C° 
& 
pC —ss TL. 08" = 
MEND 0C XL1"408 Oe 
DC  CLT*END KEY® | 
oc = s«TL1° 11° oo 
MCAN DC xXL1'40* eo 
OC  CLIO*CANCEL KEY* 
| ; 
oC Ss" 328 ' €& 
MEOCP DC XL1"40* 
DC  CL31°END OR CANCEL INTERRUPT PENDING® 6 
t 
oC —s ILA" 268 | ¢€ 
MREQP OC  XL1"40! | 
DC CLZ5*REQ KEY INTERRUPT PENDING® 
'@ 
' 
NONE OC  CLS* NONE® .@ 
XMTMSG DC = CL23* TRANSMIT BLOCK ASSEMBLY* 6K! 
| gm 
: |e 
* CONSTANTS | 
* | © 
STATUS OC XL4*o008 
STSHDB OC XL4*00° 
oc = XL 2"008 | © 
ZERO. =(0C-~—sxt.-2* 008 
ONE 0C  x&2¢*O1* 
TWO DC = KL 2" 028 6 
THREE OC XxL2°03° 
FOUR OC  xXL2*06° | 
SAV1 DC XL2"008 \6 
SAV2. OC xL2*00* 
wORK 0C  XxL4*00" | 
WORK1 DC xL4*008 . © 
HEXFF OC XL2°FFFF® 
SWITCH DC = KL" 008 
HEX8O DC XL1°80° © 
SAVPSR DC —_ KL2" 008 
STATCA OC = AL2USTATCK) 
END7TA OC AL2(END7) © 
PROG ID 104-1| C 
PAGE i | 





18M MAINTENANCE DIAGNOSTIC PROGRAM 


1041 
ERR LOC 


105E 
1060 
1D62 
1064 
1066 
1068 
1D6A 
1D6C 
1070 
1074 
1078 
107C 
1D7E 
1080 
1D83 
1085 
1087 
1089 
1LO8F 
1095 
1096 
1D9F 
1DA3 
1DAT7 
10AB 
1080 
1086 
108A 
1OBE 
10C4% 


/DATE 


EC wa. 


5471 PRINTER KEYBOARD FAULT 


OBJECT CODE ADOR 
1A96 105F 
1AC7 1061 
1303 1063 
0000 1D65 
0000 1D67 
1305 1069 
1322 106B 
C2F2E4F3 106F 
C2F2E4F2 1D73 
4630C608 1077 
00044630 1078 
0300 1D7D0 
0000 LOTF 
O0186A 1082 
1458 1084 
1476 1086 
1466 1088 
4009C 5084040 108E 
C3C105C3C5D3 1694 
40C 505C 44040 1D9A 
000c0080 109E 
000C 0050 1DA2 
000C0060 1DA6 
00300008 1DAA 
O3D6E6C5D9 LOAF 
40E 2C8C9C6E3 1065 
8£320000 1089 
3E320000 1080 
D9C 5E3E40905 10€3 
1€30000C 10C7 
0001 
0002 
0004 
OA03 
0216 
022A 
O21A 
0222 
0008 
O21E 
0020 
oo01 
O2l2 
020B 
0010 
FFFF 
29AUGT5 OTNOVTS 
827804 827805 


STMT 


1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1710 
1311 
1312 


LOCATION DIAGNOSTICS MOD 12 


SOURCE 


AMSG15 
AMSG16 
ITtLv1 
KEEPL 
KEEP2 
AINCB1 
AINCB2 
B2U3 
B2U2 
STATFG 
DELAYC 
R1SAV1 
R2SAV2 
OLAY 
ADRSER 
TEMPAR 
TEM 
REQ 
CANCEL 
END 
STREQ 
STEND 
STCAN 
STLWR1 
LOWER 
SHIFT 
STUPPR 
STLWR 
RETRN 
STRET 
* 

* 

* 

XR1 
XR2 
PSR 
CRTNO 
LINK 
LOAD 
PRINT 
HALT 
ARR 
UNPACK 
PLIAR 
SSW1F 
TEST 
SBYTE3 
KY5D 


STATEMENT 

oc AL2(MSG6135-15) 
oc AL2(MSG136-15) 
oc AL2(CONSLE) 
oc XL2*0000* 

oC XL2*0000° 

oc AL2( INCB1) 

DC AL2¢C INCB2) 

oc CL4"B2u3!" 

oc CL4*B2U2¢ 

oc XL4*4630C608°* 
oc XL4*00044630! 
oc xL2°00° 

oc XL2*00°* 

oc XL3°00186A° 
DC AL2(SELECT) 
oc AL2(RESET) 

oc AL2(NOTRE1) 
DC CL6" REQ °* 
oc CL6*CANCEL®* 
oC Cl6é" ENC *¢ 
oc XL4*°000C0080* 
oc XL4*000C0050* 
oc XL4*000C0060°* 
oc XL4*00300008* 
Gc CL5*LOWER® 

oc CL6* SHIFT® 
oc XL4°8E320000° 
oC XL4*3E320000* 
oc CL6*RETURN® 
oc XL4*1C30000C* 
EQUATES 

EQU x*ol¢ 

EQU x*O2¢ 

EQU X*04* 

Equ X*QA03* 

EQU x*216¢ 

EQU X*22A¢ 

EQU x*2ia‘ 

EQU X*222° 

EQU x*08¢ 

EQU X*21E° 

£QU x*20° 

EQU x*o1e 

EQU x*'212° 

EQU xX* 208° 

EQU x*10¢ 

ENO 





PART NOw 4248250 
PAGE LlA 
PROG ID 104-1 
PAGE Lia 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


1041 5471 PRINTER KEYBOARD FAULT LOCATION DIAGNOSTICS MOD 12 


SYMBOL T LEN V 
ADRMSG A 002 
ADRSER A 002 
AINCB1L A 002 
AINCB2 A 002 
AMSGI15 A 002 
AMSG16 A 002 
ARR C 001 
B2u2 A 004 
B2U3 A 004 
CABL A 005 
CABLE A 005 
CANCAB A O11 
CANCEL A 006 
CANSW A 013 
CARD A 004 
CARDS A 004 
CHECK A 004 
CHECK? A 004 
CONSLE A 004 
CON1 A 004 
CONL1L A 004 
CoR A 005 
col A 003 
CRTNO C O01 
DELAY A 004 
DELAYC A 004 
DLAY A 003 
DOER A 003 
DOERL A 004 
See gic ae ee COLT A 005 
Dl A 004 
Dil A 006 
D2 A 004 
D22 A 004 
D3 A 004 
END A 006 
ENOCAB A 008 
ENDD A 004 
ENDG A 004 
ENDH A 004 
ENOL A 004 
ENOL1 A 004 
ENDL2 A 004 
ENOSIO A 004 
ENDSOR A 004 
ENDSTR A 004 
ENDSW A 010 
ENDX1 A 004 
ENDX2 A 004 
ENOX3 A 004 
ENDZ A 004 
ENDO6 A 004 
ENDO? A 004 
ENDO7L A 003 
ENDO72 A 004 
ENDO9 A 004 
ENDO91 A 004 
END61 A 004 
END66 A 004 
END7 A 004 
END7A A 002 
EOCSW A O17 
EXPSTT A 004 
El A 004 
FIRST A OO1 
FLAG A 001 


DATE 29AUG7 
EC NO. 827804 


ALUE 


1300 
1D84 
1069 
106B 
105 
1061 
0008 
1073 
1D6F 
172C 
1746 
1OTF 
1094 
196C 
16E1 
16E5 
1289 
1201 
1303 
1078 
1029 
1200 
1043 
GAQ3 
14A6 
1078 
1082 
L1LFT 
1LEF 
1205 
OAS8 
14C3 
OAGA 
1408 
OAA2 
1D9A 
1987 
14€3 
13CF 
OFDS8 
1549 
1545 
1509 
15F4 
14A2 
135F 
1901 
10E9 
10F8 
1107 
148A 
116C 
1125 
1143 
1134 
1116 
100A 
1187 
1074 
1199 
1050 
1AOA 
12a8 
0613 
1692 
LSFO 


5 


DEFN 


0816 
1278 
1269 
1270 
1264 
1265 
1305 
1272 
1271 
1131 
1134 
1159 
1282 
1157 
1117 
1118 
0794 
0803 
0884 
0592 
0567 
0736 
0576 
1300 
0953 
1274 
1277 
0733 
0731 
0804 
0060 
0960 
0065 
0967 
0080 
1283 
1260 
0969 
0878 
0531 
1001 
1000 
0984 
1051 
0947 
0839 
1152 
0630 
0636 
0642 
0938 
0683 
0654 
0666 
0660 
0648 
0624 
06390 
0591 
0697 
1263 
1165 
OTST? 
0122 
1869 
10646 


OTNOVTS 
827805 


REFERENCES 


0808* 
0888 
0830 
0833 
0728 
0742 
0547 
0600 
0606 
0582* 
0578 
1030 
0093 
0653 
0595 
0591 
0786 
0795 
1266 
0617 
0556 
07284 
0566 
1046 
0445 
0959 
O86T 
0739 
OT46 
0826 
0056 
0957 
0061 
0961 
0067 
0138 
1034 
0953* 
0862* 
0520 
0976% 
0986 
0988 
1009* 
0942 
0705* 
0623 
0625 
0631 
0637 
0865* 
0677 
0649 
0661 
0655 
6643 
0619 
0548 
0577 
05474 
0561 
0659 
0832 
01211 
0794 
03714 


0819 


0549 


0099 


0599 


0829 


0737 


1015 


0144 — 


0966% 
OB67T2 


1014 


0892 


0561% 
0587 
0550¢ 


0465 


CRONSS-REFERENCE 


0820 


O705 0846 0862 0942 0953 0976 1009 1038 


1028 
0600 0606 


07424 


1042 


1038% 1041 


08952 


1263 


0624 0630 0636 0642 0660 0686 0995* 10486 


{ f 


PAGE 


ie 
She 


C: 
SYMBOL T 


FLAGO 
FLAG] 
FLAG2 
FLAG3 
FLAG4 
FOUR 
Fl 

- F2 

. Gl 
62 
G3 
G4 
G5 
66 
GT 
HALT 


HEXFF 
HEX80 
<n 
t. H2 
H3 
~ INC 
& INCAOR 
INCBTO 
p INCB1 
. INCB2 
INCR 
v INCZ 
_ & Inc2 
INTPL 
ITLV1 
Il 
12 
13 
14 
Jl 
. J2 
t 93 
J4 
. J5 
&. KEEPL 
KEEP2 
-- KYBD 


ett 


LENGTH 

» LENL 

&. LEN2 
LINK 

, LOAD 

& LOWER 
MARK 


MARKO C 
« MARKL C 
“MARK2 C 
MARK3 C 
MARKS C 
-MARKS C 
Cc 

c 

A 

A 

A 

A 


PYeOOP LPP APPPPPPPPYPPPPP PP PP PPP PP PP PP OPP PPP PrPr PrP PPANQNAAM 


MARK6 
MARKT 
-MCAN 
MDATCK 
MDATE 
tu MOATP 


PROG ID 1041 Cioate 
PAGE 12 . EC NO. 


‘6 


LEN VALUE 


001 
001 
001 
001 
001 
002 
004 
004 
004 
006 
003 
004 
003 
006 
004 
001 


002 
ool 
004 
004 
004 
003 
00? 
004 
006 
006 
006 
006 
003 
015 
002 
005 
004 
004 
004 
004 
004 
004 
004 
004 
002 
002 
001 


001 
001 
001 
001 
001 
005 
001 


001 
ocl 
001 
001 
ool 
ool 
ool 
ool 
001 
ool 
001 
001 


0080 
0040 
0020 
0010 
0008 
1D47 
0680 
0896 
0c40 
oc2F 
ocs2 
oco7 
OCE9 
occ2 
ocB7 
0222 


1055 
1D57 
0D47 
0D67 
ODT7F 
10B1 
12E5 
1301 
1305 
1322 
1208 
10A0 
1067 
1996 
1063 
OE06 
OE3E 
OET4 
OE80 
OEES 
OECL 
OF33 
OF 50 
OFSC 
1065 
1067 
0010 


12FE 
1180 
124C 
0216 
022A 
1DAF 
15F8 


9080 
0040 
0020 
0010 
0008 
0004 
0002 
0001 
1c01 
1C6A 
1C2D 
1CA2 


29AUGT5. 
827804 


OEFN 


1065 
1066 
1067 
1068 
1069 
1253 
0163 
0169 
0228 
0224 
0233 
0272 
0277 
0267 
0264 
1304 


1258 
1260 
0314 
0323 
0329 
0612 
0807 
0817 
0818 
0825 
0738 
0606 
0588 
1161 
1266 
0375 
0391 
0406 
0409 
0450 
0441 
0470 
0478 
0481 
1267 
1268 
1311 


0815 
0715 
O755 
1301 
1302 
1288 
1055 


1056 
1057 
1058 
1059 
1060 
1361 
1062 
1063 
1233 
1218 
1211 
1227 


O7NOV75 
827805 


PART NO. MEpE eee IBM MAINTENANCE DIAGNOSTIC PROGRAM 


REFERENCES 


0624 

0371 0465 

0636 0995 

0642 

0660 1048 

0966 

0156 

0165 

0206 

0214 

0229 

0250 

0273 

0252 

0254 

0050 0104 

0931 

0981 0987 

0616 0831 

0309 

0315 

0324 

0594 0607 

0806* 0818 

0812 08304 
1269 

0817 1270 

0735 

0601 

0581 

0875 

0868 08694 
0363 

0376 

0460 

0370 0374 

0444 

0446 

0464 

0472 

0469 O477 

0810# 0824 

0818# G819 

0038 0092 

0912 

0804* 0805= 
0377* 0466% 
0072* 0210 
0081 0124 

0531 

0343 

0052* 0106* 
0648 0654 

10354. 

0863 0897 

O871 0896 

0052 0106 

0555 

0618 1035 

0648 1031 

0654 

0774 

0119* O157% 
0268* 0310% 
0905% 

0318* 0394 


PART NO. 4248250 
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CROSS-REFERENCE 


0630 


0149 


0833% 


0936 


0382 


0137 


0527* 
0225 
0171 


0151 
0685*# 


0151 


0401% 


0201 


0387 


0185 


O717*% 
0264% 
0279 


0196% 


O774 


0196 


0473 


0244 0303 0349 0437 0508 0529 0695 0918 


0390 0398 0405 


0233 O277 0290 0342 0423 0510 0870 0910 


0269% 0325% 0364* 0757*# 
0331 0356 0456 


0247* 0291% 0306% 0360* 0439% 0460* 0555 0618 
0834* 0863* 0871 0896% 0897 0956 0958* 1031% 


0247 0291 0306 0360 0439 0460 0956 0958 


PROG 10 104-1 
PAGE 12A 


SCCHEOCC CCC COSCO OC OC CHC COOL COOL ECE®S 


4 3 & @ & @ 
“SI 


ony 


| 
kG 


18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248250 «IBM MAINTENANCE DIAGNOSTIC PROGRAN PART NC. 4248250 
PAGE 13 oe PAGE 3BA 
1041 5471 PRINTER KEYBOARD FAULT LOCATION DIAGNOSTICS MOD 12 | | 1041-5471 PRINTER KEYBOARD FAULT LOCATION DIAGNOSTICS MOD 12 
CROSS-REFERENCE | os CROSS-REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES _, SYMBOL T LEN VALUE DEFN REFERENCES 
MEND A901 1€CB8 1230 0113% 01608 01726 _-PRINTE A 004 1388 0856 0846* 0853 
mMEQCP A OOl 1CDD 1236 O057* 0116 PRINTT A 004 1363 0846 0408 0480 
MODI & 001 1060 0584 05628 05729 | PRTMSG A 004 1159 0676 0667 
MOD2 A O01 1088 0597 0563 0573* PSR C 001 0004 1299 0884 09374 
MOD3 A 001 109C 0€03 05644 05740 PLIAR C001 0020 1307 0885 909% O911¢ 
KOC4 A 001 10AD 0609 0565¢ 05759 | REED A008 187D 1183 0367 
MREC A 0OL I6ED 1202 0996 1018 REP A025 1608 1115 0560 0570 
MRECS A001 18CB 1199  0997¢ 1017¢  -REPLCE A 004 OFDD 0547 0058 0063 0076 0078 0120 0125 0161 0167 0173 0211 0218 0222 
MREQE A001 1€49 1214 09048 7: 0226 0231 6258 0262 0265 0270 0275 0312 0321 0327 0368 0372 
MREQP A 001 ICFE 1239 0062# 0070* 0112* 0166 0380 0385 0388 0396 0403 0448 0467 0475 O876 0899 0906 0920 
MRET A O0Ol 1C€96 1224 0320% 03958 04748 Lo 0923 0993 0998 1024 1026 1032 1036 1049 
MSG A015 1885 1149 03432 ' REPOB1 A 006 OOBD 0357 0411 
MSGBL A 033 19FY¥Y 1164 0524 REPOC1 A 006 OEFC 0457 0483 
MSGCAB A 001 1740 1132 0220* 0224* 0260*% 0267 0326* 0367 0586 0687 0687* O875* 1023* 1030+* REP0B A 003 ODB8DO 0353 0412 
1034% ‘ REPOC A 003 OEEF 0453 0484 
MSGCEN A 021 19AB 1162 0498 REQ A 006 108E 1281 0039 0045 1019 
MSGDAT A 028 195F 1156 0635 REQCAB A 008 1974 1158 1023 
MSGFG A 045 1908 1163 0503 RESET A 004 1476 0933 1279 
MSGKY A Olo 1911 1153 0641 RESMSG A019 1890 1184 0779 
MSGL2 A 036 1943 1155 0647 RETRN A 006 10€3 1292 0292 0298 
MSGRD A 008 1AIA 1167 0224 0267 0326 RTNOL A 001 OAOD 0034 024 
MSGRES A 014 1718 1129 0195 0238 RTNO2 A O01 OAAA O0C88 0036 
MSGRSW A014 191F 1154 0629 RTNO3 A 001 0826 0133 0090 
MSGSHF A 012 178C 1140 0665 \ RTNO4 A001 OBAD 0181 0135 
MSGUCM 4 008 1A12 1166 0220 0260 RTNOS A G01 OCFS 0286 0183 
MSGO13 A 022 18F7 1151 0347 0432 ~ RTNO6 A OO1 OD8B 0338 288 
MSGO18 A 020 1AEA 1178 0784 ‘ RINO7T A 01 0F90 0419 0340 
MSGO19 A 020 1AFE 1179 792 | RTNOB A001 OF6C 0491 0421 
MSGO33 A031 ASE 1171 711 0712 0716 _~ RISAVL A 002 1D7D 1275 —0706* C835 0865* 0933 
- MSGO34 A 031 1A7D 1172 0721 0722® 0726 | R2SAv2 A 002 1D7F 1276  0707* 0836 0866" 0934 , aA een, 
MSGO35 A 027 1A99 1174 0752 | SAVPSR A 002 1059 1261 0884# 0937 
MSGO36 A 027 1ACS5 1176 0763 | SAVL A 002 1049 1254 —0552# 0683 0954# 0967 0977% 1000 
MSGO8B A027 1780 1139 0507 | \ SAV2_ A 002 1048 1255 0553% 0684 0955% 0968 
MSG12 A 052 17CO 1141 0965 SBYTE3 C 001 0208 1310 0410 0482 
MSG13_ A019 1703 1142 0916 , SELECT A 004 1458 0923 0925 1278 
MSG135 A 017 lAAA 1175 O727 O727* 0736% 0756 1264 ", SENSOR A 004 148€ 0942 1010 1039 
MSG136 A O17 1AD6 1177 0745 0745* O767 1265 . SHIFT A006 1085 1289 0186 
MSG14 A 049 1804 1143 0929 fr sia A 004 154D 1009 0054 0108 0153 
MSG141 A 035 1848 1181 0671 €. SIOA A 006 1598 1028 1020 
MSG142 A 042 1875 1182 0675 : ; S1as A 006 1582 1034 1629 
MSG15 A028 1850 1145 0045* 0049 0099% 0103 0144* 0148 0298% 0302 1019 1028 _- SIORT A 004 138C 0862 0080 0122 0169 0329 0406 0478 
MSG16 A016 1860 1146 0039* 0043 0093* 0097 0138% 0142 0186* 0190 0292% 0296 : C $10S A 004 15€3 1038 0204 0248 0307 ©6361 0461 
MSG17 A 019 1A2D 1168 0200 0427 | $101 A 004 1381 0871 0874 
MSG18 A O17 1LAZE 1169 0243 0436 ) «~ $102 A 004 1551 1010 1016 
MSG19 A035 1883 1147 0605 | | C0 $104 =A 004 15C7 1039 1043 
MSG20 A 035 18A6 1148 0611 : $109 A004 1591 1026 1022 
MSHIFT A 001 1888 1196 0230* 02748 ' SSW1F C 001 0001 1308 0410 0482 
MSTRB A OO 1C1E 1208 0992% 10458 C STATCA A 002 105B 1262 0548 
MSTRBS A001 1CO7 1205 10449 —SSTATCK A 004 1190 0705 0528 0690 1262 
MSWARN A 04@ 1834 1144 0694 » STATFG & 004 1077 1273 0526 
MUCM A 001 18A0 1192 0215* 02552 0447¢ \ STATUS A 004 1037 1246 0055 0060 0065* O06 0048 0073 061069 O110 114 Gil? ©0123 0154 
MXLAT A OOL ICTF 1221 03114 04029 6155 6158 0163 0164 01706 0620" 0207 O208 6213 0216 0228 0249 
NEXT A 004 13F2 0892 0890 ; 0251 0253 0256 0272 0308 0314 ©0316 ©6323 6362 0365 0375 0378 
NEXTL A 004 1402 0896 0894 G G38S 0391 0392 0399 0441* C4£2% 0443 C6462 0463 0470 0471 95118 
NEXT2 A 004 1418 0902 0898 0908 | 05i2* 0513 0515 0517 0519 C71G O712 OF20 O747 0768% 0769% 0770% 
NEXT3 A 004 1432 0909 0903 i 0785 0847 0886* 0887* 09062 943% 09448 1945% 09846*% 06985 0989 0990 
NEXT5 A004 1400 0899 0901 - & 1011 1021 1040 
NONE A005 1D1C 1241 0802 0828 | STCAN A 004 1086 1286 0107 
NOTRES A 004 1440 0913 0889 0891 0922 STEND A 004 1DA2 1285 0152 
NOTRE] A 004 1466 0926 1280 {. STLWR A 004 1080 1291 0246 
OME £002 1041 1250 0805 0873 0960 | STLWR1 A 004 DAA 1287 0357 0457 
PRINT C 001 O21A 1303 0040 0046 0094 0100 0139 0145 0187 0192 0197 0235 0240 0293 _¢ STREQ £004 1092 1284 0053 
0299 0344 0424 0429 0433 0495 0500 0504 0521 0557 0567 0583 Costret 004 10€7 1293 0305 
0596 0602 0608 0620 0626 0632 0638 0644 0650 0656 0662 0668 | STROBE A 006 14E7 0976 0234 0278 0330 0407 0450 0479 1013 
0672 0679 0688 0691 0713 0723 0753 0764 0776 0761 0787 0789 | ¢,STSHOB A 004 1036 1247 —0053# 0066 0107* 0152* 0203¢ 0246¢ 0305* 0357* 0358% 0359% 0440% 04579 
0799 0813 0837 0913 0926 0962 G 0458% 0459% 0526% 0720 0722 0743 OTS8 0771* 07728 0773* 0793 08649 
! 
DATE  29AUG7S  OTNOVTS PROG ID 1os-1! Cate 29aue7s —ornov7s PROG ID 104-1. 
EC NG. 827806 827805 PAGE 13 | EC NO. 827804 827805 PAGE 134 
| 
| 
| 
t 
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SYMBOL 


STUPPR 
$T1 
SWITCH 
SYNCP 
SYNC3 
SYNCS 
TABLE1 
TABLE2 
TABLES 
TABLE4 
TABLET 
TEMPAR 
TEMI 
TEST 
THREE 
TST 
TSTBTO 
TSTR 
TST2 
TwO 
UNPACK 
UVWXYZ 
WORK 
WORK1 
XMTBLK 
XMTMSG 
XR1 


XR2 


ZERO 


5471 PRINTER KEYBOARD FAULT LOCATION DIAGNOSTICS MOD 12 


T LEN VALUE 
A 004 1089 
A 006 14F7 
A 001 1056 
A 004 136E 
A 603 OF90 
A 004 OF93 
A 001 15F8 
A 001 1629 
A 001 1657 
A 001 1685 
A016 16C2 
A 002 1086 
A 002 1088 
C 001 0212 
A 002 1045 
A 003 107C 
A 003 12F3 
A 003 11Fa 
A 003 1051 
A 002 1043 
C 001 O21E 
A 001 OAO0O 
A 004 104F 
A 004 1053 
A 001 15FA 
A 023 1033 
C 001 0001 
C 001 0002 
A 002 103 


OEFN 


1290 
0980 
1259 
0849 
0510 
0511 
1074 
1084 
1094 
1104 
11lil 
1279 
1280 
1309 
1252 
0593 
0811 
0734 
0580 
1251 
1306 
000s 
1256 
1257 
1070 
1242 
1297 


1298 


2249 


REFERENCES 


0935* 
0203 
0982 
0551% 
0851 
0516 
0514 
0351 
0451 
0352 
0452 
0732 
0911 
0909 
0409 
0550 
0592 
08034 
0731 
0579% 
0737 
0708 


0747 
05494 
0075* 
0682 
0351 
0576 
0793% 
0954 
03524 
0553 
0733 
0820 


0946% 
0440 


CROSS-REFERENCE 


09784 


0616* 0729% 0740 0744* 0780* 0831% 


0855 
0516 


0481 
0895 
0613 
0825 
0738 
0589 


0718 


0748 
0554 
02214 


0353 
0580 
O795 
0967 
0354 
0578* 
0733 
0821 


06134 
0825 
0738% 
05892 


0749 


O751 
0867% 
02614 


0353% 
0593 
0796 
0977 
0354* 
0582 
0736 
0823 


TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 


DATE 
EC NO. 


, 4 g a 


29AUG7 
827804 


5 


O7NOVTS 
827805 


0614 


0590 
0760 


0758% 
0873* 
0676 


0358 
0615 
0797 
O97T9S* 
0355 
0588 
07944 
0824*% 


0759% 
0678* 


0375 
0615* 
081 
O981% 
0359 
05884 
0804 
0828 


0762 


0451 
0666 
0827 
0983* 
0362 
0591% 
0806 
0836% 


08494 


0453 
0683 
0827 
0987 
04524 
0595 
0807 
0866 


0850 


0453% 
0706 
0835« 
1000% 
0454 
0612 
O807* 
0934% 


0852 


0458 
07308 
0865 


0454 
0612s 
080s 
0955 


09594 


0463 
0734 
0892 


0455 
06844 
0809 
09684 


PART NO. 


PAGE 


0960 


0552 
07432 
0893 


0459 
O7T07 
08092 


05542 
0785% 
0$33% 


0462 
07324 
0810 


PROG ID 


PAGE 


4248250 


14 


104-1 Coare 


14 


|e 
| 
| 
| 
| 
| 
| 
| 
| 


| 
| 
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THE CHARACTER 
ck 


GBK GBD PN 42 


ra eeore 


‘T#-Y¥ 2000 B-4 


" T4-25= OCGLE)XSB 
(" 14+-DOH3S GL-20 + 
Creo man 6mons 

_ T4-ZWDBMAPA3=] £0 
Cc te-_s- >a cM 
© t+->#(3U-GL-20a0 
Cr4-20 ta & soapas 
C2 1+-oKOH*BH/CW < 
© re-1 (C2HAAaBGC "4 


© 'r+-2n760 1<& <B 


i : . 
Co re-3ccmHecL GLL 


| Gre-seeamerriscry 


Cr+-49¢ MOQN17COH* 


C1e-sacrvapal “one 


© 14-62 VEOH®| 7K 


— Cr—754-pas-Har-a 


{ ° 
Crest s_ one! 7K 


Co 1+-9-(hesgacc 84 
Crs: spt scevaral 


29AUGT75 


EC NO- 827804 


' 
@ 
‘ 


t 


48249 EC 827805 


AAG F 8D,3D 
GEMG9EA4Ta/ -1E0 
@PA3=aY*D 1 B4KLC5 
BFUHEFF &000EFDO 
*2C/ GL=2D GaPA3 
ONIGEOH*BFUHEFF 


Q@PAZJ+A )(*@HEACL 


HOH*#{7E- VJECIL 


}+ 1690H#NO36+GLL 


D <ALSSF/H: JP 


GE+~ /OHE &-8PFIC 


20B<aPA>—1P8 31 2H 


ae JI<OH*] 7K tT 
BFUHEFF &1LEQEFDO 


I7&- C-<GL-2DAU 


ZBG083 /1LXOHF 


CHOBE-OCGL31D/0 


?HGSCZ E=X /0* 


H C2/43 /0")1C 


"OH*I7E- {HGC<B 


O7NOVTS 
827805 


5471 PRINTER KEYBOARD FAULT LOCATION OIAGNOSTICS MOD 12 


OBJECT CARD LISTING 


PRINTER/KEYBOARD 


<AJ/PGQ# /OHEE/ 


*7*BGC'4< 8-A4 


GLL2 E*: JP2O0H* 


V<BG /YFGA/E0H* 
1+B )("HEACI*G(G 
El OEFDOMWEBG /Y 


*6<T /O"I3C +D 


3D <Au/PGS$P /0H 
2-ND8-A44+¢ H) (aH 
20H®17K-  -OGE3M 
XOH*BF-OJFT# /0H 
AA@BGC'4D. <Al* 
BGLP2D %aPA>soHs 
)0aBG /YFGA/EOH* 
8BA47a/ GIEOSY7H 
BE-E CZC3D <AAS 


GLY . + #HAP 


vA @Yis_& GLS 
@Y)B+ -)(3UDGL-~ 


GO83 /1LXOH*LOaB 


EFTO_DU3 /0")H 


MoD 12 
CCACBC MOLA6+0H* 
Tas slEO#"Z—B6C"4 
17Ke 2BGC'4D Cc 
BH/CC+2 N= OCGLZ 


"7O")C ONSLTC- 
FGA/E0H®BH/CD+2- 
1(3W GLx2D eaPa3 
E&/ QQACWOH*BF-D 
&B30_DU3 /O"}A 


SD**< 1486848HAP 
SF/H: JP: 0H®|7K- 
I76Y 1<&aaBGEs~ 
BH/CEC <)417Ge2" 
GACI#GI18 s0")C 
>GE® /OHESVDO* 1C 
BOH*NORS AS&aYD 
2-t aHAF e+ DICH 
2DAHaPA2S FECeVZB 


G /H8 GH.GA (738 


PART NO. 
PAGE 


INDICATES A BLANK COLUMN AND THE CHARACTERS D E fl INDICATE NUMERIC SHIFTe 
1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 


84aa84aa 

BF=Q*FEC /OHSD<H 
< #-AGece 106 
"11 4¢<OH*BE-H B2$ 
)ZZBGEM4BCAST#R- 
-GL> D HOOH#I7&- 


N= OCGL2Z)V2Z8CEM4 
<OH#17E0 <BGD80 
+E1 Z@HAPSOH*BF—Q 
“4H )CIHEH3ISES | 
B+ H) (sHEB31SF ST 
80HtN034=GLL 2-ND 


TO_DU3 /O0*)A 


JOHOAQ (S*<E CR 


N=<BGE#<9 147a/ 
” 19094 1HADLO_oUO 
FOH*BH/ CFO-ON=3H 
ZIB4KLCUAGL=20A 
EBZBGC'4H C2754 
GC*4< C2s2Mo 14 


GC$ G- *Zal OH* 


4248250 
14A 


CL 81 THROUGH 96 


10410000 
#HAM EC-10410001 
8aYD 8TZ10410002 
3D. :4810410003 
1("H 85810410006 
* <p 9010410005 
BDAS G,010410006 
8DA4 P$D10410007 
LFS4 =2410410008 
076 42410610009 
"0a *~810610010 
8 J4 0HD10410011 
"¢ ® 2-¥10610012 
-E~- 1K#10410013 
11E0 PC-10410014 
<Al® 2AQ10610015 
BEVG KJ 10410016 
<al® P.¥10410017 
8 /4 &B 10410018 


Ta/ = =PGM10410019 


BFUD 14210410020 
PROG ID 104-1 
PAGE 14A 
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1041 
CL 2 THROUGH 16 


T+-#OD1Y_D<— /0H 
T+-aJOL1*F:C 70° 


Te-'<eee( (D4 
T#-=GOY*<OHFLT<B 
T+-"BEBC /OHSD<T 
T+""C OCGLZ))30 
T#/ 8 J5SL¢S N=IH 


T#/A3DHZa-JB*) HD 


T+/8>0-HO9L OADGS 


“== —T4 /CZFHSS E+ AA 


T#/0UGAP9aZ HOH 
Te/Ex+ HN={HEB<B 
.4/FE+ODN=3BG6 /D 
T4/GN 4BA(S( DO 
T#/HEFYH=FX4<C1D 
T4/1.0B J'36 GNS 
14/HF ADD IBOKL 0 
T+/.A JP8aZ HOHE 
14/03 PX" @HEB<B 


Tes/<T-6 <6GD 2H 
T#/02C OLAASZC~ 
Te/#_DASIOI L$T- 


DATE 
EC OG. 


29AUGTS 
827604 


5471 PRINTER KEYBOARD FAULT 


CL 17 THROUGH 32 


E— MHO*aBG /YFDUY 


1B O:*M9@HAEST 
** aa 6aYDK4U N=LO 
GE+3 /1(TOH*BDT- 
30 D0D145<AD) (3- 
-DS7 /1F)OH*BH/ 
EH*BG /YBFUSSC D 
&,P4 7HAHAHBESO 
8 C2UBa% 1$/ <B 
‘DG7 HAA@4—DAC-_ 
BFYD*#FN@BHAPSaZ 
G /DADSYH+ -N==H 
AE143( 6D KLMBGMZ 
IALEBGP™ /OHS U6 
ZFOY< JHCGN@a AS 
2-J-< JHCGOGB J4 
“GHO)4+C> G3 /OH 
BFYHLF9 @ ASOOH* 
G /DAAS4*1) OK*BO 
< A5xXD>#{_J< GO 
IN/5POB KD OADOE 


HGM®2U ~3FOC /1( 


OTNOVTS 
827805 


LOCATION DIAGNOSTICS MOD 12 


OBJECT CARD LISTING 


CL 33 THROUGH 48 


=OH*BH/CG+2 N= 0 
3 /ED4-DA8-HA?32 


-0$7 /0")8 aye 
A -? D #a0H#+#0S 
HGL+ U =LI#0) (38 
<OH*#BH- 4BAF*#C 0 
JS/5)1 DEQCOADHE 
@ JAK; Baz & & 
G /YAA/$/C&<08N5 
IN/SPOB &3C-HEST 
HOH*®BFYDEF JD8DAP 
EB<BG /DACA3<; O 
#G1P8+"aN=cOLE4 
GFVY< AZ3GLS$ /0H 
00-D)(COAD=78 /E 
SIH IN-OLF_MES3B 
3 JS<FZL /OHE-SO 
BFYHMF>»8 J4saye 
“p2e C- K"/5a. 
5 /< 28D avDC?0. 


VE32"E=-5 35°( EH 


>0H*® CEHD'H:-—aP 


CL 49 THROUGH 64 


CGLE)>L LGLHODUS 
” OHDBE-OCGL2)0/0 
Z+ -)(3UGGL~+2DAH 
“wan” /OHEE/MRDIC 
ACO *11460HDUCS 
JS/5$( —)MOBADRO 
@ J*! D&,~HGFSB 
P. C /OHE KMPEIH 
3a-DHOH*BF-DTFH< 
2U T /OHE-EYR LS 
992 HOH*BFYDUFH< 
“az COHeBFYE( F4? 
PESBG /DKOHSUxeB 
E-JaEPTO+0$7 /OH 


28-#B; @Z «. D 
GDsa< ASKGLES-AS 
EST?"GL087144+0D 
JOHSBFZ. /OHE-/& 
K90CS - 4 /< 8-H 
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‘tt TBM MAINTENANCE DIAGNOSTIC PROGRAM PART NG. 2589911 “**" TBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589911 | 
¢ PAGE 3 © PAGE 1A 
10F2  10F ~ 5471 PRINTER KEYBOARD SYSTEM TEST MODULE ° 10F2 =10F - 5471 PRINTER KEYBOARD SYSTEM TEST MODULE 
€ ERR LOC OBJECT COLE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
{ 
c 2 DECK 1 eC OADA 0000000000000000 OAE1 54 =L(G2 OC XL8°O# SENSE DATA AFTER ERROR BEFORE LAST 
0A00 3 START X*O0A00* OAE2 40 OAE2 55 oc XL1°40# 
; & SERERERKKSESEARKAREKAKAKSESRSERKKRAASERSKSEKAKSEKAKEAKAKKKEKAKEKSEKREKKKERKKEKK ESE | OAE3 O08 OAE3 56 BC ILi¢ee { 
Cc 5 * * o OAES 0000000000000000 OAEB 57 =LOG1 OC XL8*O? SENSE DATA AFTER CAST ERROR | 
6 * SYSTEM/3 PRINTER KEYBOARD SYSTEM TEST MODULE * OAEC FF OAEC 58 oc XLL°FES 
wea *x x | 59 i 
cf : VWRERMKHKKRKKKEKRHR KKK AKKKRKRKKKRKKKRKKRKHEAMKAKKHKKEKKHKKKKRKAKKAHERHKKKKEKKKSVRKKEK | oO 60 CRESS EESEKAERASS VESEEASERAKESERELEREESK EERES EHLERS EEEAEEEERESEEREEERED ‘ 
9 eS ROUTINE 01 - 5471 SYSTEM TEST MODULE * 
OAO0O 10F2 GAOL 10 OC XL2*10F2¢* Ss Pp | 62 FERSTRERE EHS RAE SELES EREAEERERELERAE SHEERS RARGHSE SEEEERE SESS O4EE EREERS i 
©: 0A02 CO OAO2 11 DC XL1"08 E R | © 63 * . i 
OAC3 00 0493 «12 pc XL1*0# . Cc E 64 * THIS ROUTINE ENABLES THE KEYBOARD, TURNING ON THE ~PROCEED- * t 
0A04 0000 CAO5 113 DC xL2'08 T F [rors 65 * LIGHT. KEVED CHARACTERS ARE PRINTED WITH THIS DEVICE. THERE IS * 
x OA0E OAED AGT =«14 Dc AL2(RTNO1) I A eo 66 * NO RESPONSE TO THE FUNCTION KEYS (EQ, CAN» AND END KEYS) * ; 
" OA08 OAOD OA09 15 DC AL2(LCGOUT) 0 Cc 67 * . 
CADA 101000 OAOC 16 DC XL3°1010008 N E 68 KURSK AEERSEAEERARESERERERERERERESARRSE THEBES ERERGEEEKEER KE EERE KERERESED i 
Cc 17 |G OAED O1 CAED 69 RTNO1 DC XL1°O1° ROUTINE PREFIX 
OAOD 80 : OAOD 18 LOGOUT DC XL1*80* LOG-OUT AREA *#*¢84584¢0% | OAEE 00 OAEE 70 OC XL1*0F | 
ai OAOE 15 OAOE 19 pc ILit2i¢ * OAEF FFEF OAFO 72 oc XL2°FFFF® 
'C CAOF F5F4F7F140D709C9 0A23 20 DC CL21*5471 PRINTER KEYBOARD® . Oe 72 
OA17 05E3C5094002C 5E 8 20 OAF1 F2 87 12 | 73 BEGIN J ENAB 
OALF C2D6C1D9C4 20 | OA=4 OC O07 OADT OAE1 74 ERREC MVC £EL2G3‘8),ELOG2 PUT STATUS IN ERROR RECORDING 
c: 0A24 80 OA24 21 DC XL1"80° | O OAFA OC C7 OAE1 OAEB 75 MVC = ELOG2.:5),ELOG1 TABLE | 
0A25 OB OA25 22 DC ILi‘1ie L.. OBOO OC 07 OAEB 0A99 76 MVC =FLOG1(8),L061 i 
" ©A26 D3C1E2E340F340E2 0A30 8 23 DC CL11*LAST 3 SIOS* 2a OB06 CO 87 OBES 77 ENAB B 20510 GO ENABLE KEYBOARD, SET PROCEED LITE i 
€: —-OAZE -CED6E2 23 | @ — 080a 2013 oB0B 78 DC =—_- Xt 2"120138 
0A31 40 OA31l 0.24 DC XL1"'40* OBCC 38 01 0A93 79 TBN L0G61-6,X*01° BRANCH IF NO KEYBOARD CHECK t 
©A32 02 OA32. 25" DC ILit2e | 0810 F2 90 OA 80 JF CKXCK i 
C 0A33 0000 0A34 26 S103 OC XL2"08 | Oo 0813 CO 87 0222 81 B HALT *KEYBOARD CHECK I 
0A35 40 0A35 27 oC XL1"408 | 0817 1001 OB18 82 Dc XL2*1002° i 
vas OA26 02 OA36 =. 28 DC IL1*2¢ 0819 CO 87 OAF4 83 B ERREC { 
Cc 0A37 0000 0A38 29 S102. OC XL2*0# le OB1D 38 02 0A93 84 CKXCK TBN LOG1-6,X*02* BRANCH IF NG TRANSLATOR CHECK : 
0A39 40 0A39 = 330 DC XL1"40° | Or21 F2 90 OA 85 JF CKRET i 
OA3A 02 OA3A = 31 DC IL1*2" 0824 CO 87 0222 86 8 HALT *KEYBOARC TRANSLATOR CHECK i 
c 0A3B 0000 OA3C 8=— 32. SI1G1_~—s«éOOL” XL2¢*0# oC 0828 1002 OB29 = 87 oc XL2'1002° 
OA3D 80 OA3D 0s 3333 Dc XL1"80° iy 082A CO 87 OAF4 88 B ERREC i 
OA3E 3D OAZE 34 DC IL1*61° ie OB2E 38 OC 0A93 89 CKRET TBN  LO0G1—6,x*0C® BRANCH IF NOT RETURN KEY i 
C OA3F E2C505E2C540C4C1 CATO 35 DC CLSO*SENSe DATA AFTER LAST 3 INTRPTS (IN Q CODE ORDER 1° ' © 0832 F2 90 OA 90 JF CKDAT 
OA47 E3C140C 1C6E3C 5D9 35 0635 CO 87 OBES 91 B DOSIO GO DO CARRIAGE RETURN 
OASF 4003C1E2E340F340 35 | 0B39 1845 OB3A = 92 DC XL2°1845¢ . 
© CA57 CID5E3D9D7E3E240 35 1 @Q 0838 CO 87 OB6A - 93 8 CKPERR i 
CASF 40C09D540D840C3D6 35 | OB3F 38 60 0A93 94 CKDAT TBN  LO0G1-6,X*60* CHECK FOR i 
OA67 C4C540D6D9C4C5D9 35 0843 CO 10 0B06 95 BT ENAE END OR 
© OAGF 40F1 35 | @ 0B47 38 50 0A93 96 TBN LOG1-€,x*508 CANCEL 
OA71 FI6BFIF36BF1F96B OATB 36 DC CL11%1913015518)* | OB4B CO 10 0B06 97 BT ENAB KEYS 
OA79 F1C25D 36 OE4F 38 08 0A93 98 TBK £0G1-6,x*08" 
e OATC 40 OATC 837 oc XL1*40* © 0B53 F2 10 OA 99 JT ISDAT 
a OA7D 08 OATD 38 DC IL1¢e¢ 0B56 CO 87 0222 100 B HALT *NO STATUS BIT TO DEFINE INTERRUPT 
-  OATE GOOCOCOOCOCOOD0C 0ABS 39 LOG3 OC XLB'OF SENSE DATA FOR LEAST RECENT INTRPT has OB5A 1011 0858 101 oc. XL2°1011° ; 
e OA86 40 OAB6 = 40 DC XL1*40* 1 0 OB5C CO 87 OAF4 102 8 ERREC 
OA87 08 OA8S7T = 41 DC IL1*s¢ | CB60 31 18 0A93 103 ISDAT LIO LOGI—6,x*188 LOAO CHARACTER TO BE PRINTED 
CA8B 000000000000D0CO OABF 42 LOG2 DC XL8'O# SENSE DATA FOR INTRPT BEFORE LAST 0864 CG 87 OBEB 104 B DOS 10 PRINT LAST KEYED CHARACTER 
© OA90 40 CAIN = 43 oC XL1°40* © 0868 1885 OB69 105 DC XL2"'1885° 
0A91 08 OA9l §=— 44 DC ILitse | OB6A C2 02 07D0 106 CKPERR LA 2000yXR2 
OA92 000000U000C00000 OA99 «= 445 LOG] sé XL8*O# SENSE DATA FOR MOST RECENT INTRPT | OB6E 39 1B OCTE 107 KPSNS SNS  STATUS»X*18 SAVE STATUS 
e OASA 80 CAIA = 46 oc XLitsoe oC OB72 38 10 OCTE 108 TBN STATUS»X*10° CHECK FEEDBACK SH ON 
OA9B 32 CA9R 47 oC IL1*50° OB76 F2 10 07 109 JT SUB 
OAIC E2C5D5E2C540C4C1 OACE 48 DC CL50"SENSE DATA AFTER LAST 3 ERRORS (SAME Q CODE ORDER)® OB79 38 04 OC TE 110 TBN  STATUS,X*"94¢ CHECK LONG FN S® ON ' 
e OAA4 E3C140C 1C6E3C5D9 48 oC OB7D F2 90 23 111 JF CKFD CONTINUE TF NOT ON i 
Fed OAAT 4003C1E2E340F340 48 ne OB80 36 02 0C80 112 SUB A CNE,XR2 WATT 100 MILLISECONDS 
OAB4 C509D9D6D9E2404D 48 OB84 CO 01 OB6E 113 BNZ KPSNS FOK FD OR LN FN TO DROP 
@ OABC £2C104C5400840C3 48 | e@ 0886 38 10 OCTE 114 TBN STATUS,X*10° CHECK FOR FEEDBACK HALT 
: OAC4 D6C4C540D6D9C4C5 48 OB8C F2 90 OA 115 JF CKFOL 
OACC D95D 48 OB8F CO 87 0222 116 B HALT “FEEDBACK SWITCH 
- @ OACE 40 OACE 45 oC XL1*40* @ 0B93 1005 0894 117 pc XL2°1005° 
: OACF 08 8acE 50 DC ILitgee 0895 CO 87 OAF4 118 8 ERREC 
é OADO COCKODOCOCOCOD0S CAD? 52 ELOG3 DC XLetor SENSE DATA AFTER LEAST RECENT ERROR 0899 CO 87 0222 119 CKFD1 8 HALT *LONG FUNCTION SWITCH 
© OADS8 40 CAaDB = 552 DC = XL1"408 oO CB9D 1006 OB9E 120 oc XL2°1006¢ 
OADS 08 CADS) = 53 DC Tultee OB9F CO 87 OAFS 121 8 ERREC 
@ @ 
aa, DATE 23JUL69 14NDV69 20JAN70 O6APRTO PROG ID 010F-2 DATE 28JUL69 14NOV69 20 JAN70 O6APRT70 PROG ID 010F-2 
. EC NO. 816444 816555 . 816576 616684 , PAGE | EC NO. 816444 816555 816576 616684 PAGE 1A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM | 


PART NO. 2589911 
¢ PAGE 2 
e 10F2 1OF - 5471 PRINTER KEYBOARD SYSTEM TEST MODULE 
be ERR LOC OBJECT CODE ADDR STMT SQURCE STATEMENT 
Cf}: OBA3 38 O1 OAIT 122 CKFD TBN LOG1-2,X*9O1* 
OBA7T F2 90 OA 123 JF CKPRX 
OBAA CO 87 0222 124 8 HALT *PRINTER MALFUNCTION 
Cc OBAE 1003 OBAF 125 oc XL2*1003* 
OBBC CO 87 OAF4 126 8 ERREC 
OBB4 38 02 OAYT 127 CKPRX TBN L061-2,X*02* 
€ OQBBS F2 90 OA 128 JF CKNPC 
O0BBB CC 87 0222 129 8 HALT *PRINTER XLATOR CHECK 
OBBF 1004 osco 130 oc xXL2*1004* 
Cc OBC] CO 87 QAF4 131 8 ERREC 
OBC5 38 20 COAST 132 CKNPC TBN L0G 1-2-X*208 % 
sth 08C9 F2 90 OA 133 JF CKEOL 
Cf} osecc co 87 0222 134 B HALT *NON-PRINTABLE CHARACTER 
: OoBDO 1008 OBDI 135 DC xtL2*10088 
QBD2 CO 87 OAF4 136 8 ERREC 
gS OBD6 38 08 OASD 137 CKEQL TBN LOG 2—2,X*08* 
OBDA CO SO OBD6 138 BF ENAB ‘ 
OS8DE CO 87 OBES 139 B oGSsSIO GO TO NEXT LINE IF END OF LINE 
G OBE2 1845 - OBE3 140 oc XL2*1845°* 
OBE4 CO 87 OBEA 141 8 CKPERR 
142 
e 143 **SSReORK : REKKSERESKS 
144 « DOSIO SReRKESAEEEKERKKEKEKSEKKLESEKESK SEKKHKKESKKKSSAKKAKKKSEAK KAKA DOSIO * 
ban 145 ##24%%% s ee ke SE 
Ce 146 * * 
i47 * SUBROUTINE TO ISSUE START 1/0 10 PRINTER KEYBOARD AND WAIT FOR * 
148 * INTERRUPT. LINKAGE IS AS FOLLOGWS—— * 
© 149 * * 
150 * B DOsIa * 
151 * DC 2eX*Q BYTE FOLLOWED BY R BYTE® + 
e 152 * 
153 MRK RERACKRAKHK KKKKAKEAREEKRKKSRKAKKSKARKERKHKA.AKEVK ECEKEAKKEKRKSL SREESESRESKEEKSESE 
OBES 34 O08 0C23 154 DOSIG Sst CKEXIT43,~-ARR SAVE RETURN ADDRESS 
CC}: OBEC 35 01 0C23 155 L CKEXIT4#3,XR1 POINT AT PARAMETER 
OBFO 1C Ql OC1T7T OL 156 MVC S$1042€2)41¢,XRL) SET UP COMMAND 
OBFS GE O01 0C23 OCTC 157 ALC CKEXIT¥43(2),TwWO ADJUST EXIT AODRESS 
Ce OBFB 35 CO OC82 158 L IT1LADDR,X*co# PREPARE FOR INTERRUPT 
; OBFF 3C FF 0C32 159 MVI FLAG, X* FF? 
2 6GCO3 OC O01 GCA34 OA38 160 MVC $1032) 2SIG2 PUT COMMAND IN PUSH-DOWN TABLE 
©} OCO9 OC 01 OA3B OASC 161 MVC $1022) ,SIOL 
ae OCOF OC O1 OASC OC1T 162 MVC $10102)},S 1042 
i 0ci15 F3 00 OO 163 SIO S10 Re g KE ISSUE COMMAND 
S Oc18 35 CO O0C82 164 INLOOP L ITLADDR, X*Cot LOOP UNTIL INTERRUPT OCCURS 
0cic 30 00 0C32 165 CLI FLAG,x*oO* 
oc20 CO 81 0000 166 CKEXIT BE *-% EXIT SUBROUTINE WHEN IT DOES 
@ 0C24 3D 10 CAO0O 167 CLI X*A00*,X*108 TS THIS MODULE LOADED DIRECTLY BY 
OC28 CO O1 OAOA 16% BNE X*AOA® DCP, KEEP CONTROL 
: oc2c co 87 0Cl18 169 B INLGOP 
@ 170 
17] *xten4%4% *EKE4RSESSSR 
172 * I1RTN FERKEKEKKKESKKKSE EH SAKRSEKSERKEEKESEKAKELKHEKEKSE $C" KEKEKCEKCKAKEKK ILRI™N * 
@ 173 *5¢%xe444% SER 4ERKSE 
eehek 174 * * 
; 17s SUBROUTINE TO HANDLE CEVEL 1 INTERRUPTS. ALL STATUS INDICATIONS «* 
@ 176 * ARE ALSO STORED. * 
177 * * 
7 178 SEESCKE SLA KAASKSERAKSLRE SES SERKESKERKEKEELKAKAKK EK KSKSEKCKES FKKEKAKEHKEEEAESE 
e 0C30 9000 0C31 179 PSRSAV DC  xL2to# 
0C32 00 O0C32 180 FLAG DC XL1°0° 
0C33 34 04 0C31 181 ILRTN ST PSRSAV,X*04¢ SAVE PROGRAM STATUS REGISTER 
@ O0C37 3C 00 0C32 182 MVI FLAG» X#0*# 
OC3B OC O7 GA&SS OASF i183 MVC L0G63%8),LOG2 PUT STATUS IN PUSH OCWN TABLE 
0C41 OC O7 OASF OCAZS LR4 MVC L0G62(8),L061 
e@ OC4&7 30 11 0A93 185 SNS (LOG1-6,xX"211° 
bg eh O0C4B 30 13 OASS 186 SNS LOG1—-4,X*138# 
OC4F 30 19 OAODT 187 SNS L0G1-2,X*19? 
Se 0c53 36 18 OASD9 188 SNS LO0G1,K*16* 
189 
Ss . 
DATE 283IUL 69 14NO0V69 26JAN70 OGAPRTO PROG ID O1GF-2 
EC NOW 816444 816555 . 816576 816684 PAGE ; 2 
 ©@ 
‘ .¢@ 


eF 
ae 
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© 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


10F2 
ERR LOC 


ocs? 
OC5B 
OC 5F 


0cé3 
Océ? 
OC6A 
océD 


oc71 
ocTs 
OCT? 


OCc7B 
oc7D 
OC TF 
ocsl 
9ce3 


DATE 
EC NO. 


10F -- 5471 PRINTER KEYBOARD 


OBJECT CODE 


co 
co 
35 


35 
F3 
F3 
co 


co 


80 
87 
60 


04 
10 
18 
87 


87 


1012 


co 


87 


0002 
0000 
0001 
0c33 
oc7i 


OC5SF 
0Cé63 
0C 84 


28 JUL69 
816444 


ADDR STMT 


OcTé 


oc7c 
OC7TE 
ocsec 
océ2 
OC84 


0001 
0002 
0008 
0222 
OAF 1 


14NOV69 
816555 


SYSTEM TEST MODULE 


PARY 
PAGE 


NO. 2589911 


2a 


SOURCE STATEMENT 

190 BC LSRBAD,X*80* TEST IAR/ARR SELECTION 

191 B LSROK 

192 LSRBAD L INTHLT,X*H08 LOAD Pl & P2 IARS FOR ERROR HALT 

193 

194 LSROK L PSRSAV, X°04* RESTORE PSR 

195 SIO = XO1® oX #108 RESET INTERRUPT 

196 SIO = X*G1*® xeage 

1$7 B * LOOP IN INTERRUPT NOT RESET 

198 

199 ERHALT 8 HALT SIAR/ARR SELECTION ERROR 

200 OC XL2°1012° 

201 B ENAB 

202 

203 €XESRKEKESEERERE 

204 * CONSTANTS *4*€F RE SKSESE SEEKS SEEEKEES EEE EEEKES SEREEAKESRKEKESERESEAEREESEED 
205 KEKE KEESEERS 

206 Two OC IL2*2° 

207 STATUS DC “xL2¢°008 

208 CNE DC XL2*°0001° 

209 T1ADDR DC AL2(I1IRTN) 

210 INTHLT DC AL2(ER!'ALT) 

211 

212 #88S4E5544% 

213 F EQUATES 88445 REKSE $492 SSEEEECESERKEEERESEEKEKESEEERKESESKESE KESBEEEEREESEE 
214 8ESSSESEKEEER 

215 XRl EQqu) 1 

216 XxR2 EQU 2 

217 ARR EQU x" 08* 

218 HALT EQU = x*2228 

219 END BEGIN 
20JAN70 OGAPRT70 PROG 10 010F-2 

616684 PAGE 2A- 


816576 


deee meee en aE ERE ARNE EE RO SE FTF 
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1BM MAINTENANCE OITAGNOSTIC PROGRAM 


¢ 
10F2 10F - 5471 PRINTER KEYBOARD SYSTEM TEST MODULE 
© CROSS-REFERENCE 
€ SYMBOL T LEN VALUE OEFN REFERENCES 
ARR C 001 0008 0217 0154 
€ BEGIN A 003 OAF1 0073 0219 
CKDAT A 004 OB3F 0094 0090 
,i) CKEOL A 004 CBDS 0137 0133 
¢ CKEXIT A 004 OC20 0166 0154* 0155 0157% 
CKFD A 004 OBA3 0122 0111 
CKFOl A004 0899 90119 0115 
€ CKnNPpC A 004 oOBC5 0132 6128 
CKPERR A 004 OB6A 0106 C093) «(0141 
CKPRX A004 OB8B4 0127 0123 < 
€ CKRET A 004 OB2E 0089 0085 
CKXCK ACO4 Of1D 0084 0080 = 
-DOSTO A 004 OBES 0154 0077 0691 0104 0139 
€ ElLOG1 A 008 CAEB 0057 OO75 COT7é* 
ELOG2 A008 OAE1 0054 0074 CO75# 
‘''* ELOG3 4 0C8 OAD? - 0051 0074* 
€ ENAB A 004 O0B06 O077 0073 0095 0097 0138 0201 
ERHALT A 004 OC71 0199 0210 
ERREC A 006 CAF4 0074 0083 CC8B ©O102 0118 0122 0126 0131 0136 
€& FLAG A Q01l1 0C322 0180 0159* €165 0182 
HALT C€ 002 0222 0218 0081 C086 0100 0116 0119 0124 0129 0134 0199 
UNLOOP A 004 0C18 0164 C169 
C INTHLT A 002 O0C84 0210 0192 
ISDAT A 0C4 0860 0103 0099 
TLADOR A 002 OCB82 0209 0158 0164 
© Y1RTN A 004 OC33 0181 0209 
KPSNS A004 OB6& 0107 0113 
LOGOUT A O0Ol OAOD 0018 9015 
& to61 A ocs O0A99 0045 0076 0079 0084 0089 0094 6096 0098 0103 0122 
0185* 0186* 0187* 0188* 
LOG2 A 008 OA8F 0042 0137 0183 0184 
€ 063 A 008 OAB5 ©6039 0183 
ae LSRBAD A 004 OCSF 0192 0190 
LSROK A 004 O0C63 0194 0191 
€: ONE A002 OC8O O26 0112 
PSRSAV A 002 0C31 0179 0181* 0194 
RTNOL A001 OAED 06069 0014 
@ sio A003 OC15 0163 0156* (0162 
$101 A 002 OA3C 0032 0161 0162* 
$102 A 002 0A38 0029 0160 Ol1él* 
@ sia A 002 0A34 0026 0160* 
STATUS A 002 OCT7E 6297 ©107* 0108 0110 0114 
SUB A 004 OB80 0112 0109 
@ tTKo A002 OC7TC 0206 0157 
caue XR1 C 001 0001 0215 O155* 0156 
© XR2 C 001 0002 0216 0106* 0112+ 
TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
6 
© 
6 
aate 
© 
/ 
@ . 
e 
® 
.., DATE 28JUL69 14NO0V69 20JAN70 O6APR70 
EC NO. 816444 816555 616576 816684 


~~ 
eo oe @ ®@ 


PART NO. 
PAGE 


0127 0132 0184 


PROG ID 
PAGE 


2589911 
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10F2 


THE CHARACTER 
CL 1 THROUGH 16 


e © @eLeo, 
S84A 0A & H H 


eeoee 


e e 
T+ Y8DIH B>4 
T#-238 H H '8RP 
T4+-D>9671=0710V5 
T+#-,78>( D4CE6)X 
TS ZE C™ ECAnny 
T<&_<B7E8 -DLaz 
T<=_"68008B DLa/ 
T<0>3(-H<-< AB6B 
T<E27 V+ HHV"HEBSB 

e e 
Te OKB6Y4B OT(ED 

eee es 
T<ELDCA"3 50 2 
T< 15BZUODEDL<A< 


TC-20DZB6B0Q - 


EB?7E*E7#=~DC" PHS 


DATE 
EC NO. 


28 JUL69 
816444 





CL 17 THROUGH 32 


a eee 
HCS & H N¢-i 7aMc 


N8SZN 1L<GTOMCAL>| 


e@ ®@eeeseaeeoneaon «4 


B & - 


G631I L3-A5<N 6DC 


GO-9GB_*H 8£0GB>D 
HOH*BH/ BOHEH*C- 
HOH*BH/ JOH#H'CO 
8D l=aZ HOH*BHs 
G SHEACBGB7E8h D 


<HIOACA*AC-D<HO1] 


10F - 5471 PRINTER KEYBOARD SYSTEM TEST MODULE 


“OBJECT CARD LISTING 


PART NO. 


2589911 


FAGE 3A 


INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 


CL 33 THROUGH 48 CL 4S THROUGH 64 CL 65 THROUGH 80 


PO*XNSOPRE(LES<. 


E€MCLOS -TEN( 29° 


OH 


CSZLEEISR1<PRPN 
H:00GB>ZHW*BGB= 
<BZ12U » /O7YFDP 
e e 
OBZ) /O0?7YFH?B -— 
EOH*H*<BG SHEASB 
PaZ HOH*BH/ HOH* 


a(* <-T3"°CCH< EY 


@eeeeeeee e008 0@ 


e 
OGIXD- ?PLOs-TEIC 


T6)-TBUAL2IN €0C 
B <>-E53~ 
H AbE 


&D3-ABZ12U » /OH 
” 70_0+F Hua B00 
E<ARCK3T-ECG#2D © 
GB7E8 EDPaz HOHs 


H°C-HBY7 U ZFOHS 


4BT-< EY8BTO< EY 





e ee0e e e ee as @esee es ee 
BIE <<ZBA "DY 0 DHBZBGCA- 4A 011 <<-OGBYM 
HVL RBZ*OFODROH  <P@BGCF<5Q 2D(66 <<< <Q *BGCF7 
0<<011 
eee0e ees e ee eee eee e eee eeeoevaee ae 
="7MEFL fC FZ ASC RA SO 
wane -- = ---— LAST PAGE 
14N0V69  20JAN70 O6APRTO 
816555 816576 616684 


8Zx08U B A - 


CSFLEE(S$R1<PREIG 
EG<LAB@E OFSTILIV 


@eseeeoaae @ 


Q - 
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8M DLOA .22XH146 


BA l=aZ T BaYIAY 


BH/ COH*H® 31SH 


HKM 


° SA/EOH* 
@ | SHBOSHAOQEAH 
aa e 

HTOOGBYa <K4, 12< 


e e 
JOHSO sHJGRE JD 


Seeeeeeoeeeeoeeoeeo 


21160322700 





PROG ID 
PAGE 


CL 81 THROUGH 96 


EYZ10F20001 
* Us 3k 010F 20002 
1E"p 08D10F20003 
“gad LB*10F20006 
oe" 12610F20005 
ND0A(~CE10F20006 
OD~MARRD10F20007 
OD-MA2J 410F20008 
O80*C 3 A*10F20009 
JEA €81410F20010 
(BEMAEEO10F20021 
*C -A#$810F20012 
(BEMAD-H1OF20013 


“c-0082010F20014 


406708 yZ10F20015 





010F-2 
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TBM MAINTENANCE DIAGNOSTIC PROGRAM 


1050 





5471 PRINTER KEYBOARD FUNCTION TESTS-SECTION 5 


ERR LOC OBJECT CODE 


0 A00 


0 A00 
OAC2 
OA03 
OA04 
OA0E 
0408 
OAOA 


OACD 
OACE 
OACF 


OA11 
QA15 
OA19 
OAIA 
OA1B 
OA1D 
OAIF 
0423 
OA2S 
OA2B 
OA31 
OA35 
OA39 
OA3D 
OA43 
OA48 
OASC 
OAS5SO 
OA54 
OA58 
OAS5C 
OA62 
OA66 
OAGA 
OAGF 
OATS 
OA79 
GOA7D 
OA8O 
OAS83 
OA86 
Oaec 
OA9]1 
OASS 
OAg9 
OAgo0 
OAaAl 
QAA5 
OAAB 
OAAF 


DATE 
EC NO. 


1050 


00 
00 


0000 
OAOD 
0000 
105000 


01 
00 


OAF4 


CO 87 OD8E 


co 
46 
21 


87 


1091 
ICAL 


co 


87 


10Al 


oc 
oc 
co 
C2 
C2 
oc 
1c 
32 
30 
30 
co 
36 
OD 
co 
co 
2c 
oD 
co 
38 
F2 
B2 
E2 
oc 
ic 
31 
30 
30 
co 
368 
0O 
co 
co 


00 
03 
87 
01 
02 
03 
00 
18 
18 
19 
87 
06 
02 
Ol 
87 
00 
oo 
ol 
06 
10 
ol 
02 
03 
00 
18 
18 
19 
87 
06 
02 
Ol 
87 


O21A 


0222 


11A4 
1184 
OE B4 
OF 98 
OFBD 
1184 
1185 
1186 
117E 
1180 
OF 56 
117E 
1160 
CFT7E 
oODO 
1181 
1181 
OFTE 
1180 
5A 

O1 

01 

1184 
1185 
1186 
LITE 
1180 
OF5S6 
1Ll7E 
1160 
OFTE 
00D0 


O2MARTO 
816654 


11Al 
LIAB 


117C 
00 


1184 


00 
1170 


1191 
00 


2184 


OGAPRT 
816684 


ADDR STMT 


OAO1 
0A02 
OA03 
OA05 
OAC? 
OA09 
OAOC 


OAOD 
OAOE 
OA10 


0A19 
OALA 
OAIC 
OALE 


OA24 


0 


OanNoOuUf wD 


10 
ll 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 


29 


30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 


SOURCE STATEMENT 


DECK 4 
START X*AO0O* 


* 


PART NO. 


2589990 
PAGE 1 


RRR KR EH RK H R A RAAEE RHE  RH EEAEAKARERERE EEE EEKKESEEEE EEE RREEEE 


* 
* 
* 
% 


* 


5471 PRINTER KEYBOARD FUNCTION TESTS * 


Pi 
* 


MEKERER HERS ERAREEE AKL LLSR RAE ERSHKLEKEAAKLKAASHARKCAL SKE SERAARALAAREE 


oC 
NC 
oc 
oc 
oc 
oc 
oc 

* 

* 


XL2*1050° 
XL1*00° 
XL1°OO8 
xL2*00° 
AL2(RTNO1) 
xL2*00° 
XL3°1050C0* 


PROGRAM ID AND REVISION LEVEL 
SECTION FLAGS 
CURRENT ROUTINE NUMBER 
RESERVED 

ADDRESS OF FIRST ROUTINE 
RESERVED 

CONSOLE SPUT ENTRY 


SEERESAAREA SEA SESERSBESES SEES EKEETASKEEKAGKSE GSS EREEEEEAS$4EEEEKEEEEEERERE 


x 
SKKHKEK HS 
* RTNOL * 
SKERSRSE RH 
* 
RTNOL OC 
oC 
DC 


8 

8B 
OC 
pc 
oc 
oc 
B 
DC 
MVC 
MVC 


REPO A2 
REPO1] 


B 
REPO] LA 


REPOA] MVC 
MVC 
LIO 
SNS 
SNS 


SBF 
cic 
BNE 


MVC 
cic 
BNE 
TBN 
JT 

LA 

LA 

MVC 
MVC 
LIo 
SNS 
SNS 


SBF 
cec 
BNE 


LOWER CASE--UPPER CASE PRINT QUALITY TEST 


ROUTINE PREFIX 


XL1°O18 
XL17008 
AL2(RTNO2) 


SETUP 

PRINT 

XL1°46! 

IL1*338 
AL2(MSG003) 
XL2*10A1° 

HALT 

XL2*10A1* 

COUNT (1), THREE 
STSHDB(4),ZERGO 
RETURN 

TABLEA,XRI 
TABLEB » XR2. 
STSHDB(4),STATLC 
WRITE-1(1) 40(,XR1) 
WRITE.PRNT 
STATUS~25X*"2B! 
STATUS ,X*198# 
MODIFY 

STATUS—2 5X"068 
STATUS(3),STSHDB 
STATCK 

PRINTS 
STSHDB-3,0(1,XR2) 
STSHDB-3 (1) eSTATUS-3 
STATCK 


“STATUS, X "088 


EOL 

10, XR1)—XR1 
1(€,XR2) XR2 
STSHDB(4)},STATUP 
WRITE-101),0€,XR1L) 
WRITE »PRNT 
STATUS-2,X"1B° 
STATUS ,X*198 
MODIFY 

STATUS-24X "06? 


‘STATUS(3) ySTSHOB 


STATCK 
PRINTS 


ROUTINE PREFIX 
NO INTERVENTION REQUIRED 
ADORESS -OF NEXT ROUTINE 


CLEAR ERRORS 

PRINT 

UPPER CASE 

LOWER CASE 
PRINT TEST 


SET UP LINE COUNT 
CLEAR STATUS 
RETURN CARRIER 
EBCOIC TABLE 
TILT ROTATE CODES 
SETUP FOR 

LOWER CASE 


KEEP 
STATUS 


SET LONG FUNCTION OFF 

CHECK LOWER CASE STATUS 

PRINT ERRORS 

OTHERWISE PRINT LWR CASE CHARACTER 
CHECK 

TILT-ROTATE 

CODES 
CHECK END 
OF LINE 


SETUP FOR 
UPPER CASE 


KEEP 
STATUS 


SET LONG FUNCTION OFF 
CHECK UPPER 

CASE STATUS 
PRINT UPPER CASE CHARACTER 


PROG ID 0105-0 
PAGE 1 


a a ee ee 
. 


- Oo 8 0 


oO: 


Oo 3 


° 


= 
© 


© 0 0° : 


| 


0000 60 0:0 0 806 


. 
. 
- 


r 
re 


@®-°@ @@06@0:0 0 00 


” 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


1050 
ERR LOC 


0A83 
OABS8 
OABE 
0 AC2 
OACE 
OAC9 
OACC 
OACF 
OAD2 
OAD6 
OADA 
OAEO 
' OAE4 
OAES 
OAEC 
OAFO 


OAF4 
OAF5 
OAF6 


OAF8 
OAFC 
0800 
0801 
0B02 
OB04 
C 306 
OBOA 
O&0C 
OB12 
0618 
OBIC 
0820 
0824 
OB2A 
OB2F 
0832 
0835 
0839 
0830 
0B41 
0845 
0 B49 
084D 
0653 
0857 
OB58 
0860 
OB66 
OB6A 
O86E 
0671 
0874 
OB77 
OBTA 
OB7E 
OB82 
0888 
OBsC 
0890 
0894 
0698 


DATE 
EC NO. 


OBJECT CODE 


2c 
oD 
co 
38 
F2 
02 
E2 
BD 
co 
co 
OF 
co 
co 
38 
co 
co 


oc 
00 
01 
08 
10 
01 
02 
FF 
81 
87 
00 
O1 
87 
01 
10 
87 


1181 00 


1181 
OF TE 
1180 
1l 

01 

01 

00 

0A35 
OA30 
LIA4 
OA2B 
0212 
0208 
OA25 
0216 


OD8E 
OzlA 


0222 


11A4 
1184 
OEB4 
OFE2 
OFE? 
1184 
1185 
00 

04 

1182 
1186 
LITE 
1180 
OF 56 
LITE 
1180 
OF TE 
OO0DO 
1181 
1181 
OFTE 
1180 
11 

01 

01 

00 

oB61C 
OB24 
11A4 
0812 
0212 
0208 
oBOC 
0216 


O2MARTO 
816654 


1170 


1194 


LIAl 
11AB 


11AB 
00 


1184 


00 
1170 


1194 


5471 PRINTER KEYBOARD FUNCTION TESTS~SECTION 5 


ADDR STMT SOURCE STATEMENT 


OAF4 
OAF5 
OAFT 


0600 
OBO1 
0B03 
oB05 


OBGB 


O6APRT70 
816684 


70 
71 
T2 
73 
T4 
75 
76 
7T 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
163 
104 
105 
106 
107 
108 
109 
110 
111 
lle 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 


MVC 
CLe 
BNE 
TBN 
JT 
LA 
LA 
CLI 
BE 
8 
SLC 
BNZ 
e 
TBN 
BT 
B 


EQL 


*% 

eEKERKKAKE 

% RTNO2 * 

RXVREEREE 

* 

RTNO2 DC 
DC 
DC 


B 

B 
oc 
DC 
oC 
oc 
8 
oc 
MVC 
MVC 


REPOB 
REPO2z 


REPO2 LA 


REPOBL MVC 
MVC 
CLI 
JNE 
SBN 
Lio 
SNS 
SNS 


SBF 
CLC 
BNE 


MVC 
CLC 
BNE 
TBN 
JT 
LA 
LA 
cur 
BE 
EOL Sic 
BNZ 


TBN 
6T 


* 


STSHDB—390(1¢XR2) 
STSHDB-3 (1) eSTATUS=-3 
STATCK 
STATUS,X*08* 

EOL 

1(,.XR1) XR] 
1€,XR2) 9 XRZ 

Ot eXR2)_X* FFE 
REPO] 

REPOA) 

COUNT(1) ONE 
REPO] 

TEST 
SBYTE3,.SSW1F 
REPOA2 

LINK 


PART NO. 
PAGE 


2589990 
1A 


CHECK 
TILT-ROTATE 
CODES 

CHECK END 
OF LINE 


COUNTERS 
CHECK FOR 
END OF TABLE 


PRINT 
THREE LINES 
CHECK 
FOR 
LOOPING 
GO TO NEXT ROUTINE 


MAXIMUM TILT-ROTATE TEST 


RCUTINE PREFIX 


XLUTe5 Le 
XL1*00* 
AL2(RTNO3) 


SETUP 

PRINT 

XL1°46* 

IL1*24¢# 
AL2(MSG004) 
XL2°10A2¢ 

HALT 

XL2°10A2* 

COUNT (1), THREE 
STSHDB( 4} ,ZERQC 
RETURN 
TABLEC,XR1 
TABLED, xR2 
STSHDB(4) » ZEROO 
WRI TE-1 (15 2O€ pXR1} 
O(eXR1)eX*7B2 
*¢47 
STSHDB- 2, X*80* 
WRITE, PRNT 
STATUS—2-X*1B*® 
STATUS, X*19* 
MODIFY 

STA TUS=-29X*068 
STATUS (3) ,-STSHDS 
STATCK 

PRINTS 
STSHDB-3 702 eXR2) 
STSHDB—-3(1} es STATUS-3 
STATCK 

STATUS ,X*08* 
EOL] 

1(,XR1) eXR2 
16eXR2) eXR2 

OC eXR2) eX FFE 
REPO? 

REPOB} 

CCUNT (1) ONE 
REPO22 

TEST 

SBYTE3, SSWIF 
REP OB 

LINK 


ROUTINE PREFIX 
NO INTERVENTION REQUIRED 
ADDRESS OF NEXT ROUTINE 


CLEAR ERRORS 
PRINT 
MAXIMUM 
TILT- 
ROTATE 
TEST 


SETUP LINE COUNT 
CLEAR STATUS 
RETURN CARRIER 
EBCDIC TABLE 
TILT ROTATE CODES 
CLEAR STATUS 


SET LWR SHIFT 
REQUIRED IF 
~#- BEING PRINTED 
*9AD BUFFER 
KEEP 
STATUS 


SET LONG FUNCTION OFF 
CHECK 
STATUS 
PRINT CHARACTER 
CHECK 
TILT 
ROTATE 
CHECK 
ENO OF LINE 
INCREMENT 
COUNTERS 
CHECK FOR 
END OF TABLE 


PRINT 

THREE LINES 
CHECK 

FOR 

LOOPING 


PROG ID 
PAGE 


0105-0 


1A 


ea TR REINERES OR | TENG RIN RTO rnsEN: TREN TU 





oO: 


e 
- 


C 


° 


+ 
= 


A Oo 


«: 
e 


2 


@--@ 68 0 8 


9... oe 
e 


-o no 


e. 
e 


e ¢ 8 @ 


> 


* 
° 


eo fF @ 
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5471 PRINTER KEYBOARD FUNCTION TESTS~SECTION 5 


ERR LOC O2JECT CODE 


OB9C 
0B9D 
OB9E 


OBAO 
OBA4 
OBA8 
OBAS 
OBAA 
OBAC 
OBAE 
OBB2 
OBB4 
O8BA 
OBCO 
OBC4 
oBcs 
oBcc 
OBD2 
OBD7 
OBDB 
OBDF 
OBE3 
OBET 
OBEB 
OBFI 
JEFS 
OBF9 
OBFE 
OCcO02 
ocos 
Ococ 
0C10 
0c13 
0C16 
0c19 
ocic 
0c20 
0C24 
OC2A 
OC2E 
0C32 
0C36 
OC3A 
OC3E 


OC 3F 
0C40 
0Cc41 


0C43 
0C47 
0Cc48 
oc4c 
oC 4D 
OC4F 
ocsi 
OC55 
0C56 


OATE 
EC NO. 


03 
00 


OC 3F 


CO 87 CD8E 


co 
46 
18 


87 


10C1 
10A3 
CO 87 0222 
10A3 


oc 
oc 
co 
C2 
C2 
oc 
1c 
31 
30 
30 
co 
3B 
oo 
co 
ce 
2c 
3B 
oD 
co 
38 
F2 
D2 
E2 
BD 
co 
co 
OF 
co 
co 
38 
co 
co 
00 


04 
60 


00 
03 
87 
01 
02 
03 
00 
18 
1B 
19 
87 
06 
02 
01 
87 
00 
80 
00 
01 
08 
10 
01 
02 
FF 
81 
87 
00 
01 
87 
01 
10 
87 


ODOE 


O21A 


LLA4 
1184 
OER4 
OFEC 
OFEF 
1184 
1185 
1186 
1L17E 
1180 
OF56 
LITE 
1180 
OFTE 
oDpd0 
1181 
1170 
1181 
OFTE 
1180 
11 

01 

01 

00 

OBC4 
oBCcC 
11A4 
CBBA 
0212 
0208 
OBB4 
O22A 


CO 87 ODSE 
CO 87 O21A 


41 
16 


1142 
10E2 
CO 87 O21A 


o1 
OF 


O2MAR70O 
816654 


ADDR STMT SOURCE STATEMENT 


OB9C 
0690 
OB9F 
OBA8 
OBAY 
OBAB 
OBAD 
0883 

L1Al 

LIAB 

LLAB 

00 

1184 

00 

1170 

1194 
Oc3E 
Oc3F 
0C40 
0C42 
0C4B 
0C 4C 
OC4E 
ocso 
ocss 
0C S56 

O6APR70 


816684 


138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
169 
161 
162 
163 


164. 


165 
166 
167 
168 
169 
170 
171 
172 
i73 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 


HOERKKSEKESE 

* RTNO3 * 

SBXKKRSEKH 

* 

RTNO3 OC 
oc 
oc 


B 

B 
OC 
oC 
oc 
Oc 
B 
oC 
MVC 
MVC 


REPOC2 
REPOC1] 


REPOS LA 


REPOC MVC 
MVC 
L1o 
SNS 
SNS 


SBF 
CLC 
BNE 


MVC 
SBF 
CLC 
BNE 
TBN 
JT 
LA 
LA 
CLI 
BE 
B 
SLC 
BNZ 
B 
TBN 
BT 
8 
oc 


EOL2 


* 

#ES444K44% 

* RTNO4 * 

*82944842 

Fs 

x 

RTNO4 OC 
oc 
oc 


8 
B 
oC 
oc 
oc 
oc 
8 
DC 
oc 


PART NO. 


2589990 
PAGE 2 


NO-PRINT ESCAPEMENT TEST 


ROUTINE PREFIX 


XL1*03° 
xL1*OO* 
AL2(RTNO4) 


SETUP 
PRINT 
XL1°46° 


IL1*24° . 


AL2 (MSGO05) 
XL2*1OA3* 

HALT 

XL2*10A3? 

COUNT (13-THREE 
STSHDB(4),ZEROO 
RETURN 
TABLEEeXR1 
TABLEF,»,XR2 
STSHDB(4}),ZEROO 
WRITE-1 (1) -00,XR1) 
WRITE ¢ PRNT 
STATUS—2,5X*1B8¢8 
STATUS, X#198 
MODIFY 
STATUS-2 4X "06! 
STATUSC3) »STSHDB 
STATCK 

PRINTS 
STSHDB- 340 1¢XR2) 
STATUS—35X"80# 
STSHDB-3(1),STATUS=3 
STATCK 

STATUS» X*08? 
EOL2 

10eXR1) oXR1 
1(,XR2) eXR2 
O(.XR2) _X*FFP 
REPO3 

REPOC 

COUNT (1) eONE 
REPOCL 

TEST 

SBYTE3, SSW1F 
REPOC2 

LOAD 

XL1*00* 


N 
OPTIONAL PRINT TEST. 


ROUTINE PREFIX 
NO INTERVENTION REQUIRED 
ADORESS OF NEXT ROUTINE 


CLEAR ERRORS 
PRINT 
NO-PRINT 
ESCAPEMENT 
TEST 


SETUP LINE COUNT 
CLEAR STATUS 
RETURN CARRIER 
EBCOIC TABLE 

TILT ROTATE CODES 
CLEAR STATUS 


LOAD PRINT BUFFER 
SAVE = 
STATUS 


SET LONG FUNCTION OFF 
CHECK 
STATUS 
PRINT CHARACTER 
CHECK 
TILT 

ROTATE 

CODES 
CHECK END 
OF LINE 
INCREMENT 
COUNTERS 


PRINT 

THREE LINES 
CHECK 

FOR 

LOOPING 


ROUTINE PREFIX 


XL1°04* 
XL1*80* 
AL2(RTNO5) 


SETUP 

PRINT 
XL1°41° 
It1*22° 
AL2(MSGO009) 
XL2*°10E2* 
PRINT 
xL1*0O1° 
TL1°15° 


ROUTINE NUMBER 
INTERVENTION REQUIRED 
ADDRESS OF NEXT ROUTINE 


PRINT 
ENTER 
PRINT 
PATTERN 


PRINT 
RESET 
HALT 


PROG ID 


0105-0 
PAGE 2 


ahs 


09 ©0000 0:0 00 0:00006 


00 0 


- @ 


® o °9o 


= 
Ss 
7 
e 


a 
= 

eo 6@ 080 0:0 9 8 @ 
ae 
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ERR LOC 


oc 57 
0c59 
OCc5D 
OC5E 
OC5F 
océl 
océs 
O0C66 
0C67 
océ9 
. OC6D 
OC6E 
OC6F 
oc7l 
oc75 
OCT7 
oc70 
oc81 
0C84 
ocs8s 
Ocsc 
oc90 
0c93 
OC97 
CC9B 
OC9E 
OCA2 
OCAS5 
OCA9 
OCAE 
OcB? 
oceBs 
ocs9s 
OCBC 
occo 
Ooccé 
occ9s 
occD 
OCcDi 
ocDdé 
OCDA 
OCDE 
OCE2 
OCES 
OcEs 
OCcEB 
OCEF 
OCF3 
OCF9 
OCFD 
0001 
0DO5 
opo9 
ooo0D 


ODOE 
ODOF 
0010 


0012 
0016 
0019 
ooic 
» ©0020 


DATE 
EC NO. 


5471 PRINTER KEYBOARD FUNCTION TESTS-SECTION 5 
OBJECT CODE 


1128 
CO 87 O21A 


O01 
OE 


114F 


co 
01 
1c 


8&7 


1168 


co 
06 
oD 


87 


1178 


co 


87 


10E2 


oc 
C2 
F3 
30 
38 
co 
F3 
30 
38 
F2 
338 
F2 
co 
4C 
D2 
co 
38 
F2 
co 
oc 
F3 
co 
c2 
1c 
31 
co 
38 
F2 
02 
7D 
co 
co 
OF 
co 
co 
38 
co 
co 
00 


05 
80 


7D 
01 
10 
11 
80 
90 
10 
11 
40 
10 
08 
10 
87 
00 
01 
87 
10 
10 
87 
00 
10 
87 
01 
00 
18 
87 
08 
10 
01 
FF 
81 
87 
oo 
01 
87 
01 
10 
87 


FFEF 


co 
F3 
F3 
30 
F2 


O2MAR 70 
816654 


87 
10 
18 
19 
8? 


O21A 
O21A 


0222 


106F 
OFF2 
ol 
1180 
1180 
0C84 
it 
1180 
1180 
17 
1180 
04 
oc 93 
OO LITF 
01 

ocso 

1180 

04 

OCTT 

11A4 LIAL 
00 

OEB4S 

OFF2 

1185 00 
1186 

oDdpD0 

1180 

OE 

01 

00 

occD 

ocnl 

11lA4 1194 
occ9s 

0212 

0208 

occo 

022A 


1070 


ODS8E 
01 
01 
1186 
03 


ADOR 
ocs8 


OC5D 
OCS5E 
0cé0 


océs 
0C66 
0Cé68 


OCcéD 
OC6E 
oc70 


OC76é 


ODO0D 


OO0E 
ODOF 
O011 


O6APR70 
616684 


STMT 


206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
242 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
2T2 
273 


SOURCE STATEMENT 


oc 
B 
oc 
oc 
oc 
8 
OC 
oc 
' OC 
6 
OC 
OC 
OC 
B 
oc 
MVC 
LA 
s10 
SNS 
TEN 
BF 
$10 
SNS 
TBN 
JT 
TBN 
ST 
& 
MVC 
LA 
6 
TBN 
JT 
6 
MVC 
, SIO 
REPOA 6 
REPOS LA 
REPOS MVC 
Lio 
8 
TBN 
JT 
LA 
cLY 
BE 


OVER 
SYNC 


RSET 
SYNCA 


KPCHAR 
CKEOC 


ENDMSG 


8 
SLC 
BNZ 
B 
TBN 
BT 
B 
pc 


EOLS 


% 

#54488 84% 

* RTNOS * 

24948829 

* 

RTNOS OC 
oc 
oc 


B 
$10 
S190 
SNS 
J 


RST 


AL2(MSG008) 
PRINT 
XL1*O1* 
IL1*14¢ 
AL2(MSGOOA) 
PRINT 
XL1°O1* 
ILit2gt 
AL2(MSG008B8) 
PRINT 
XL1°O6é! 
TL1*#13° 
AL2(MSGO00C) 
HALT 
XL2°*10E2¢* 
CLEAR~1(126) »CLEAR 
PRTBL,XR1 
X®OL®sx*109# 
STATUS, X*#11°* 
STATUS,X*80° 
SYNC 
X*11L%,x*10° 
STATI gX*L18 
STATUS s X*4C8 
CKEOC 
STATUS, X* 08 
K PC HAR 

SYNCA 
O€1,X%R1) -STATUS-1 
1¢,XR1)_,XR1L 
RSET 
STATUS »X "108 
ENDMSG 

OVER 
COUNT (1) ,THREE 
X*00",.XK*#108 
RETURN 

PRTBL -XR1 
WRITE~101} ¢O€,XR1) 
WRITE ,PRNT 
PRINTS 
STATUS, X*08* 
EOLS5 
10,.XR1),XR1L 
O(sXR1LPSX* FFE 
REPOS 

REPOS 

COUNT (1) ,ONE 
REPOA 

TEST 

SBYTE3, SSWIF 
ENOMSG 

LOAD 

XL1°00* 


OPTIONAL PRINT TEST 


PART NOW 
PAGE 


2589990 
2A 


PRINT 
PRESS 
REQ 

KEV 
PRINT 
KEY 
ENTRY 


PRINT 
PRESS 

END 
“KEY 


SET TABLE TO -—FF- 


RESET INTERRUPTS 
WAIT FOR 
REQ KEY 
DEPRESSION 
RESET INTERRUPTS 


CHECK FOR 
END KEY 
CHECK FOR 
DATA KEY 


KEEP 
CHAR 


CHECK FOR 
END KEY 


SET UP LINE COUNT 
RESET KEYBOARD 
RETURN CARRIER 
PRINT TABLE 
LOAD PRINT 

BUFFER 

PRINT CHARACTER 
CHECK FOR 

END OF LINE 
INCRE MENT COUNTER 
CHECK FOR 

END OF LIST 
CONTINUE ORINTING 
PRINT 

THREE LINES 
CHECK 

FOR ~ 

LOOPING 


ROUTINE PREFIX 


XL1°05* 
XL1°80! 
XL2°FFFFS 


SETUP 
X*01*,x*i0® 
K*01*,x°18* 
STATUS, X*19° 
CHK 


ROUTINE NUMBER 
INTERVENTION REQUIRED 
LAST ROUTINE 


CLEAR ERRORS 
RESET THE KEYBOARD 
RESET PRINTER 


PROG ID 
PAGE 


0105-0 
2a 


ane ee ce EE A TPR GSR ced 


fee RR ae AY ON NER fe I SA HY I 


se OO CCPH HH OOH CLOSER OCC CLC COO CLES 
¢ o 
“**" TM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589990 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589990 
¢ PAGE 3 PAGE se 3A 
1050 5471 PRINTER KEYBOARD FUNCTION TESTS-SECTION 5 A 1050 5471 PRINTER KEYBOARD FUNCTION TESTS-SECTION 5 
¢€ * 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT i. ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
Cc 0023 F3 10 11 274 KECHK SI0 X*11",X*108 KEEP PROCEED ON 1 © ODDF 3A 10 1184 342 ADTWO3 SBN STSHEB»X*10° SET PRINTER BUSY 
0026 30 11 1180 275 CHK SNS STATUS,X*11° | ODE3 38 10 1180 343 TBN STATUS »X*10° CHECK FOR 
OD2A 38 80 1180 276 TBN STATUS »X"80! | CHECK FOR | ODET F2 10 04 344 JT *47 PRINTER 
Cc OO2ZE F2 10 4é 277 JT REQ REQUEST KEY © ODEA 3A 40 OF96 345 S8N FLAGsFLAGL BUSY 
0031 38 40 1180 278 TBN STATUS, X*4C# CHECK FOR ODEE OC O1 11A7 1196 346 MVC WORK3 (2),C005 
0035 F2 10 46 279 JT EOC END OR CANCEL | ODF4 3A 18 1182 347 SBN STSHDB-2,X*188 WAIT 
Cc 0036 38 08 1180 280 TBN = - STATUS» X*08° CHECK FOR i OOF8 38 18 117E 348 SYNCP TBN STATUS-2,x"18* 5 MILLISECONDS 
: 0D3C CO 90 0D26 281 BF CHK RET OR DATA KEY } ODFC F2 10 12 349 JT ADONE1 FOR FEEDBACK 
0040 38 04 1180 282 TBN STATUS, X*04! CHECK FOR | ODFF 30 18 LITE 350 SNS STATUS—29X*1B* AND FEEDBACK 
Cc 0044 F2 90 16 283 JF DATA RETURN CQ OEC3 OF O1 1IA7 1194 351 ADONE ALC WORK3 (2 } gONE SAMPLED TO 
OD47 F3 18 40 284 S10 X*40%X*188 | OE0S9 CO 20 ODFS 352 BNOL SYNCP COME UP 
er OD04A 30 19 1180 285 SYNCB1 SNS STATUS, X*198 eee OECD 3A 40 OF96 353 SBN FLAG, FLAG1 
Cc OO4E 38 80 1180 286 TBN STATUS,» X*80* \ 3 OE11 39 40 OF96 354 AOONE1] TBF FLAG, xX*40* 
ODS2 CC 90 OD4A 287 BF SYNCB1 ' OE15 F2 10 O8 355 JT *411 PRINT 
0056 F3 18 OL 288 $10 X*O1°,X*18° | OE18 CO 87 OFTE 356 B STATCK ANY ERRORS 
a 0059 CO 87 CD23 289 8 KECHK 1 © GE1C CO 87 OEBO 357 B ENOPRT 
0050 31 18 1180 290 DATA LIO STATUS sX*18* PRINT OE20 OC O02 LLAT 1199 358 MVC WORK3(3),CD1C0 
0061 F3 18 80 291 $10 X*80%,X*188 CHARACTER ; OE26 3B 18 1182 359 SBF STSH3B-29X "16° 
€ 0064 30 19 1180 - 292 SYNCB SNS STATUS .X*19¢ G OE2ZA 39 18 LITE 360 SYNCP1 TBF STATUS-2,X*18* WAIT 100 
0068 38 80 1180 293 TBN STATUS, X*80* OE2ZE F2 10 3F 361 JT AOTWO1 MILLISECONDS 
odeC CO 9C OD64 294 BF SYNCB | GE31 30 1B LITE 362 SNS STATUS—29X"1B* FGR FEEDBs 2X 
& 0070 F3 18 01 295 S10 X*O1",x*18° | €3 OE35 OD O5 118A 118A 363 CLC WORK(6) gWORK WAIT 25 MICROSECONDS 
0073 CO 87 0023 296 B KECHK ' OE3B 30 19 1180 364 SNS STATIS sX*198 AND FEEDBACK 
wibekss OO77 F3 10 21 297 REQ S10 X*21* .X*108 TURN REQ a aty OE3F 39 01 1180 365 TBF STAtJSeX*01* SAMPLED TO DROP 
C OOTA CO 87 0026 298 B CHK PEND ON . Oa O£43 F2 90 16 366 JF ADTW22 
OD7E 38 10 1180 299 EOC TBN STATUS,X*10° CHECK FOR OE46 CE 02 LIA7T 1194 367 ADTWO ALC WORK3 (3), ONE 
OD82 F2 10 04 3CO JST ENDOS END KEY OE4&C CO 20 OE2ZA 368 BNOGL SYNCP1 
c 0D085 CO 87 OD16 301 8 RST mn) OESO 3A 40 OF96 369 SBN FLAG, FLAG1 
0089 CO 87 022A 302 ENDOS 8 LOAD OE54 CO 87 OFTE 370 ADTWO2 B STATCK 
ODED 00 ODs8D 303 oc XL1*OO* | O€58 CO 87 OEBO 371 B ENDPRT 
¢ 304 SRHERERREREEASAARERRAREEEEBERL SEES LAKE EREEEEEREERERS EREE AKERS EEE ERERE SE | © OESC CO 87 O21A 372 ADTW22 B PRINT PRINT 
305 * THE SETUP SUB-ROUTINE i OE60 86 OEF60 373 DC XL1°86* PRINTER 
306 * i OE61 3C OF61 374 DC IL1*60°* MAL FUNCTION 
OQ OD8E 34 08 ODB4 307 SETUP ST SAVI4+3,ARR SAVE RETURN ADDRESS © OE62 111C O&63 375 OC AL2 (MSG106) 
0092 CO 87 OF3ZE 308 B DEL100 OE64 1002 OE65 376 DC XL2*10G2° 
nee 0096 38 20 OFS? 309 TAN MARK, MARK2 i OE66 CO 87 0222 377 B HALT HALT 
G GD9A F2 10 O08 310 ST READY | Q OEGA 1092 OE6E 378 DC XL2*1002* OF -02- 
Dg OD90 CO 87 O21A 311 B PRINT OE6C CO 87 CERO 379 8 ENDPRT 
ODA1 06 ODAl 312 DC XL1'O6* | OETO 39 10 1189 380 ADTHWO1] TBF STATUS »X*10* 
e ODA2 46 ODA2 313 DC IL1i'708 1 OE74 F2 10 18 381 JT ADTRO4 
ODAZ 1107 CDA& 314 oc AL2(MSGO0$) OE77 38 O1 OFST 382 TBN MARK ¢ MARK7 CHECK 
ODAS 3B FF OF96 315 READY S65F FLAG,X'FF* *RESET os OE7B F2 10 08 383 JT *e11 FOR SHIFY 
} ODAS 38 DF OF97 316 SBF MARK, X'DF? *FLAGS e OETE 3A O1 OFOT 384 SBN MARK » MARK? CYCLE 
ODAD 3A 20 OFS? 317 SBN MARK »MARK2 ! OEF82 CO &7 ODDF 385 B ADTWO3 
ODB1 CO 87 0000 318 SAV1 8 —* 60 BACK TO ROUTINE OEB6 38 O01 OFST 386 SBF MARK MARK? 
€ 319 # | oO OEBA CO 87 OF3ZE 387 B DEL100 
320 FRRRRAERS RAAT RARER AHS RKA RETAKE KE RKEARRKLARH EMSC HHH eK a aE ESE | CEBE 30 19 1180 388 SNS STATUS 4X*19* 
ees 321 * ERROR HALTS SUB-ROUTINE * I O£&92 36 iG 1184 389 ADTWO4 SBF STSHDBe X*10* CHECK BUSY 
S 322 * 1) PUTS ERROR CODE IN HALT ID * e CES6 34 80 1184 390 SBN STSHDB,X*80* DROPPED AND 
323 * 2) HALTS IF "HALT GN ERROR* IS ON * OESA 39 10 1180 391 TBF STATUS, X*19° INTERRUPT PENDING 
324 THEEEREREREKREREE HSH ALS SHAR ELEAES RAAAAGAER ARERR TEAK ERSKHKS HH AHS OESE 38 80 1180 392 TBN STATUS »X*80° CAME ON 
€ 0085 34 08 ODCF 325 ERRHLT ST ENDT +3, ARR G OEFA2 F2 10 08 393 JT *4+2] IF NOT, 
ODBS 39 FF OFSE 326 TRF FLAG sX"FF®# RETURN ITF OEFA5 CO 87 OFTE 394 B STATCK PRINT 
ODBD F2 10 OC 327 JT ENDT NO ERRORS DETECTED saa O£A9 CO 87 OEBO 395 B ENDPRT STATUS 
€ OOCO OC 00 ODCR OF96 328 MVC ERLT1ID(13,FLAG PUT ERROR CODE IN HALT iD oO OEAD F3 18 O1 396 S10 X*01* ,PRNT RESET INTERRUPT PENDING 
ODC6 CO 87 0222 329 B HALT ERROR OFEO CO 87 CCDD 397 ENOPRT B —% 
ODCA 10 ODCA 330 oC xXL1*°10° HALT 398 FHRERESEAERAATEEEE SESS OLEAGERELERERA LETH SHEE SS AEE ESS SHR MRE SAG HS SREREAE 
S$ cocs oO O0CB 331 EHLTID OC XL1*OO8# 399 * . 
Ses ODCC CO 87 0000 332 ENDT 8 t—* ® 400 * CARRIER RETURN SUBROUTINE * 
333 FPRGEEERESESEERS ERS SESS SEREEEREER ERE SEREEEELE SRARESREARE RES REELS EESERERES 401 # * 
oe 334 * * Se 402 SESHKRERERREEEE EEE SES ERARALEEAEKERERETHE SEEK ESSERE SRE EHKEKKEKKE SHEA EKEKRES 
335 * PRINT SUBROUTINE * OEB4 34 08 OEB3 403 RETURN ST ENDPRT +43, ARR 
336 * * OEB8 F3 18 40 404 SIO X*40*,PRNT 
S 337 FREREREEEHES SEES EAREEER ERE ES EE EEEREEE CREE SEREEEERES £8098 ES SEES EEEREER TE oO OEBB 30 18 J1LTE 405 SNS STATUS-29X*18* CHECK FOR 
ODDO 34 O08 0EB3 338 PRINTS ST ENDPRT43, ARR SAVE RETURN ADDRESS OEBF 30 19 1180 406 SNS STATUS »X*198 PRINTER 
0004 F3 18 560 339 $10 X*80* »PRNT START PRINT et OEC3 3A 10 1184 407 SBN STSHDB »X*20* BUSY 
eS ODD7 30 18 LTE 340 SNS STATUS—2-X"1B* SAVE o OfC7 38 10 11280 408 TBN - STATUS,X*10° 
QDDB 30 19 1180 341 SNS STATUS 9X*198 STATUS OECB F2 10 04 409 JT *eT7 
e ® 
tens eee? OGAPRTO PROS ID 0105-0 DATE O2MARTO 06 APR70 PROG ID 0105-0 
° eee eleee a PAGE 3 : EC NO. 816654 816684 PAGE 3A 
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e 
#328 ® 
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tinal '@ mas 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589990 Jive IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 2589990 
PAGE 4 e PAGE 4A 
; 1050 95471 PRINTER KEYBOARD FUNCTION TESTS-SECTION § 1050 =5471 PRINTER KEYBOARD FUNCTION TESTS=-SECTION 5 
© . 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT | 
€ OECE 3A 40 OF96 410 SBN FLAG» FLAG1 0 0040 478 FLAGL EQU x*4QO8 STATUS ERROR i 
OED2 OC 01 11A7 1196 411 MVC WORK3(2),CD05 | OFST 00 OF97 479 MARK DC KL1°00° PROGRAM FLAGS 
OED8 3A 1E 1182 412 SBN STSHDB-2,X*1E* WAIT FOR 0020 480 MARK2 EQU xXx*20# PROGRAM INITIALIZED : 
€. OEDC 38 1E 117E 413 SYNCC TBN  STATUS-2,X"1E* . LONG FUNCTION | Co 0001 481 MARKT EQU. x'Ol1? SHIFT CYCLE TESTS | 
QEEO F2 10 12 414 JT AOTRE AND LONG | 482 FEEREEEEESERESEREE HERE ERE REREREREEEEEE ESE CER EN SEERESEEERSS $EKEEEEEESERER t 
ete CEE3 30 1B 117E 415 SNS  STATUS-2,X*188 FUNCTION SWITCH ows 483 * 
Cc OEET OF 01 11A7 1194 416 ADCNE3 ALC WORK3(2),ONE SAMPLED TO COME uP | o 484 % EBCDIC TABLE FOR UPPER--LOWER CASE 
OLED CO 20 OEDC 417 BNOL SYNCC | 485 * \ 
OEF1 3A 40 OF96 418 SBN FLAG,FLAGL OF98 Fl OF98 486 TABLEA DC XLI°FL¢ 
Cc OEF5 39 40 OF 96 419 ADTRE TBF FLAGsX"40! PRINT lo OF99 TEF24CF35EF4 OF9E 487 oc XL6" TEFZ4CF35EF4? i 
OEFS F2 10 08 420 ST #412 _ ANY OFOF TAFS6CF6TDF7 OFA4 488 DC XL6* TAF S6CF67DFT# 
OEFC CO 87 OFTE 421 B STATCK STATUS OFAS 6EFB5CF94DFO OFAA 489 oc XL6"6EFBS5CF94DFO® i 
C 9F00 CO 87 OEBO 422 B ENDPRT ERRORS C OFAB SD606D504E7C OFBO 490 DC XL6* 5D606D504E7C* ‘ 
OFO4 OC 02 11A7 119C 423 MVC =WORK3(3),CD1SEC | OFB1 4A5B5A7B7F6B OFB6 491 pc XL6"4AS5B5A7B7F6B¢ { 
OFOA 3B 1E 1182 424 SBF STSHDB-2,X"1E! OFB7 4F4B5F616FFF OFBC 492 oc XL6"GF4BSFOLOFFF? i 
c OFOE 39 1E 117E 425 SYNCC2 TBF STATUS-2,X*1E! WAIT ONE oO 493 * | 
CF12 CO 10 0E92 | 426 BT ADT WO4 SECOND FOR 494 * TILT ROTATE CODES FOR UPPER--LOWER CASE | 
ee OF16 30 18 117E 427 SNS  STATUS-2,X*1B° LONG FUNCTION arnt 495 * 
Cc OF1A CD 05 118A 118A 428 CLC WORK(6) WORK WAIT 25 MICROSECONDS oO OFBD 3F OFBD 456 TABLEB DC XL1°3F# 
OF20 30 19 1180 429 SNS  STATUS,X*19" AND LONG OFBE BF36B63EBE35 OFC3 497 oc XL6"BF36863EBE35" [ 
OF24¢ 39 01 1180 430 TBF STATUS,X*O1t FUNC TION OFC4 853DB8D34B43C OFCS 496 oc XL6*B530B034B43C* f 
Cc OF28 CO 90 CESC 431 BF ADTW22 SAMPLED TO Cc OFCA 8C398931B8137 OFCF 499 DC XL6*BC298921B8137° 
OF2C OE 02 1IAT 1194 432 AD3 ALC WORK3(3),0NE DROP | OFDO 871797078727 OFD5 500 DC XL6°HY' 797078727 i 
CF32 CO 20 OFOE 433 BNGL SYNCC2 OFD6 A71090308020 OFDB 501 oc XL6"A 4109030B8C20* 
Cc OF36 3A 40 OF96 434 SBN FLAGsFLAGI oO OFDC AO000302FAFFF OFE1 502 pc XL6* AOOO8O02F AFFF® 
OF3A CO 87 OE54 435 B ADTWO2 503 * { 
436 Me Ae Me Re KH EE REA RAE EEK ERK KTH KK KEKKAKARAKRSE KEKKKEKEKKREKSEREESAESER 504 * TILT-ROTATE TEST TABLECESBCDIC) { 
e 437 * DELAY SUBROUTINE: THIS SUBROUTINE SETS UP AND DELAYS * @ 505 * 
438 * FOR SEVERAL MILLISECOND TIMINGS. * OFE2 7B OFE2 506 TABLEC DC XL1° 7B 
seu 439 PREPARERS EAE KEARSE KEKE RAKE REAL EKKE SEEK SK SE KEKE KKESEKKEKE SEES EES OFE3 CIDSE6FF OFE6 507 oc XL4"°*CIDSEGFF®* ; 
Cc: OFSE 34 08 OF55 440 DEL100O ST ENDDEL+3,ARR SET uP e 508 = 
OF42 OC 02 119F 118D 441 MVC WORK1(3),CDEL10 FOR 100 509 * TILT-ROTATE TEST TABLE(T—-R CODES) i 
OF48 OF 02 119F 1194 442 SUB SLC WORK1(3),ONE 510 * 
G OFSE CO 01 OF48 443 BNZ SUB ) OFE? 30 OFE7 511 TABLED OC XL1°30* 
OF52 CO 87 0000 444 ENDDEL 8 sot OFE8 OF1924FF OFEB 512 DC XL4*OF1924FF* 
445 *% : ee 513 * 
G 446 * 2 Co OFEC C8 OFEC 514 TABLEE DC xLi*Ce* 
447 * SET EXPECTED STATUS OFED 40FF OFEE 515 DC XL2°40FF® 
448 * 516 * 
e OF56 34 08 OFT7D 449 MODIFY ST ENDF +43, ARR SAVE RETURN ADDRESS e OFEF 09 OFEF 517 TABLEF DC XL1°098 
OFSA 38 3F 1170 450 SBF STATUS-3,X*"*3F* STATUS OFFO 78FF OFF1 518 DC XL2°* 78FF® 
ae OF5E 3B 3F 1181 451 SBF STSHDB-3,X*3F¢ STATUS OFF2 00 OFF2 519 PRTBL DC xXL1*°00" 
e OF62 3B 44 1180 452 SBF STATUS eX"44t SET RESERVED AND END OF FORMS eo OFF3 106F 520 os CLi25 
OF66 3B 78 117F 452 SBF STATUS-1,X*78* BITS OFF 1070 FF 1070 521 CLEAR OC XLL FFE 
OF6A 38 21 LITE 454 SBF STATUS~-2,X*218 FGR RECEIVED S22 KKEAASSESESESESKEKSEEKKRASSESSESSERSESEKSE SESE TEREST KETHSESSELEF SE EVES STAVES SKE KORE 
© OFGE 3B 44 1184 455 SBF STSHDB,X'44! SET RESERVED o 523 * . 
OFT2 3B 78 1183 456 SBF STSHDB-1,X'"78* BITS OFF 1071 E4D7D07C5D940C3C1 1091 524 MSGOO3 DC CL33* UPPER CASE--LOWER CASE PRINT TEST® 
. OFT76 3B 21 1182 457 SEF STSHDB-2,X*21" FOR EXPECTED ate 1079 E2C56060D3D6E6C5 524 
e OFT7A CO 87 0C00 458 ENDF 8 +—* RETURN rs) 1081 D940C 3C 1E2C54007 524 
- 459 ® 1089 D9C9DSE340E3C5E2 524 
460 * 1091 €3 524 
e 461 * o 1092 D4C1E7C904E4D440 10A9 525 MSGO004 DC CL24*MAXIMUM TILT-ROTATE TEST® 
be 462 * ERROR PRINTOUTS 109A E3C9D3E360D9D6E3 525 
463 * 10A2 C1E3C540E3C5E2E3 525 
e OFTE 34 08 OF95 464 STATCK ST ENDSTR+3 »ARR oO 10AA DSD66CD7D9CIDSE3 10C1 526 MSGO0S DC CL24*NO-PRINT ESCAPEMENT TEST® : 
OF82 CO 87 021A 465 B PRINT PRINT 1082 40C5E2C3C1D7C504 526 a* 3 
OF86 Cé OF86 466 oc XL1°C6* REFER 10BA C505E240E3C5E2E3 526 
@ OF87 43 OF87 467 DC IL1*67* To oO 10C2 C9C640 10C4 527 oC CL3*IF ° 
OF88 1107 OF89 468 DC AL2(MSG006) FEMM ve 10C5 C5D9D9D6D940C4C5 10E0 528 pc CL28*ERROR DETECTED IN PRINTING-—° 
CF8A 1001 OF8B 469 oc XL2*1001° 1 10CO E3C5C3E3C5C440C9 528 
e OFEC CO 87 0222 470 8 HALT a 1005 054007C9C9DSE3C9 528 
OF90 1001 OF91L 471 DC XL2°1001° 100D 05C€7606C 528 
OF92 CO 87 0000 472 ENDSTR 8 ++ LOE] O9C5SC6C5D940E306 1107 529 MSGO06 OC CL39°REFER TO MECHANICAL ENTRY CHART ENTRY 2° 
e@ GTZ ECEKEEEEEEEEEEEE4EEEEEEKE EEE EEEEERESESEHEESCERESEEEEEREEES E4EE ES EEKEEEEEE o 10E9 4004C5C3C8C1LD5C9 529 
414 * 245444894 10F1 €3C1D340C5D5E309 529 
415 *@ * FLAGS * 10F9 E840C3C8C109E340 529 
e 476 * +84048008 o 1101 C505E3D9E840F2 529 
OFS6 00 OF96 477 FLAG OC XL1*00¢ ERROR FLAGS 1108 G060D709C9D5E3C5 111C 530 MSG106 DC CL21*-—PRINTER MALFUNCTION? 
e © PROG 10 0105-0 
aa, DATE O2MARTO O6APRTO PROG ID 0105-0 DATE O2MAR70 O6APRTO aa 
EC NO. 816654 816684 | PAGE 4 133 EC NO. 816654 816684 PAGE 
6 e 
L @ ® 
2 


& bas 





Oe es 


eeoseeeeceeeecoeeeseeopeeereeneneneeoooee 





i 
IBM MAINTENANCE DIAGNOSTIC PROGRAM “ PART NO. 2589990 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589990 
é PAGE o PAGE 5A 
‘ 
1050 5471 PRINTER KEYBOARD FUNCTION TESTS-SECTION 5 ‘ 1050 5471 PRINTER KEYBOARD FUNCTION TESTS-SECTION 5 t 
. ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT } CROSS-REFERENCE 
ae ‘ 
Cc 1110 094004C1 03C6E4D5 530 (3 SYMBOL T LEN VALUE DEFN REFERENCES . 
1118 C3E3C9D6D5 530 
111D D9IC5SE2ZC5E340E3CB8 1128 531 MSGOO8 DC CLIS*RESET THE HALT,* ADONE A 006 OF03 0351 
Cc 1125 C540C8C1D3E368 §31 ae C: ADONEL A004 OE€11 0354 0349 
112C E3D640C5D5E3C5D9 1141 532 MSG009 DC CL22*TO ENTER PRINT PATTERN? ADONE3 A 006 OEET7 0416 
1134 40D7D9C9D5E34007 532 ADTRE A 004 OEFS 0419 0414 
Cc 113C C1E3E3C509D5 532 C: ADTWO A 006 CE46 0367 
1142 D7D9C5EZE240D9C5 114F 533 MSGOOA 0C CLI14*PRESS REQ KEY,* ADTWO1l A 004 OE70 0380 0361 
114A 0840D2C5E86B 533 ACTWO2 A 004 OE54 0370 C435 
Cc 115C C5D5E3C5D94CD7C1 1168 534 MSGOOB DC CL28"ENTER PATTERN VIA DATA KEYS,* C. ADTWO3 A 004 ODDF 0342 0385 
1158 E3E3C5D9D540E5C9 534 ADTWO4 A 004 CE92 0389 0381 C426 
aus 1160 C140C 4C1E3C140D2 534 . ‘'+* ADTW22 A 004 OE5C 0372 0366 0432 
G 1168 C5E8E26B 534 C ADd3 A 006 OF2C 0432 
1L16C D7D9C5EZE240C5D5 1178 535 MSGOOC DC CLI3"PRESS END KEY? ARR C 001 0008 0563 0307 0325 0338 0403 0440 0449 0464 
- 1174 €44002C5E8 535 CDEL10 A 003 118D 0543 0441 
c 536 * CONSTANTS C CDC5 A O02 1196 C546 0346 C411 
537 * CCISEC A003 119C 0548 0423 
1179 0O80000O0~—C 117C 538 STATLC DC XL4*0C8000008 CD100 A 003 1199 0547 C358 
¢ 117D 00000000 118C 539 STATUS DC XL4*008 C: CHK A004 0026 C275 0273 ©6281 0298 
1161 00G00C00 “1184 540 STSHDB OC XL4*O# CKEOC A004 OCBS 0237 0230 
1185 4040 1186 541 WRITE OC cL2" + CLEAR A O01 1070 0521 0221 0221* 
Cc 1187 00COG000 118A 542 WORK DC XL4*008 © COUNT A003 1144 0551 0038* OC80* C103* 0131* 0154* 01°9*% 0240% 0253* 
118B 001000 118D 543 CDEL10 DC XL3*001000D* DATA A004 OD5D 0290 0283 
ahs 118£ 00400000 1191 544 STATUP DC XL4*0C400000* DEL100 A v04 OF3E 0440 0308 C387 
Cc 1192 000001 1194 545 ONE pc XL3*000001* © EHLTID A001 ODCB 0331 0328+ 
1195 FBOO 1196 546 CD05 DC XL2*FBOO® | ENDDEL A 004 OF52 0444 0440* 
1197 FFFA28 1199 547.CD100 DC XL3 "FFFA28 * i ENDF A004 OFTA 0458 0449% 
G 119A FFC821 119C 548 CDISEC DC XL3"FFC821° i: © ENDMSS A 006 OCCO 0240 0238 0257 
119D 000000 119F 549 WORKI OC XL3 "008 ENDPRT A 004 UEBO 0397 0338%* C357 0371 0379 0395 0403% 0422 
11A0 0003 11Al 550 THREE 0C XL2*0003¢ (‘''* ENDSTR A COS OF92 0472 0464% 
G 11A2 000000 11A4 551 COUNT 0C XL3"0C00008 | G@ ENOT A004 ODCC 0332 0325* 0327 
11A5 000000 11A7 552 WORK3 OC XL3"008 | ENDOS A 0C4 OD89 0302 0300 
11A8 00000000 11A8 553 ZEROO OC XL4*008 | EOC A004 OD7E 0299 0279 
Cc 554 * | © Ev A 006 OADA 0080 0057 GOT4 
555 * EQUATES © ; EOLl A006 0882 0131 0125 
peas 556 * EQL2 A006 OC24 0180 0174 
oO 0001 557 SSWIF EQU  x*O1" © E0t5 A 006 OCF3 0253 0248 
020B 558 SBYTE3 EQU  x*20B" ERRHLT A 004 ODB5 0325 . 
0222 559 HALT EQU  x*222 ; FLAG A OOl OF96 0477 0315* C326 0328 0345* 0353* 0354 03697 0410* 0418* 0419 0434* 
© 0018 560 PRNT EQU x*1B8¢ C FLAG] C001 0040 0478 0345 0353 0369 0410 0418 0434 
0001 561 XxR1 EQU = x"O018 HALT C 001 0222 0559 0036 0101 0152 0219 0329 0377 0470 
0002 562 xR2 EQU_xx*O2¢ - o*°S KECHK & 003 0D23 0274 0289 0296 
3 0008 563 ARR EQU) x'08" | © KPCHAR A005 OCA9 0234 0232 
021A 564 PRINT EQU  xX*21A° LINK C 001 0216 0565 0085 C136 
0216 565 LINK EQU x*2168 LOAD C001 022A 0566 0185 0258 0302 
. @ O22A 566 LOAD EQU Xx*22A8 @ MARK A 0G1 OFST 0479 0309 0316* 0317* 0382 0384* 0386% 
ai 0212 567 TEST EQU x*2128 MARK2 C 001 0020 0480 0309 0317 
568 END MARKT C001 0001 0481 0382 C384 0386 
© ; © MODIFY A 004 OFS6 0449 0048 0065 0116 0164 
MSGOOA A014 114F 0533 0210 
MSGOOB A 028 1168 0534 0214 
e | © MSGOOC A 013 1178 0535 0218 - 
| |. MSG003 A 033 1091 0524 0034 
"""" MSG004 A024 10A9 0525 0099 
 @ | © MSGOO5 A 024 10C1 0526 0150 
MSGO06 A 039 1107 0529 0314 0468 
MSGO08 A 015 1128 0531 02 06 
- @ | © MSGO0O9 A O22 1141 0532 0201 
MSG106 A 021 111C 0530 0375 
| ONE A003 1194 0545 0080 0131 ©6180 0253 0351 0367 0416 0432 C442 
® | @ OVER A006 OCT7 0221 0239 
: | PRINT C 01 O21A 0564 0031 0C96 0147 0198 0203 0207 0211 0215 C311 0372 O#€5 
PRINTS £004 ODDO 0338 CO52 CC6S 0120 0168 0246 
© : © PRNT C002 0018 0560 0045* 0062* 0113* 0161* 0245* 0339 0396 0464 
co .., ORTBL A OOL OFF2 0519 C222 0243 
READY A004 OGDAS 0315 0310 
@ © REPOA A 004 OCC9- 0242 0254 
REPOAI A CO6 OA3D 0043 co79 
. DATE O2MARTO 06 APRTO e 
PROG 10 0105-0 DATE O2MARTO O6APR70 PROG ID 0105-0 
e EC NO. 816654 816684 PAGE 5 EC NO. 816654 816684 PAGE SA 
: S 
L ® @ 
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SYMBOL 


REPO A2 
REPOB 
REPOBL 
REPOC 
REPOC1 
REPOC2 
REPOW 
REPO1L 
REPO 2 
REPO22 
REPO3 
REPO8 
REPOS 
REQ 
RETURN 
RSET 
RST 
RTNOL 
RTNO2 
RTNO3 
RTNO4 
RTNO5 
SAV1 
SBYTE3 
SETUP 
SSWI1F 
STAT CK 
STATLC 
STAT UP 
STATUS 


STSHDB 


SUB 

SYNC 

SYNCA 
SYNCB 
SYNCB1 
SYNC C 
SYNCC2 


- SYNCP 


SYNC P1 
TABLEA 
TABLEB 
TABL EC 
TABLED 
TABLEE 
TABLEF 
TEST 
THREE 
WORK 
WORK1 
WORK3 
WRITE 
XR1 


XR2 


ZEROO 


DATE 
EC NO. 
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PrPrPPOPONrPPPrPrPPPrPPrPpPrPrrprrrpPrPrprPrrprppp ~ 


QOPPPrnDPOPPPrPPPP?PrPrP PrP Pr Yr pp 


o 


LEN 


006 
006 
006 
006 
006 
006 
004 
006 
004 
006 
004 
004 


-005 


003 
004 
003 
003 
ool 
001 
001 
001 
Col 
004 
ool 
004 
ool 
004 
004 
004 
004 


004 


006 
004 
004 
004 
004 
004 
004 
004 
004 
001 
ool 
001 
001 
001 
oci 
oecl 
002 
004 
003 
003 
002 
001 


oor 
004 


VALUE 


OA25 
coBoc 
OB24 
OBCC 
OBBA 
OBB4 
OA35 
OA2B 
OBIC 
OB12 
OBC4S 
occo 
ocol 
OD77 
OEB4 
ocs0 
OD16 
OA0D 
OAF4 
oOB9C 
OC3F 
ODOE 
o081 
0208 
ODS8E 
oool 
OFTE 
117C 
21191 
1180 


1184 


OF48 
OC84 
oc33 
OD64 
OD4A 
OEDC 
OFOE 
ODFS 
OE2A 
OFS8 
OFBD 
OFE2 
OFE? 
OFEC 
CFEF 
©0212 
TIAL 
LISA 
119F 
LIAT 
1186 
0001 


0002 
LIAB 


O2MARTO 
816654 


DEEN 


0038 
0103 
0108 
0159 
0155 
0154 
0041 
0039 
0106 
0104 
0157 
0243 
0244 
0297 


C403 


0227 
0270 
0026 
0091 
0142 
0193 
0265 
0318 
0558 
0307 
O557 
0464 
0538 
0544 
0539 


C540 


0442 
0224 
C228 
0292 
o2e5 
0413 
0425 
0348 
0360 
0486 
0496 
6506 
0511 
0514 
0517 
0567 
0550 
0542 
0549 
0552 
0541 
0561 


0562 
0553 


OGAPRTO 
Si6684 . 


REFERENCES 


0084 
0135 
0130 
C179 
0181 
0184 
co7s 
oes 
0129 
0132 
0178 
0251 
0252 
C277 
0040 
0236 
0301 
0015 
0028 
0093 
0144 
0195 
0307 
0083 
co3c 
C983 
co51 
0043 
0o6C 
0046* 
0114 
0173 
0278 
0348 
C408 
0039* 
0118 
03 90* 
0443 
0226 
0233 
0294 
02a7 
0417 
0433 
0352 
0368 
0041 
0042 
0106 
0107 
0157 
0158 
0082 
0038 
0363 
0441* 
0346* 
0044* 
0041* 
O157* 
0250 
C042* 
0128 
0039 


0105 


0134 
tc95 


C134 
0055 


004 7* 
0115* 
C224* 
0280 

0350* 
0413 

0043* 
0121* 
0407* 


0133 
0103 
0363 
0442 
0351% 
0045 
0044 
0160 


0053 
0156* 
0104 


CRGSS-REF ERENCE 


0156 


0183 
C146 
0183 
océs 


0C49% 
O1lL7* 
0225 
0282 
0360 
0415* 
0050 
0122 
0412* 


0182 
0154 
C428 


0358+ 
Oc6é1+ 
00s8 
G175 


0059 
0169 
0198 


0242 


0256 
0197 
0256 
oo72 


0050 
0118 
022 8* 
0285 
0362* 
0425 
C053* 
0155* 
0424 


0255 
0240 
0428 


0367* 
0062 
O05 8* 
0175* 


005 9% 
0176 
0155 


0269 


0119 


0054 
0122 
0229 
0286 
0364* 
0427* 
0054 
0159% 
045 1% 


0411* 
0109 
0061 

0222 


0070 
01764¢ 
0159 


0123 


cos6 
0124 
0231 
0290 
0365 
042 9% 
cO60* 
G166 


0455% 


0416 
0113 
0075 
0234 


0076 
0177 


0167 


6363* 
0162* 
6234 
0292* 
9380 
0430 
0067 
0169% 
0456* 


0423 
0160* 
0075* 
0235 


00 76* 


0172 0356 0370 


0064* 0066* 0067 

0163* 0165* 0166 

0237 C247 U2T2* 
0293 ©0299 0340*% 
0388* 0391 0392 

0450* 0452% 0453 
OO70* 0071 0104* 
Ol17L 0342*%* 0347*% 
0457 


0432 

0161 0244* 0245 
0106* 0109 0110 
0235* 0243* 0244 


COT? 0107* 0121 


PART NO. 


PAGE 


0394 


oCTi 

0170* 
0275* 
0341% 
0405* 
0454* 
0108* 
03592 


0126 
0249 


0127 


PROG 
PAGE 


0421 


oo73 
O17 
0276 
0343 
0406* 


0112* 
0389 


0126* 
0249* 


0127% 


10 


2584990 


6 


0105-0 
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[BM MAINTENANCE DIAGNOSTIC PROGR AM 


ClAd 
ERR LAC 


ODL3 
COi? 


Odi 
ODLF 


6023 
Cbz7 


0028 
Oo2F 
0033 


0D37 
0038 
90 3F 


CD43 


C047 
CD48 
OD6F 
0D53 
oesT 
OOSE 
ODSF 
6D&3 
OD&7 


DATE 
€c NO. 


OBJECT CODE 


co 
Cl 


38 
co 


38 
co 


co 
39 
CG 


co 
38 
co 


co 


34% 
34 
34 
30 
39 
co 
3¢ 
co 
co 


87 
C2 


80 
io 


80 
10 


87 
06 
30 


87 
26 
10 


87 


08 
08 
08 
C5 
15 
90 
OF 
90 
87 


0023 
CD17 


1027 
CB42 


1027 
OB42 


0047 
1027 
od23 


Ob47T 
1027 
oD6éB 


0o00o 


GE69 
OESA 
OD6A 
1094 
1094 
ODEB 
1093 
ODEB 
0000 


LSAUG7T5 


827785 


2OMAYT6 
571872 


ADDR STAT 


400 
401 
402 
403 
404 
&05 
406 
407 
408 
409 
410 
411i 
412 
413 
414 
415 
416 
41T 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 


3340 CONTROLLER INTERFACE PROBE Loop - O00 12 


SOURCE STATEMENT 


XEQO3 


TNTSNS 


ENTXXKX 


B 
T1090 


TBN 
aT 


TBN 
BT 


B 
TBF 
BF 


8B 
TBN 
BY 


XEQO3 
#eX*C2® 


IND, THOUT 
RETRY 


IND, THOUT 
RETRY 


INTSNS 
IND, GPEND+ SKC ND 
XEQ03 


INTSNS 
IND, EINTERR 
ERRXX 


DAS DIN43-¢ ARK 
DASD5 A435 - ARR 
INTXXX# 3,ARR 
SNSINT.X®C5? 
SNSINT,X*25° 
DASDI 

SNS ENT—-1,¥ °OF ® 
DASDI 

ee 


} 


ERR LGC GRJECT CODE 


PART NOw 4247617 
PAGE 5 
CLA2 
HUNG IN BUSY j 
LooP ON ATTACHMENT BUSY 
ERROR END IF ATTACHMENT } 
BUSY FAILS TO GO OFF 
ERROR ENO IF EXPECTED }  opeB 
INTERRUPTS FAIL TO OCCUR 
OO6E 
ANY INTERRUPTS ? Fon ?2 
BRANCH IF 
INTERRUPT STILL EXPECTED OD75 
; OD7B 
ANY INTERRUPTS ? 
BRANCH IF ERROR OD7E 
DETECTED IN INTERRUPT RIN I 
op82 
OD86 
RETURN TO CALLING ROUTINE ' 
ODSA 
0090 
SAVE RTN ADDR IN INT SUPER : 
" 0D94 
SAVE RETURN ADDRESSS 0099 
BR TO 0030 
DASDI 
IF THERE ARE ODAI 
ANY INTERRUPTS ODA6 
RETURN ODAA 
ODAE 
ODB2 
CDB6 
Y  opBa 
CDBE 
0DC4 
o0c8 
oDcc 
} = oppo 
ODD4 
* = oops 
, 9008 
!  @poF 
_- ODE3 
j 
ODE? 
? 
} 
} 
) 
» 
) 
PROS 1D C1A-2 DATE 
PAGE 5 €C NO. 


' 


F3 


38 
F2 


OD 
F2 


30 
38 
co 
ch 
2c 
39 
co 


2c 
3A 


Ci 


co 
co 


31 
30 
co 
38 
co 
co 
co 
F3 


38 
co 


CL 


co 


C& 


26 
16 


O1 
OL 


cs 


0. 
10 


00 
oo 


00 
10 


00 
O22 


C2 


87 
B7 


C4 
C4 
OL 
ol 
80 
10 
87 
87 
00 


80 
10 


c2 
87 


02 


1027 
co 


104A 
04 


1044 


104A 
0B42 


0091 
ODA 


ODgéA 
1049 
0842 


ODDS 
oon? 


0B42 


OE6GA 
ODBA 


OFEB 
LO04E 
104E 
OB42 
1027 
OB42 
OE 6A 
ODDB 
o7 


1027 
OB42 


ODE3 


0842 


15AUG75 


827785 


BM MAINTENANCE DIAGNOSTIC PROGRAM 


ADOR STMT 


431 
432 
433 
434 
435 
436 
437 
438 
4,39 
440 
441 
£42 
443 
444 
445 
446 
447 
445 
449 
450 
451 
&52 
03 453 

454 

455 

456 
ol 457 
458 
459 
460 
461 
&62 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
“76 
477 
478 
479 
480 
481 
482 
483 
4B4 


OFD3 


OCFS 


OFEB 


20MAY76 
571872 


3340 CONTROLLER INTERFACE PROBE LOOP - MOD 12 


SOURCE STATEMENT 


PART NOW 
PAGE 


4247617 


SA 


EREEEERREARESERAR EER ERERE ESE RESERER ERSTE RES TERE TEESE SERS ETE TEESE ELE SAE 


+ 
* 
* 


COMPLETE ERROR PROCESSING 


& 
* 
x 


KR EEEREEEEEHERE SERS EEEREREEESERERESE EERE ESET SREES EKER SE SHEE TESTES STE SE 


* 
ERRXX 
* 


x 


= 
ERRXXA 


& 


= 
ERRXXB 


€ 


¥ 


x 


x 
ERRXXC 


& 
STOSNS 


* 
ERRXXD 
& 


= 


$10 


TBR 
JT 


cLe 
JNE 


SNS 


TBN 
By 


MVC 
Tid 


MVC 
TBF 
BY 


MVC 
SBN 


Tre 


B 
8 


Lio 
SNS 
cLe 
BNE 


TBN 
BT 


$10 


TBN 
BT 


T10 


X£O2% pX*C4® 


INDeINTERR 
ERRXXA 


SNS(2) NULLS 
ERRXXA 


SNS» X#C5° 


SNS» BITT 
RETRY 


e4701)-TTORDV 41 
ERRXXB»*—-* 


*+6 ,UCKMSK(15XR2) 
SNS-1 + #-* 
RETRY 


SIOSNS+#1 ,DORVAOR(1 XR2) 
SIOSNS#1,BiT? 


RETRY eX C2 & 


BSYTST 
ERRXACT 


OGSNS2,X*C4° 
WORKN,X*C4! 
WORKN{ 2) sOGSNS@ 
RETRY 

IND, TMOUT 

RETRY 

BSYTST 

ERRXXD 

X*O7* »*-#% 


IND, TMOUT 
RETRY 


*,X*C2* 


RETRY 


DISABLE 3340 INTERRUPTS 


BRANCH IF INTERRUPT 
DETECTED ERROR CONDITION 


BRANCH IF SENSE BYTES 
HAVE ALREADY BEEN RETRIEVED 


SENSE ADAPTER STH1US 


BRANCH IF 
ADAPTER CHECK 


GO TG READ DIAGNOSTIC 
SENSE DATA IF DRY NOT READY 


BYPASS READ 
DIAGNOSTIC SENSE 
IF NO UNIT CHECK 


BUILD READ 
DIAGNOSTIC SENSE COMMAND 


BRANCH IF ATTACHMENT BUSY 


SKIP THE LIO IF 
HUNS IN BUSY 


LOAD ODDR TO SENSE AREA ALCOR 
BYPASS READ 
DIAGNOSTIC SENSE 
IF INCORRECT ODOR LOAD 
BYPASS READ DYAGNOSTIC 
SENSE IF LIO IS REJECTED 
SKIP THE SIG IF 
HUNG IN BUSY 
READ DIAGNOSTIC SENSE DATA 


BRANCH IF SIO 
WAS REJECTED 


LOOP ON ATTACHMENT BUSY 


GO TO ATTEMPT RECOVERY 


PROG ID 


C1A-2 


PAGE 5A 








TEM MAINTENANCE DIAGNOSTIC PROGKAM PART NOe 4247617 1BM MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 247617 








PAGE & PAGE 64 
C1A2 3340 CONTROLLER INTERFACE PROBE LOOP - MOD 12 C1A2 3340 CONTROLLER INTERFACE PROBE LOOP - MOD te 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CUDE ADOR STMT SOURCE STATEMENT 
£86 KEAKARERHSRREKETKSESREEESCSRERRE SHR SERESES SEEKS SAS HGS SLSR ERA RSESTARSSEHTAS SS 542 RKCAKKHEAAKSKASESERSKEKKAKSSELES KK KRERSSSIRHRKKKAESKSKSKLSSEGKSESSSSLKTKEKEKKESE SE 
&87 * % 543 *% * 
488 % 3340 DEVICE END INTERRUPT SUBROUTENE * 544 & ATTACHMENT HUNG BUSY 7 SUBROUTINE 
439 % & 545 * * 
490 SRERKEKEAESRAELARAERATERSEPHRE REARS RE SRKK SKE ASEH EELS EKER TREKS SS SEE SERS RS 54h HERE EKE HES SEA SET ACE SEKEKESCHS SSAA KS SAELIGSHKEAISEKHE RASH HSHRRKLERS SEACH SEK 
&G, 2% 547 * 
ODEB 34 04 102B 492 DASDE ST LSPSREPSR SAVE PROGRAM STATUS REG OE6A 34 08 OESB 548 BSYTST ST BUSYN1L43,ARR RTN ACDR IF NOT HUNG BUSY 
ODEF 34 02 1029 493 ST LOXR2 eXR2 SAVE INDEX REGISTER 2 OEGE OF OL OFSB OFDO 549 ALC BUSYNL+3(23 FOUR REH 
494 ¥ OETS 34 08 OEBD 550 ST BUSYN2¢3 ,ARR ew 8 HUNG BUSY 
ODF3 35 04 OFD3 495 L NULLS» PSR ZERG THE PSR OE78 OC OO 1050 OFD4S 551 MVC =e CRT RI1D2 ZERO ZERO LOOP BUSY CNTR 
£96 2 OF7E OC OO LO&F OFD* 552 HVC CNTR=-101)-¢Z2ERO ” 
ODF? 30 CS 104A &97 SNS SNS-X*C59 SENSE ADAPTER STATUS OEBS 38 80 1027 553 BUSY SBS IND, TMOUY RESET TEMEQUT INDICATOR 
498 & 554 # 
OOFS 38 OL LO4A &99 TSN «SNS» BETT BRANCH IF O£88 C1 Ci GEOL 855 TEO «BUSYOR,X*CR® TEST CEEK INCOMPLETE 
ODFF F2 LO 46 500 JT DESDO4 ADAPYER CHECK AND 
: 501 ® O€8C CL C2 CEL TIO = BUS YG XSC2ZS ATT BUSY 
OEGZ2 35 O62 1020 502 4 ADRE IR, KRZ SETUP POINTER TO 0£90 C1 C9 DESC TIG BUSYOL,»X* Ce? ON 
O£O6 BS O02 OL &03 t Ll exXRZFeXRZ DRIVE DEPENDENT &ORK ARES BOTH 
50% ® O£S% Cl Ca GESE T1Q  BuSYOL.X*Ca? DREWES 
DEGS 38 10 1044 505 TBA | SNS 2 BETS 
OECD 38 04 L027? BOG YEN IND. OP ERD fF OEND GESB co Sf ocoe B dam Hs RETURN TO CALLING ROUTINE 
CELL F2 10 1L S07 iT DaSodd OCCURRES 
558 % OE SC 50 OF? ALG  CRTRELE.ONE CHECK FOR 
OELG 20 OG CELA OF 599 BYE. #6 SKMSK EL XRZ?E GET Sk ENTREE BASK FROM UW ARES DER Be BXxOL BUSY FOR 
SELF 38 00 1049 516 BN So} et BRANLH PF DEAS &s & ALO  CNTRe EELS. ONE 
QELD 38 O2 L027? Sik 15M KERD LHTERRUPTE FS CEAC SF Cec CNTR LOL ECL PONT 
SE2EL F2 SO 2& Siz iF OG HOT EXPEC rep SESe Re SNE BUSY 
31% OL bo Zz SEN TRO, TMGUT 
GE24 26 00 GCEGb O4 MYD  OASDIM42 «SRESTCE XAZ 3 CEBA a6 2 &. 6 
O£29 38 OF LOZ? SBE INO. SKEND 
OE20 F2 BY 58 1S 3 Naso? 
517 3 
OE30 30 04 O65 S18 DASDOL KY¥I DASDE Ke Ze X? GHP 
GE34 38 04 4027 519 SBF ING, GPEND 
520 ® 
O€38 2C CO OLZE 03 521 DASLOZ MYO #46, UCKMSKE1L,XR2? GEY UNIT CK HASK ©ROM ORY ARES 
OE3D 39 00 1049 522 ‘ TBE SNS- 1, 9-8 BRANCH TF NO 
9E41 39 O08 104A 522 TBF «= SNS BITS UNIT CHECK OR 
O£45 F2 10 13 52% Jt DASDOG nO-OP STATUS 
525 % 
0648 3A 20 i027 526 DAS004 SBN IAD, INTERR SET ANY ERROR INDICATOR 
S27 ® 
DESC 35 O2 1029 528 L LSOXR2_ XR? RESTORE INDEX REGILTER 2 
CE5O 35 04 1028 529 L LSPSRePSR RESTORE PROGRAM STATUS REG 
530 # 
O£54 F3 C& TE 531 DASDOS SiG K®7E%,K*Ce® RESET AND DISABLE INTERRUPTS 
OF57 CO 8? O0CD 532 DASDSA 86 as IGNORE FURTHER ENT®S & RETURN 
533 # 
O&58 35 02 1029 536 DASDOB  oL L5XR 2, XRF RESTORE INDEX REGISTER 2 
GESF 35 04 1028 535 i LSPSRePSR RESTORE PROGRAM STATUS REG 
536 * 
O£63 F3 C& 00 537 DASDIX SEO *=¥*yX*C4&® RESET INTERRUPT AND EXIT 
538 * 
O£66 CO 87 0009 539 DASDIN B Re RETURN 
540 ¢ 
DATE LSAUG75 Z2OMAYT6 PROG ID cCLA-2 DATE L5AUGTS 20MAY76 PROG 10 aa 
EC «0. 827785 571872 PAGE 6 EC NQ. 827785 ST1L872 PARE 2 





IBM MAINTENANCE DIAGNOSTIC PROGRAMA 


CiA2 


ERR LOC OBJECT CODE 


OEBE 
OEC2 
GECE 


SECA 
GEDO 


OED3 
OED9 


GEDC 
OEE 
OEE} 
OEE2 
CEES 


OEES 
OEEC 
OEFO 
OEF 
QEF3 


GEFT 
OEFB 


OEFF 


DATE 
ec NO. 


3% 
34 


oo 
Fe 


oD 
F2 


co 
%& 
13 


08 
ol 
02 


O1 
01 


Ol 
Bl 


87 


OF88 
ci00 


oc 


co 
04 


is 


87 


OCcL7 


co 


C2 
t2 


co 


87 


ol 
02 


87 


OFO2 
OEFA 
OEFE 


SAIC 
09 


6col 
i7 


OZIA 


OA39 


022A 


6C02 


6000 
0000 


0006 


15AUG75 
827785 


ADDR STMT 


OEF2 
OEF2 
GEEO 
OEE 
OEE 
OEES 
OA18 
CEFO 
OEF2 
20MAYTS 
571872 


572 
573 
574 
575 
576 
577 
578 
572 
5&0 
581 
582 
$83 
584 
585 
586 
587 
$8. 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
539 
600 
601 
602 
603 
604 
605 
606 


3340 CONTROLLER INTERFACE PROBE LOGP - MOD 12 


SQURCE STATEMENT 


EREHDESSARGETHESSRESERSE SSE SLEEE RE SETHE S ESET TS 


*& 
* 
% 


EXRECSHERRASEKSSHSESSE SKS SSH SE CELESTE IETS 


* 
MPL 


LORLD 


ci? 
LORGO 
¥ 


MPLKL 
MPLX2 


MPLX 


PART 
PAGE 


NO~e 


INTERFACE TO MICROCODE LCADER PROGRAM (SECTION Ci7} 


st 
ST 
ST 


DC 
B 


LA 
LA 


MPLX¢ 32 ARR 
MPLX L435 XRE 
MPLA24¢3,K%R2 


LORID(256C1F 
LORLD 


LOR¢ 1025 eC17 
t ORGO 


PRINT 

XL 1° 46° 

ALL EMSGOIN-MSGO1L41} 
AL2Z¢UMSGOLN} 
AL2¢HLTOO} 


SVPFCL253 pCOM—1 
LtGAD 

XLLPtOe® 
XxL2*0C17° 

LDR*2 


w-&_ XRE 
a~%_XRZ 


e- & 


SAVE RETURN ADDRESS OFO3 
SAVE INDEX REGISTER 1 OFO7 
SAVE INDEX REGISTER 2 OF OB 
GG TO LGAD LOADER OFOF |! 
IF NGT ALREADY IN STG 
OF 13 
BRANCH IF SECTION C17 OFLT 
1S ALREADY Im MAIN STORAGE OF1B 
OF LE 
PRINT MESSAGE 
LOADING SECTIGN Cl? OF22 
OF27 
CF2B 
CFZE 
OF 31 
SAVE SECTICN PREFACE 
OF35 
LOAD SECTION Cl? 
OF 3B 
OF3F 
OF4&3 
GO TO SECTION C17 OF 46 
OF4ST 
RESTORE 
INDEX REGISTERS OFSS 
OFS4 
RETURN TQ CALLING KOUTINE OF58 
OFS5C 
OFSO 
OF 64 
OF6A 
OFGE 
OFT2 
PROG ID ClA-2 DATE 
PAGE 7 EC NO. 


CL A2 


ERR LOC OBJECT CODE 


SRERERKKEKSLHSEKSKSE SHELE 


* 
* 
* 


SEKKSKSERRELEEEAEKREEREKHK SST AERFE SERS 


oc 


30 
38 
F2 
GE 
co 
C2 
36 
co 


31 
ai 


00 


C2 
C2 


co 


08 
ol 
02 


00 
80 
$0 
04 


01 
cs 
61 
FF 
01 


O1 
cs 
02 
$0 
OL 
20 
OL 
20 


cs 
C5 


FF 


Oi 
02 


87 


15AUG75 


827785 


424761718M MAINTENANCE DIAGNOSTIC PROGRAM 
7 


ADDR STMT 


608 
609 
610 
611 
612 
613 
614 
615 
616 
6L7 
618 
619 
620 
621 
622 
623 
624 
Oi 625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
64% 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 


OFDS 


OFDB 


OF 64 


2OMAY76 
571872 


3340 CONTROLLER INTERFACE PROBE LOOP - MOD 12 


SGURCE STATEMENT 


PART NGe 4247617 
PAGE TA 


EMH RHR ERHM EER EE ER ARER ERE RE RE RS ERASE AE ES RELEASES EAS EEL ERE REE ES SEES 


& 
* 
& 


* 


3340 ATTACHMENT SYSTEM RESET SUBROUTINE # 


* 


AKA RRAEERER EE EERE LAEERREREESEREEEEE SRE SRST RS RET AL TELE KEL ETE E SES EES ES 


* 
SYSRST 


RSTLP 


SNSLP 


x 
DELAY 
DOLYLP 


RSTX1 
RSTX2 
* 


RSTX 


sf 
ST 
ST 


LA 


MVE 
TBN 
JF 

MVI 


MVC 
Lid 
LA 

cui 
BNE 


RYC 
SNS 
TEN 
JF 
ALC 
BNOL 
LA 
BNOL 


LiO 
LIO 


CLC 


LA 
LA 


B 


RSTX#3_ARR 
RSTX2¢3,XR1 
RSTX243¢eXR2] 


SVPSEQ,XR1 


K,O 
COM,ADRSTP 
RSTLP 

KeX 806 


WORKNG 2? ¢ 10 5XR1LI 
WORKN,X°CS® 
20,XRE} XRD 

Ol, XRL}gX* FEF 
RSTLP 


WORKN( 2) 5 PL 


SNS ,X*CS& 
SNS BIT? 
DELAY 
WORKNO2)2P1 
SNSLP 


~6666 eXR1 
P1,XR1 
OLYLP 


CEMODE »X*C5° 
SVPREQ,X*C5® 


(256) oF 


%—*,.XR1 
*-%,XR2 


¥— & 


SAVE RETURN ADDRESS 
SAVE INDEX REGISTER 1 
SAVE INDEX REGISTER 2 


POINT TO SVP CONTROL STRING 


PRESERVE MICRO- 
PROCESSOR ADDRESS STOP 
SETUP DURING EXECUTION 
OF AMOP ¢SECTION C19) 


EXECUTE 
SIMULATED SYSTEM 
RESET SVP INTERFACE 
CONTROL SEQUENCE 


SETUP TIRER COUNT 
LOGP UNTIL 
MI CRO-PROCESSGOR 


STARTS OR COUNTER 
OVERFLOWS 


DELAY 
106 MSEC 


SET CE MODE 
INDICATORS 
800 USEC DELAY 


RESTORE 
INDEX REGISTERS 


RETURN TC CALLING ROUTINE 


PROG ID ClA-2 
PAGE 7A 











IBM MAINTENANCE DIAGNUSTIC PROGRAM PART NG. 4247617, 1BM MAINTENANCE DIAGNOSTIC PROGRAM PART NGOe &24761T 
PAGE g ? PAGE BA 
CLA2 3340 CONTROLLER INTERFACE PROBE Loop - MOD 22 aa 3340 CONTROLLER INTERFACE PROBE LOOP - MOD 12 
ERR LOC OBJECT LOVE ADDR STMT SOURCE STATEMENT ERR LOC GBVECT CODE ADOR STMT SOURCE STATEMENT 
pe cecusrescensacessenvensceeescqenansssressneccsssrassagcnonsasossseaseel 669 edhe REE HARE RHE EEE EE ERAAREE EES LESS EASES RERE RSS SET EE AS SERS ESE SELLS SS 
654 * * 670 * * 
655 * PRINT MESSAGES * 67l * CONSTANTS AND RESERVED STGRAGE AREAS * 
656 * ob 672 : 
657 * caneneneseehheSeee tees sees SEEEERSETREEREEE RES SFE TEEEE TS EST EEN ELS SSL ES 673 RSE EEE EEEUEEE EER EHEERREESERNES GESHEEER ORES ES ESET GE EEE LESS SLES SESE SEES 
658 * 674 * 
OF76 659 MSGO1 equ } 675 * CONSTANTS 
OF7T6 D3DSCIC4C9D5CT4O OF 88 660 MSGOIN oC CLI9*LOADING SECTION CL7® 676 * 
OFTE E2C5C3E3C9D60540 660 SECA 0000000000000000 OFD3 577 NULLS DC 10xL1'00° 
OF 86 C3F1FT 660 }  oFD2 0000 : 677 
661 % OFD4 05 OFD4 678 ZERO oc XL 1L*00° 
OF89 662 MSGO2 EQU s OFD5 FFFF OFDE 679 LPCNT DC 2XL1°FF® 
OF 89 ESCSEZES40C9EZ40 OFOF 663 MS GO2N be CLIS*TEST 15 LOOPING® } OFDT Gl OFOT oC XLL°O1* if/O BUSY LOUP IRCREMENT 
OF9L D3DEDEDTC IDS5C7 663 OFDS 9004 OF OS c XL2°0004° REH 
664 *¥ . 
OF38 665 MSGO6 EQU = j OFDA ODOL OFDB oc ri2t1 
OF SG C3CIDS?IDE340D09C5 OFLS 666 MSGOEN BC CLSO® CANS *T RESTART MICROPROCESSOR ~ TESTING TERMINATE OS CFOG OO14 oF OD OC EiL2* 20° 
GOFAQ EZESCIDPER4OD4C9 665 ‘ OFDE OONOCOFS OFEE OC 1L4° 256% 
ofaAR C309DSOTOIDEC3CS 666 ' 
OFBO E2E2DSD9404040E3 666 geee FESS OEE = ag LLzenk 
GEBS CSEZESCSDSCTHOE BS 666 : 
OFCO CSDIDSTESDSCLFACS 666 i CEE& GOOGLE OFEE Du i Be ENOGF TRYER WAL TIMER ENDT. AE WALUE 
OFCE C446 666 nee CG oFET dt ELZe Of 
£67 ® ; 
! SFL@ GOES OF EY OG AL Ze DASDEF ADOR OF 3360 ENTERRUPT SUBROUT ERE 
OFEA 1278 OF EB Dt AL2CNGSNS} apoOR OF RO GEAG SENSE AREA 
; oFeECc L460 OF EG of £L2¢DOCr? egTIAL DOCR PNETLALEZATION VALUE 
DELE BEUO GF EF Dt ALZEDDDE : LN ETD AL DODE INTY TALE ZATION VALUE 
i ese Rien Scag heared ated A ate Rene een RR EEE Teer ee 
& SYP EMYTERFACE CONTROL BYTES 
? OREO TOL SVPSES ECU * SYSTEM RESET S¥P CONTROL STRING 
oFEO 8802 OFFL FO2 oc ¥L2*8eGc? MALT RLCROPROCE SSOR 
GEFE G8CzZ OFFS FOS oC XE Z*9SG2$ RESET MECROPROC 
; OFFS ABGE OFFS 7G4 ee XLZPAECZ® SET SERVICE ROD 
OFFE O80 OFF? F85 DC KL2?0008* ¥8OG8 --> GP REG L 
: Offre GGOAa OFEG FOO Do KXE2eaoca® XFOQ® ==> OP REG CR 
P OFFA O08 OFFR TO? DC mi 2° coos? xegge --> OP REG 
vEFC G16C aofeh Fos oc KRLZ°QLocs RomRF <-> EXTERNAL ZONE REG 
; LFEE 2368 OFFE FOS BC XLZ°Z308* EXT REG (OST? ADDR ~-> GP REG CR 
: 2060 G0de 106% 716 oc xL 2° Co0c* R3—-R7 --> EXT ADOR REG LEXT ARS 
1002 O2F 20038 Fis BC XL2°O20F* ¥ REG --> A REG ~~? D REG 
P 1004 2200 1005 Fiz oc xLZ*O2008 REG -~> EXTERNAL REG LOST) 
é 1006 Z2F08 LOooy TL2 Do ML2° ZF CAS EXT REG (SCN? ADLR ~--> OP REG CR 
1008 6O60C 1009 fi4 dC xL2°00CC* R3-RY <-> EXT ADDR REG CEXTARS 
: 30048 O20F 100B 723 oc XL2°O20F* ¥ REG —-> A REG --> D REG 
9 100c o260 1005 7ie oc xL2°O020D° D REG --> EXTERNAL REG iSENS 
100E OGOE LOOF FiF DC XL2°*OO0AF K200% <--> SF REG CR 
4010 BF OB 1011 738 oc XL2°BFOBS INDEX VALUE (BF} -~~> OP REG Y 
} 10i2 O20F 1ci3 TLS DC XL2*O20F * OF REG Y --> A REG --> D REG 
10L4 8ECE 1015 720 DC XL2°8B0E ¢ D REG ~~> iNDEX REG 
: 1016 989€ 10i? 772i oc KXL2*O80E* SERVICE ACCESS CYCLE 
; 1018 8862 iGls 722 oC XL2°8802 5 RESET SERVICE MODE 
LOLA 2009 LOLB 723 oc XL2°2009* SYS RESET FLAG -~> X REG 
101C 9003 LOLD 724% S¥PREC oc XL2*O0035 SET SVP REQUEST 
$ = 101E OODE 1OLF 725 pC XL2¢ OGOE® EXECUTE FIRST MICRO~INSTRUCT ION 
1020 65 2020 726 K oC XL L°00* RESTGRE REG 
102% G2 102i 72? oc XLi*o2* 
} 1022 GOOE 1023 728 RUNAP oc XL 2° OOOE® START MICROPROCESSOR 
1024 FF 1024 72% oC XLItFF® END SYP STRING 
730 * 
} 1025 ceo? 1026 731 CEMODE oc Xi2°C009% CE MODE INDICATORS -~> X REG 
732 * 
le ae Occ ate la 
} 734 * COMMON INDICATORS AND WORK AREAS 
735 * 
} 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 6247617 1BM MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 4247617 
PAGE 9 PAGE 9A 
CLA2 3340 CONTROLLER INTERFACE PROBE LOOP — MOD 12 C1A2 3340 CONTROLLER INTERFACE PROBE Looe - MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1027 00 1027 736 IND DC XL1*°O° PROGRAM INDICATORS 1060 1070 804 PA2 DS XL4 CURRENT PHYSICAL ACCESS PUSITIGN 
737 * 805 * ; 
1028 1029 738 LSXR2 DS AL2 3340 INTERRUPT LEVEL XR2 STCRAGE 1072 1071 806 FF2 DS Xtl FLAG VALUE 
102A 102B 739 LSPSR oS AL2 3340 INTERRUPT LEVEL PSR STURAGL 1072 1073 807 CC2 DS XL2 CYLINDER ADORESS 
740 * 1074 1075 808 HH2 os XL2 HEAD ADORESS 
102C 1020 741 ADRPTR OS XL2 DRIVE SELECTION POINTER 1076 1076 809 RR2 oS XLl RECORD NUMBER 
742 * 1077 1077 810 KL2 OS XL1 KEY LENGTH 
102E 743 ADRTBL —FQU  *# 1078 1079 811 DL2 DS XL2 DATA LENGTH 
LO2ZE 1036 744 DS XL9 DRIVE SELECTICN TABLE 107A 107A 812 NN2 os XxLl NUMBER OF RECORDS 
745 * 813 * 
1037 1038 746 IDNCR oS XL2 INITIAL OOCR VALUE pig elbetee ee oe eee ne 
1039 103A 747 IODDR os XL2 INITIAL DOOR VALUE 815 *% 
748 * 1078 8616 DGSNS —EQUuU. # 3340 SUBSYSTEM SENSE DATA 
1038 1036 749 ROOCR os XL2 RESTDUAL DOCR VALUE 1078 1092 817 os XL 24 
1030 103& 750 RDDOR DS xXL2 RESIDUAL DDUR VALUE 1093 109% 818 SNSINT OS XL2 ADAPTER INT SENSE AREA 
751 # 819 *# 
103& 752 IOOCF EGU * INITIAL DOCF 
103F 1048 753 IODCFN OSs XL10 
754 *% 
1049 104A 755 SNS DS XL2 3340 ADAPTER SENSE INFO 
756 * 
104B 757 WORK EQuU 2 GENZPAL PURPOSE 
1048 104E 758 WORKN DS XL4& WOKK AREA 
1O4F 1050 759 CNTR os XL2 170 BUSY LOGP CNTR 
760 7 
1051 761 ORVWK EQU ¢ START OF DRV DEPENDENT WORK AREAS 
ho. Besa beh cone cas eee 
763 * DRIVE 1 INDICATORS AND WORK AREAS 
164 *% 
1051 765 ORVWK} EQU * START OF CRIVE 1 WORK AQER 
766 * 
1051 00 1051 767 DINO DC XL1°00° DRIVE DEPENDENT INDICATORS 
768 * 
1052 CO 1052 769 DRVADR oc AL1°*CO* CRIVE AODRESS 
770 # 
1053 08 1053. 771 SKMSK OC xL1°08* SEEK COMPLETE INTERRUPT MASK 
1054 80 1054 772 UCKMSK DC XL1°8O* UNIT CHECK MASK 
1055 40 1055 773 SKRST Oc xL2°4O° SEEK COMPLETE INTERRUPT RESET & BYTE 
174 * 
1056 1036 775 ¢ DS xul S10 Q BYTE 
1057 1057 776 R DS Xtl S10 R BYTE 
777 
1058 1058 778 PA DS XL4 CURRERT PHYSICAL ACCESS POSITION 
779 *# 
105C 105C 780 FF DS xtl FLAG VALUE 
105D . 105€ 781 CC DS XL2 CYLINDER ADDRESS 
1O5F 1060 782 HH DS XL2 HEAC ADDRESS 
1061 1061 783 RR os xXLl KECURD NUMBER 
1062 1062 784 KL DS XL1 KEY LENGTH 
1063 1064 785 OL DS XL2 CATA LENGTH 
1065 1065 786 NN Ds XL NUMBER GE RECORDS 
787 * 
788 Re ee te at ee es ee ee ee ee ewe Sec iwtecweceen eet Se eR ee eS Ss ee a 
789 * DRIVE 2 INDICATORS AND WORK AREAS 
790 * 
1066 791 ORVWK2 EQU * START OF ORIVE 2 WORK AREA 
792 * 
1066 00 1066 793 DIND2 DC XL1*'00°* DRIVE DEPENDENT INDICATORS 
794 * 
1667 C8 1067 795 ORVAD2 OC XLL°C8* CRIVE ADDRESS 
796 * 
1068 04 1068 797 SKMSK2 oc XL1°0O4¢ SEEK COMPLETE ENTERRUPT MASK 
1069 40 1069 798 UCKMS2 DC XL1°408 UNIT CHECK MASK 
LOGA IC 106A 799 SKRST2 oc xL1°*20° SEEK COMPLETE INTERRUPT RESET R BYTE 
800 * 
1068 106B 801 Q2 DS XL1 S10 Q BYTE - 
106C 106C 802 R2 DS XL1 . SIG R BYTE 
803 * 
DATE 15AUG75 Z2OMAYT6 PROG ID C1LA~2 DATE 15 AUG75 ZOMAY76 PROG ID C1lA-2 
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DATE 
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3340 CONTROLLER INTERFACE PROBE LOOP - MOD 12 


OBJECT CODE 


LSAUGTS 
627785 


ADDR STMT 


0001 
0002 


0004 
9008 


C100 
Ciol 


9080 
0029 
0004 
0032 


»0086 
O04O 


0080 
8620 


0640 
oo10 
0008 
0004 
0002 
oo0L 


ooolk 


0212 
O216 
O21A 
O21E 
0222 
0224 


1100 


6C00 


2OMAYTS 
571872 


B21 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
B41 
Ba? 
843 
B44 
845 
B46 
847 
848 
G49 
&50 
851 
652 
e533 
854 
855 
856 
857 
655 
859 
860 
861 
862 
863 
864 
865 
8&6 
867 
868 


876 
87? 
878 
879 
880 
88i 
$82 
683 
8e4 
§85 
886 
887 
888 





PART NG. 4247617 IBM MAINTENANCE DIAGNOSTIC PROGRAM 
PAGE 1G 


C1LA2 3340 CONTROLLER INTERFACE PROBE LOOP - MOD 12 


SGURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


ESLERKESKECRKKEKAPCKEKASEAPSREPC KS SHS SVRHK SAK SAKKS ERASE SEK SKEKS SERA RSH SEKEKSARESS 12600 889 DOGE EQU X* E2008 
~ * 890 * 
* SYMBOL CEFINITEONS * FFFF 891 END 
* * 
KASRAKECKSEKKEEKEKAKERREREKKKSEKASHEAEKSARKSKEKRRSK SSE SCRS EAE REAKKKSNLHKEKREESE 
xe 
* LOCAL STORE REGISTERS 
x 
XR1 EQU x#o1e INDEX REGESTER 1 
XR2 EQU KX*Q26 INDEX REGISTER 2 
ax 
PSR EGU X° O46 PROGRAM STATUS REGISTER 
ARR EQU X* OB! CURRENT LEVEL ADORESS RECALL REG 
& 
BR co eae ce ee te se a we en oe ce wee ce ae ee ee ae me eae ee nce cae a are ee a a a ee ce oe ee a ee a ee a ee ee ee ee Ts ccs as le wh sian 
% MESSAGE / HALT LOENTIFIERS 
4 
HLTOO EQU X*c100°8 NO HALT 
HLTOL EQu X°CLOL® COMMON 3340 ERROR HALT ; 
& 
RR ae cs oe ee ene re ae ee eee ce me rm ne A nt ae Re ON EP a le Pm Nm te A a En Mm te te en 
* COMMON PROGRAM INDECATORS (END? : 
& 
TMOUT EQU x? got COUNTER LOO TEMEGQUT SCCURRED 
INTERR EQU x229:3 ERROR DETECTED if 3340 INTERRUPT RIN! 
OPEND EQU MtGG? GP END INTERRUPT EXPECTED 
SKEND Fou 4°02? SEEK COMPLETE INTERRUPT EXPECTED 
Be cig ghia eR cee Aah a ee a ah a ae Na al ro te a Ie Ar 
cS OREVE DEPENDENT ENOICATORS EDINES 
54 
CEDM EQU ye gos CE DATA MODULE MOUNTED 
Lesw EOuU Keaoe DRIVE LOOP INDICATOR 
x 
See se ni nie ci en ce en en ne ec tO a EH no eS cr nen ce ee nS ne ne mt cm ot me tn nt 
3324G PROGRAM COFPUNICATION AREA {CGR} INDICATORS 
x 
ADRSTP EQuU x? Bor MECRGPROCESSOR ACDR STGP ENABLED 
MPLELG EQU K° 20° FICRO-PROGRAM LOADED 
= 
ec coe ce nn ce ee ce ne en ae ee nc a ne ee ec a a ee see a ne om ie ee te ef a i a 
* Bit POSITION SYMBOLS : 
= 
BETL EQU X& gage 
BITS EQU X°208 
BITS EQU x08? 
BITS EQU XO48 
BIT6 EQU x8 o28 
BITT EQU X®ol? 
: : 
a me ee i ne ne ec ce cece an ne ne ec ee eee te ee ee ae ee eee a ee a mc a a nm 
HLT EQU X* OL? TIMER *RE BYTE 
$ 
Ae cm ce com ce ne ote ec oe a a a ae a a a a a ee nm rm ee am mee mm 
* DCP SECTION REFERENCE TABLE 
& 
TEST EQU X*o212° CHECK CE CONSOLE SWITCHES 
t INK EQU X° 0216? LINK ¥O NEXT ROUTINE GR SECTION 
PRINT EQU X*O21A? PRINT A MESSAGE 
UNPACK EQU X*O21E8 UNPACK DATA -— HEX TG EBCDIC 
HALT EQU X802228 HALT AND DISPLAY HALT ICENTIFIER 
LOAD EQU X*O22h8 LGAD NEXT SECTIECN OR KECORD 
* 
ae ce a a a mr ee ae ee a ce ea ne coast 
* QTHER REFERENCES EXTERNAL TO THIS SECTION 
* 
DOCF EQU X° 11008 CONTROL FIELE EXECUTION AREA : 
LDR EQu x*6cCco° 3340 MICROCODE LOADER PROGRAM 
PROG ID C1lA-2 DATE 15AUG75 20MAY76 
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PART NO. 4247617 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO 4247617 
IBM MAINTENANCE DIAGNOSTIC PROGRAM SAGE is PAGE LIA 
CLA2 3340 CONTROLLER INTERFACE PROBE LOOP - MOD 12 CLa2 3340 CONTROLLER INTERFACE PROBE LOOP - MOD 12 
CROSS-REFERENCE CROSS-REFERENCE 

SYMBOL T LEN VALUE DEFN REFERENCES ‘ syMBOL T LEN VALUE ODEFN REFERENCES 
ADRPTR A 002 1020 0743 0124* 0141 0149% 0154* 0502 FF2 A 0OL 10721 0806 
ADRSTP C 001 0080 0858 0622 FOUR A 002 OFDS 0681 0549 
ADRTBL A OOL LOZE 0743 0107 0123 0153 HALT C 001 0222 0881 0202 
AMOPID A 002 OALE 003% HH A 002 1060 0782 02668 O270 
ARR C 001 0008 0833 0079 0217 0229 O277 0298 0317 0338 0421 0422 0423 0548 0550 HH2 A 002 1075 0808 

0578 0614 HiT C 0O1 OOOL O872 
BEGIN A 004 OA6B 0079 0048 HLTOC C OOL ClOO 0838 0100 0592 
BGONX & 004 OAE9 0134 CGE6® O175 HLTOL € OOL C101 0839 0203 
BGNO1 A 6O3 OA84 0088 IDDCE A 0O1 103F O752 
BGNO2 A 00% OABL OLOT {DDCFN A O10 1068 0753 03454 
BGNO6 A GO3 OACF O121 IDDCR A COZ 1038 O746 0104 0164% 0286 0347 0361 
BGNO7 A 003 OADD O12T 1ODDR A 002 103A O747 0105* 0165* 02906 0324 06368 0376 0379 
BGNOB A&A 006 OAEO 0130 INO £001 1027 6736 OL02* O167% 0353 0363 0370 0382* 0387% 0388* 0396 0403 0406 0410 
BITE C 001 0040 0864 : 0614 0639 O471 0478 O5C6 OSL 0515*% C519* 0526* 0553% 0569% 
BIT3 C 001 0010 0865 0505 INTERR C OOL 0020 0845 0167 0353 0414 04639 0526 
GETS C 001 0008 0866 0523 _INTSNS A&A 004 OD&7 0421 6351 0409 06413 
E175 C O01 O00%6 0867 0189 INTVL A 001 OFE? 0690 
BITE C 003 0002 0868 0325 INTXXK A 004 OD&? O042¢ 0423% 
BIT7T COOL COOOL O869 0189 192 0447 0458 0499 (0634 XK A 001 1020 0726 06208 06232 
BSYTST A 004 DEG6A 0548 0358 0366 0392 0399 0462 0473 PRL & 001 ‘362 0784 
BuSY A 004 O£64 0553 0565 0568 KL2 A OO 1077 O80 
BUSYNL A 004 O£98 0562 0548 0549% _ LOR C COk 6C0Q 0888 C565 6600 
EUSYN2 A 004 Of£EA 0570 05508 7LDRGO & 004 OLF3 0000 0586 
BUSYOL A 006 O£9C 05646 0555 0557 0558 0566 LURID A 002 OAIC 6030 ose2 
cc A 002 105€ O78} 0265# ~LDRLD A 004 OLDC 0586 0583 
Cc2 A 002 1073 0807 JL INK CC O0O1 0216 O8T6 
CEDM C OOL 0080 0852 0187 0236 0327 L10 A 0C& OLAA 0362 
CEMODE A COZ 1026 0732 0093 0643 —LIOAXL A 00% OCAE 0363 0359 
CNTR A CO2 1050 C759 05518 0552* 0564% 056% 0567 JL 1roxx2 A 004 OCC2 0370 0267 
CGH A 001 OA19Y 0027 6090 0200% 059% 0621 LUAD C OO1 O22A 0882 0205 0596 
C1A A 001 ONCO 0007 , LOOP A 006 OB1B 0264 0068 C51 
Ci7 A 002 O£F2 0598 0582 0585 PLOUPK a 004 O83t O17T 008245 
DASDE A 004 ODEB 0492 0426 0628 0692 LPCNT A OOL OFDE 0679 0567 
CASDIa A O02 OFED 1692 yLPSe C 001 C040 0853 Gi2? O173 O17% 0187 
DASOIN A 004 OF66 0539 o42i¢ FLSPSR B&B O02 1028 0739 0492% 052% 0535 
DASDIX A 003 CE63 0537 Oviss 05788 LOXR2 & 0O2 1029 0738 0693% 0528 0534 
CASDO] A 004 Of£30 O18 0507 MPL A 004 OFBE 0578 009) 
DASDO2 A 00S O&€38 0521 0516 TMPLFELG C 001 0020 0859 0090 0206 
CASDO4 A 00% OF4B 0526 0500 0512 MPLX & 004 OFFF 0605 05786 
DASDOS A 003 O£5S& O53! MPLX1 A 004 GEFF 0602 05796 
DAS006 A 006 OF 5B 0534 0524 MPLX2 A 00% OFF 0603 05808 
DASD5A A 004 OFST 0532 04224 MSGCL A OOL OF 76 0659 0590 
DOCF COOL 1100 0887 0695 MSGOIN A O19 OF 88 0660 C590 0591 
DOCR A 602 OFED 0695 0104 0164 'MS5G02 A COL OFBS 0662 oc9e 
DOOF C OC 1200 0889 0696 MSGO2N A O15 OF9T 0663 o0sa o0g¢ 
ooOR A 002 OFEF 0696 0105 0165 @SG06 A GOL OF98 0665 O1lS? 
DELAY A 004 OF5O0 6639 0635 }msGOeN A 056 OFCS 0666 0197 0198 
DGSNS A OO} 1078 0816 0184 0350% 0693 NN A 0OlL 1065 0786 C222% 0247% 0282% 03039 0345 0348 
DGSNS@ A 002 OFEB 0693 0465 0468 NN2 A O01 107A 0812 
DEND A OOL 1051 O767 UL13% O1L19" O1Z7# O173 O1LT4e O1BIF 0236 C327 JnuctS A&A 001 OFD3 0677 0130 0169 0222 0247 0282 0350 0442 6495 
DEND2 A O01 1066 0793 NXDRV A CO3 OAED 0139 0066 0193 0242 
OL A 002 1064 0785 OC61* 02917 _NXORVX A 004 OBL? 0159 0083 
DLYLP A 004 OF54 0640 0641 FNXCOL A 004 OAFO 0141 
DL2 A 002 1079 O81} NXDO2 A 00& O808 0153 0144 
DRVAOR A O01 1052 0769 0341 G343 0457 N1 & 002 OFE3 0687 
DRVAD2 A 001 1067 0795 3 ONE A 001 OFD7 0680 0564 0566 
DRYWK A OOL 1052 O761 0037 OPEND C O01 000% 0846 O67 0382 0387 O%10 0506 O519 
DRVWK1 A 001 1051 O765 0109 PA A 004 1058 C778 O270% 0287 
ORVWK2 A OOL 1066 O791 O115 PAZ A 004 1076 0804 
ERRXX A C33 OD6B 0437 0354 0390 0415 PFC A 002 OA07 0020 
ERRXXA A 004 O082 O447 0440 0443 PIO & 002 CAOL O016 
ERRXXB A COS ODA 0457 0451 PRINT C OGL O2Z1A4 0879 00%6 6195 0588 
ERRXXC A OC4 ODBA 0467 0463 PSR C 001 0004 0832 0492 0695% 0529* 0535% 
ERRXXD A 004 ODDB 0478 0474 ; PL A 002 OFDB 0683 0250 C310 0631 0636 0840 
FADIO A 002 OAZ20 6032 * P20 A 002 OFDD 0684 0255 0262 
FF A 002 105C 0780 P250 A 00% OFEL 0685 0061 

} 
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PAGE 12 + PAGE 12a 
C1A2 3340 CONTROLLER INTERFACE PROBE LOOP - MOD 12 . CLAZ 3340 CONTROLLER INTERFACE PROBE LOOP - MOD 12 
CRGOSS-REFERENCE CROSS-REFERENCE 
e 
SYMBOL T LEN VALUE DEFN REFERENCES “SYMBOL T LEN VALUE DEFN REFERENCES 
Q A OO1 1056 0775 0219% 0244% 0279% 0300* 0319* 0384 XR? C O01 COOl 0829 0O80* 0082 C083 0085 0085* CO86 O107* OLLIO OLLL O11L* 0116 O117 
G2 4 001 106B 0801 & OLL7* O121 ©O123% 0124 0125 O141* 0143 0146 0148 02148% 0149 0153 
R A OOL 1057 O776 0220* 0245* O280* 0301% 0320* 0340 0154 0155 0230* 0232 0241 0249 0255 0255* 0256 0258% 0261 0261# 
RDOCR A 002 103C 0749 0373% ; 0265 0286* 0287 290% 029% 6305* 0306 C324* 0325 0347* G348 0579 
ROODR A O02 103€ 0750 0374* 6376 0379 . 060Z* 0615 0618% 0625 0627 0627%* 0628 0639 0640* 0648* 
ROOGN & 004 OC2A 0298 0063 XR2 C 001 0002 0830 0037 0061 O109* 023230 Gii3 O115* O116 O119 0125* O127 0146*% 0155*% 
RDDGNX A 004 0C49 0312 0298% 0305 03162 . OL73 G174 O187 O219 0220 0222 C236 0244 0245 0247 90265 0266 
RDHAE A 004 OBFF 0277 0059 # 0270 0270 6279 O286 0282 0287 0291 6300 0302 0303 0366 0319 
ROHADA A 005 OCO09 0282 0320 0327 0340 0342 0343 0345 0348 0384 0453 0457 0493 0502% 
ROHAOX A 004 O0C26 0293 O277% " 0503 0503% 0509 O514 0522 05268* 0534* 0580 0603* 0616 0649% 
ROSNS A 004 OC4B 0317 0053 » ZERO A OOL OFD4 0678 0551 0552 
ROSNSX A 004 OC68 0329 C317* 0326 
RECAL A006 ORV 0217 0052 , TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
RETRY A 003 OB4Z 0182 (288 0356 ©6364 O37) O377 O380 0397 0404 O40F 0448 0455 0460 # 
0469 0472 0479 0483 
RETRY] A004 OB4F 0189 0185 
RR A 001 1061 0783 03068 ; 
RR2 A GOL 1076 0809 
RSTLP A OOS OF22 0625 0°22 0629 x 
RSTX A 004 OF72 0651 0614% ¥ 
RSTX1 A 004 OF 6A 0648 O6L5* 
RSTX2 A004 OF6E 0549 C616* % 
RIN A 001 OA03 0018 
RTNPFC A 001 OA3A 0044 60206 
RUNMP A 002 1623 0728 % 
RXX A 004 GCA3E 0048 : i 
RAXA A G04 OA4SG6 0052 
REX EB A 004 OAS5 0059 0049 % 
RXXC A 00% OA67? 0068 0050 # 
R2 A 001 106C 6802 
SEEK A 004 OB88 0229 0055 
SEEKA A 004 OBF3 0268 0224 2 
SEEXKX A OU4 OBFB 6272 O217* 0256* 
$10 A 603 OCDG4 0394 0340* 0341*% i 
STOSNS A 003 ODD8 0476 0457% 0458% ¥ 
SKEND C OOL 0002 0847 0167 0388 0410 9511 6515 
SKMSK A O0O1 1053 O771 0509 § 
SKMSK2 A OOL 1068 0797 
SKRST A OOL 1055 0773 0314 
SKRST2 A 001 106A 0799 b 
SKOL &h 003 OBAA 0244 0237 5 
SKO2 A 00S OBBS 0249 025i 
SKO3 A 066 OBDS 0259 0263 5 
SKO4 A 003 OBEB 0265 6260 
SNS A QO2 104A O755 C130® 0169% O189 0192 0442 0445% 0447 C454 0497% 0499 0505 0510 
C522 0523 0633* 063% 5 
SNSINT & 002 1064 0818 0424% 0425 0427 
SNSLP & 004 OF3B 0633 0637 
S¥PFC A 025 OASYS 0034 059% 5 
SYPREQ A 002 L010 0724 009% 06446 
S¥YPSEG A OO1 OFFO O701 0618 
S¥5RST A 004 OFC3 0614 0190 * 
TEST C OOL 6212 O877 CLS7 Z 
TiC A 0046 OC9E 0356 
TIORDY A CO& OCFB 0399 0343* 0385 0450 e 
THOUT COOL COSC 0844 0363 0370 0396 0403 0406 0471 0478 0553 0569 : 
UCKMSK A GOL 1054 O772 0453 0521 
ULKMS2 A OCL 1069 0798 } 
UDTO A C03 CAOC 0023 
UNPACK C CCL O2ZLE 0886 
WORK A OOL 104B O7T57 DAP O0234*% 0239% 0249% 02508 0253 0253* 0259 0262* G266 } 
BORKN A ONG 106E 0758 COF9* COBG 0229% 0230 0467* 0468 0625%* 0626 0631* 0636% 
REQ A004 oOC6C 0338 0268 028% 0308 0322 
KE OX A004 0043 0418 03384 ; 
xiGO2 A 004 ODOT 0396 0393 
%£003 A 00% Of23 0406 0400 O411 
- ; ; ; PROG ID Cla-2 
BAY76: PROG 1D cLA-2 DATE i5AUG75 20MAYT6 
te ns yeas cya PAGE 12. EC NOw 827785 571872 PAGE 128 

















a te ‘ALNT NOSTIC PROGRAM PART NO. 4247617 
I8M MAINTENANCE OLAGNUSTIC PROGRAM A NQ st ea MAINTENANCE DIAGNOSTIC Baee . 
CLA2 3340 CONTROLLER INTERFACE PROBE LOOP — MOD 12 _©1A2 3340 CONTROLLER INTERFACE PROBE LOOP - MOD 12 
9 
OBJECT CARD LISTING OBJECT CARD LISTING 
aie NCL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 6&1 THROUSH 96 
THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 
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Te-LC(EDE+F4OCA 5 


T#-2G6( -<E#OAASO. 


1#-38$ UIE OGDHH 
T#-3*-& XOA .ETC 
T+-48CWs /04G20 
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IBM MAINTENANCE OF AGNOSTIC PROGRAM PART NO 4247619 c IBM MAINTENANCE DI AGNOSTIC PROGRAM ? PART NO 4287619 
PAGE 2 PAGE aa 
¢c1B0 3340 DATA MODULE SCAN pom = MOD 12 Cc c180 3340 DATA MODULE SCAN pom - MOD 12 
ERR LOC OBJECT CODE AODR STMT SGURCE STATEMENT c= LOC OBJECT CODE ADDR STMT SOURCE ST ATEMENT 
Boy ' 
; 2 * LAST CHG 08 os 75 ¢ 36 KEK EREEEEERERE SEEKERS EE ETERERA SEES RERREEER RARE SEES EEE ERERSERESESEESES SS 
3 DECK 4 e 37 * * 
4a SEQ 0 38 * 3340 DATA MODULE SCAN PROGRAN * 
s TREP 39 * * 
9000 6 C18 START © 40 * aceeeneneaeehEeAAeARGEESEREHERESSSEOSSS DE EERISERESSES SOS OSE SESS SLOSS 
7 CO eee, eenekaneReENHERHESEES KESRRORREHERAESS ES RESHSSHEREAEE SS © ai *# 
8 * * OASA 91 OASA a2 RTNPFC oc KL2¢O1°? ROUTINE NUMBER 
9 * SECTION PREFACE ; *| o 0A38 00 CA3B 4&3 oc xXL1°00° ROUTINE FLAGS 
10 * * : OA3C FFFF QA30 a4 oc XL2 *FFFFS ONLY ONE ROUTINE IN SECTION 
11 ® aban ee eden HA EEHEEEREAEEASEREREEE SAREE TEESE ER ERL SESE RSE ERE SS ES SES 4S *® 
i io * S a6 Soe Suceed ced ec tecne we eaee Sane ee 
4 9ao0 13 ORG x*OA00* | : a7 * PROGRAM INITIALIZATION 
: 14 € : aa « 
GAOO C150 Oacl 15 PID oc xL2*C1iB80* SECTION ID AND REVISTON LEVEL | ©: OA3E 49 BEGIN Eau * 
oao2 oc OAG2 i6 oc xL1°00* SECTION FLAGS | F GAZE F3 C& TE so si0 K® TE X*CS? RESET AND OITSABLE 3340 INTROS 
GAO3 OF} oagos 17 RTN oc xL2*O1° CURRENT ROUTINE NUMBER | Si * 
oaca C000 Qaos 18 oc xL2*0000° RESERVED ‘ Cc: CA41 36 20 OCAIG s2 TBN COM. MPLFLG LOAD MICROCODE 
9A06 OASA cad7 19 PFC oc AL2CRTNPFC) ADDRESS OF ROUTINE PREFACE | a OAsS CO GO OFAI = ; BF MPL IF REQUIRED 
a XL2*FFFFt RESERVED 
Reopen ae a * a / | > Oasg 39 30 0208 55 BGNO! TSF SBYTE 3eSSWLAtSS¥IB BRANCH IF ANY 
OAOA €15000 OAnOoCc 22 udDTO oc xL3°*C15000° 33406 UDT | Sa? OAaD F2 90 14 sé JSF BGNO2 DRIVE SELECTED 
23 *% S7 * 
oacD CA18 24 os xL12 RESERVED OaSO CO 87 021A $8 8 PRINT PRINT MESSAGE 
25 * | © OAS4& 46 OAS4S 59 oc xL1"*46¢ *SELECT DRIVE? 
oars 00 CA19 26 com pc xXL1*00? 3340 PROGRAM COMMUNTC ATION AREA CASS 46 Oacs 60 oc AL 1¢MSGO2N-MSGO241) 
OCALA OAIA 27 os xL1 RESERVED | C OAS6 162E OAS? 61 oc AL2(MSGO2N) 
28 ¢ es OASS CIES GASO 62 oc ALZ(HLTES) 
OA1I6B OA1IC 29 LDORID os AL2 MICROCODE LDR €C17) IN STG Inprcarorl 63 * 
Caio OAIE 30 AMOPTOS os Al2 AwMop (C19% IN STG INDICATOR 1 oC OASA CO 87 0222 64 8 HALT UNCONDITIONAL HALT E4& 
CALF eA20 31 FAOID os AL2 ATTACHMENT MICRO-CODE €FAC} IN STG OASE CIES OASF 65 DC AL2CHLTES) 
; 32 * 66 * 
- 0Aa21 Oaz9 33 svVPFC os xL25 SECTION PREFACE STORAGE AREA © OAGO CC 87 CASS 67 8 SBGNS? GC TO CHECK SENSE SWS AGAER 
erence, Ne 34 * | 68 * 
CA64& 39 10 0208 69 BGNC2 (oF SBYTES-SSWIB 
rs | o OASS F2 90 OF 70 JF BGNOS BRANCH IF NOT ORISVE 3 
*. 7i *& 
OAG6B 3C Fi 1284 72 Mv I ORVsCe2z* SETUP DRIVE NUMBER 
vo Q OA6F 3¢€ CO 1285 73 “vt DRVADR.X*CO* SETUP DRIVE ADDRESS 
NN | it OA73 3C 80 1286 74 avi UCK MSK eX? 60 ® SETUP UNIT CHECK MASK 
75 * 
| o Oa7? F2 87 2A 76 J CKRDY GO TO CHECK ORIVE READY 
77 * 
| CATA 39 20 0208 78 BSGNOS TBF SBYTE3 eSSWIA 
’ | © OA7TE F2 90 OF 79 JSF BGNO6 BRANCH IF NOT ORIVE 2 
: 80 * 
| oae? 3C F2 1284 si wvti ORVeC*2* SETUP DRIVE NUMBER 
= i © oases 3C CB 1285 82 wvI ORV ADR. X*C8&* SETUP ORIVE ADDRESS 
‘ | oaso 3C 40 1286 83 vt UCKMSK oX°40 © SETUP UNIT CHECK MASK 
B84 * 
£ { © OAasD F2 87 14 85 J CKRDY GO TO CHECK ORIVE READY 
6. | 86 * 
| OA90 CO 87 OC2IA 87 BGNOS6 8 PRINT PRINT MESSAGE 
{ a) OA94 46 OAg94s 6s oc *KL1°46° INVALID SETTING 
‘ ' OA9sS 2E oags 8s oc AL1( MSGO3N-SGO341) OF SENSE SWITCHES 1A-18 
\ OA96 105C OQAOT 90 oc — AL2CMSGO 3nd 
© Oags C1E2 oas9s 91 oc AL2(HLTE2) 
: 92 * 
; OAGA CO B7 0222 93 8B HALT UNCONDITIONAL HALT E2 
; ‘ CS OASE C1E2 OASF 94 oc AL2C(HLTE2) - 
' 9s * 
. OAAO CO 87 OASD 96 8 BGNO! GO TG CHECK SENSE SWS AGAIN 
| 97 * 
\ 99 * CHECK FOR OREVE READY CONDITION 
| ©; 100 * 
| , OAAG OC 00 OAB7 1285 101 CKROY mvc ROY SNS41(1 } eDRVADR BUILD READ DIAG 
\ OAAA 3A 01 OAB7 102 SBN RDYSNS41 «BIT? SENSE COMMAND 
| o 103 * 
DATE OSAUGTS PROG ID ci ar , DATE OSAUGTS PROG 1D c18-90 
€C NO. 827779 PAGE 1 Gec NO. 6827779 ° PAGE 1A 


eo @ 
t 


IBM MAINTENANCE DOLAGNOSTIC PROGRAM 


C1B0 3340 DATA MODULE SCAN PGM - 
ERR LOC OBJECT CODE ADDR STMT 
: QAAE 31 C6 124F 104 
OAB2 31 C4 1281 105 
106 
OAB6 F3 CO 07 107 
108 
0ABS C1 C2 OABS 109 
110 
OABD 38 40 1266 11a 
OAC] F2 90 1A 112 
113 
OAC& OC 00 1063 1284 114 
115 
OACA CO B7 O21A 116 
OACE C6 OACE 117 
OACF 11 OACF 118 
CADO 106D ©AD1 119 
OAD2 C101 OAD3 120 
121 
OAD4 CO 87 0222 122 
OADS C101 OAD9 123 
124 
OADA CO 87 OA49 125 
126 
OADE OC 01 12AB 124D 127 
OAES OC 01 12AD 1245 128 
129 
CAEA 39 07 12E6 130 
OAEE Fe 90 0C 131 
132 
OAF1 OC 01 1248 1248 133 
OAF7 OC 01 12AD 1247 134 
: 135 
Ne: 136 
137 
138 
OAFD CC 03 1281 1239 139 
1460 
0803 OC 00 1082 1284 141 
142 
cBCc9 CO 8&7 021A 143 
OBOD 42 OBOD 144 
OB0E 15 OBOE 145 
OBOF 1082 0B10 146 
0B11 C100 CBi2 147 
148 
149 
150 
1Si 
0813 3C 00 12e7 152 
0B17 3¢ 01 1288 153 
154 
0B81B OC 09 12DE 1239 155 
156 
0821 CO 8? OCBO 157 
158 
0825 38 80 12A9 159 
9829 CO 10 ODT2 160 
161 
162 
163 
164 
0B2D 38 80 12A9 165 
9831 38 01 1256 166 
CB3S CO 10 0613 167 
168 
0B39 3C 00 1287 169 
083D 3C 00 1288 170 
171 
DATE OSAUG7S 
EC NO. 827779 
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Rime we we mee we Oe eee eee eee ee ee ee ee ene wom ewes eee mee ewww moe me 


Pee cm www wn ww www ww we ww we wwe Cowen oe en Co we we meee ow emma we ees cow ene wo wow eo 


moo 12 
SOURCE STATEMENT 
Lr0 DDCRe X*Cé6* 
Lic DDOR Kt Cae 
* 
RDYSNS sio X8O7*% p#&—% 
* 
TIO *oexX*C2? 
* 
TBN DODF.BIT! 
JF READY 
* 
mvc MSGO0 446(1) eORV 
* 
8 PRINT 
oc xXLi*cé* 
oc ALI CMSGO 4N—-MSG60441 9) 
oc AL2(MSGO4N} 
oc AL2(HLTO1) 
* 
8 HALT 
oc AL2CMLTO1) 
* 
8 BGNO! 
* 
READY MVC MAXCYL(E 2).P209 
MvC MAXHD(232P7 
* 
TSF DODF4+27—X* O07 
JF SCAN 
* 
MVC MAXCYL (2) eP34 
ave MAXHDOC2).P17 
= 
Bw ee ee ee en ee ewe eee ee 
* START DATA MCOULE SCAN 
* 
SCAN vc SKADR(4) e NULLS 
* 
mvc MSGOSNE 33.0RV 
* 
8 PRINT 
oc xL1¢*42¢ 
oc AL1€ MSGO SN-MSGOS+#1 3 
oc AL2(MSGO5N) 
oc AL2 CHLTOO} 
x 
*« RECAL I SRATE 
2 
RECAL MVI Qex*do® 
“vt ReX*O27¢ 
* 
wMvC NNC1C 3} eNULLS 
* 
8 xeEQ 
* 
TBN INDOUNTTCK 
eT ucKk 
& 
* SEEK 
* 
SEEK TBN IND eUNTTCK 
TBN OODF eBITT 
eT RECAL 
= 
mvI QeX*OO® 
wVvI ReX*OoO* 
e 


Cero 


OOCF AODRESS TO OOCR 


ere LOC OBJECT CODE 


3340 DATA MOOULE SCAN PGM = 


ADDR STMT 


1 
0841 0C 09 12DE 1239 i72 
DDDF ADDRESS TO ODDDR | 173 
| Cc B47 OC 03 1209 1281 174 
READ DIAGNOSTIC SENSE DATA | 175 
‘ 0B4D CO 87 OCBO 176 
LOOP ON ATTACHMENT BUSY | G 177 
| 0BS1 38 80 12A9 178 
BRANCH IF lO 0855 CO 10 0072 179 
DRIVE IS READY | © 180 
181 
ORIVE NUMBER TO PRINT MESSAGE | 182 
| © 183 
PRINT MESSAGE OBS9 3C 01 1287 184 
*ORIVE X NOT READY? | oO OBS5SD 3C 01 1288 185 
186 
: 0661 OC 09 120E 1239 187 
t 188 
| © CB67 CO 87 CCBO 189 
ERROR HALT O01 | 190 
Cc 0B6B 38 80 12A9 191 
OB6F CO 10 0072 192 
GO TO RE-CHECK SENSE SWITCHES | 193 
| CG OB73 CC 04 128D 1209 194 
SETUP MAXIMUM CYLINDER ADDRESS 0879 0C 08 12¢C8 12EC 195 
SETUP MAXIMUM HEAD ADDRESS | 196 
197 
SKIP IF NOT S 198 
CE DATA MODULE ! 199 
OB7F 3C 01 1287 200 
SETUP MAXIMUM CYLINDER ADDRESS | © 0883 3C 09 1288 201 
SETUP MAXIMUM HEAD ADDRESS | 202 
ete Doacee th ietePa © OBS7 OC 09 12DE 1239 by 
| OBSD Co B87 OCBO 205 
| Q 206 
INITIALIZE SEEK ADDRESS 0891 38 80 12A9 207 
| 0895 CO 10 ODT2 208 
ORIVE NUMBER TO PRINT MESSAGE | , 209 
0B99 OC 04 12C2 1209 210 
PRINT MESSAGE \ OBOF OC CB 12D4 12EC 211 
*START SCAN | 212 
ON DRIVE x* | © OBAS 0D 04 1280 12¢2 213 
OSAB CO 02 00C3 214 
215 
| © OB4F OD 03 1280 1281 216 
OBBS CO 01 ODC3 217 
| e 218 
0BB9 CD O8 12CB 1204 219 
SETUP @ AND R | OBBF CO 01 ODF1 220 
BYTES FOR SIO COMMAND | 221 
© 0BC3 CD 00 1289 12Cc3 222 
CLEAR ODCF AREA OBC9 CO 01 OEF1IF 223 
224 
GO TO EXECUTE COMMAND © OBCD OD O02 12CB 1243 225 
OBD3 CO 01 ODF1 226 
GO TO ERROR 227 
PRINT IF UNIT CHECK e C607 OD C1 12C5 1248 228 
| OBDD CO 84 ODF1 229 
{ oe 230 
at OBE1 OD 02 12C7 1249 231 
1 OBE7 CO 84 ODF1 232 
co TO | CG 233 
RECALIBRATE | OBEB 38 02 1205 234 
IF SEEK CHECK OBEF CO 10 OF4D 235 
| 236 
SETUP Q@ AND R | © O8F3 38 01 12D5 237 
BYTES FOR SIO COMMAND | ORF7 F2 10 11 238 

1 

| 

PROG ID gteee | DATE OSAUGTS 
PAGE oy wWEC NO» 827779 

| 

| 

| 
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| 

| 


mod 12 


SOURCE STATEMENT 


PAGE 


2a 


CLEAR DOCF AREA 
MOVE SEEK ARGUMENT TO DOCF 
GO TO EXECUTE COMMAND 


GO TO ERROR 
PRINT YF UNIT CHECK 


ee 00 ee we 0 0 SO OO 0 DS OB SO BE OD OOS OS OOD SOD OD OOD 2m OP OD) ED GD a a OP CP 


MVC =—- NNC20)eNULLS 
x 
MVC = HH 4) »SKADR 
* 
8 KEQ 
* 
TBN IND» UNI TCK 
BT UCcK 
* 
* READ HOME ADDRESS 
* 
RDH AE MVI Ge x*01° 
MVE =—- Re X#O28 
* 
MVC =NNC10)oNULLS 
s 
8 xeQ 
* 
TAN  INDeUNTTCK 
BT uck 
x 
MVC =—- HAE (5) » HH 
MVC ROE(9) ,DD0F 48 
* 
Kew om eee wee 
* READ HOME ADDRESS 
* 
RDHAO MMVI Qexec1e 
MVI = -ReX#098 
& 
MVC = NNC 103 .NULLS 
* 
8 xEQ 
x 
TBN = INDe UNI TCK 
BT ucK 
* 
MVC HAOCS) oHH 
MVC = ROO 9) -.DDDF +8 
* 
CLC = HAEC 5) HAO 
BNE HAERR 
x 
C_C HAE(46).SKADR 
BNE  HAERR 
* 
CLC ROEC9).ROO 
BNE ROERR 
* 
CLC - FFHAEC 1) »FFROE 
BNE FFERR 
* 
CLC DLROEC3)-EIGHT 
BNE  ROERR 
* 
CLC CCROE C2) » MAXCYL 
8H ROERR 
* . 
CLC HHROE(2) .NINTEN 
8H ROERR 
* 
TEN FF.BITS 
BT DEF 
* 
TEN FF.BIT7 
JT RDVKD 
* 





AND RECORD ZERO COUNT EVEN 


SETUP Q AND R 
BYTES FOR S10 COMMAND 


CLEAR DOCF AREA 
GO TO EXECUTE COMMAND 


GO TO ERROR 
PRINT TF UNIT CHECK 


SAVE HA FIELD 
SAVE RO COUNT FIELD 


ae SO ae SO Oe I eee ae Ee SD OOD Ee ae eS a ee nO OS OO OO BOOS OWS OO OEE ED 


AND RECORD ZERO COUNT ODO 


SETUP G AND R 
BYTES FOR SIO COMMAND 


CLEAR DOCF AREA 
GO TO EXECUTE CCMMAND 


GO TO ERROR 
PRINT ITF UNIT CHECK 


SAVE HA FIELD 
SAVE RO COUNT FIELD 


GO TO ERROR PRINT 
IF INCONSISTENT HA*S 


GO TO ERROR PRINT 
IF INCORRECT CCHH IN HA 


GO TO ERROR PRINT 
IF INCONSISTENT ROP S 


GO TO ERROR PRINT 
IF INCONSISTENT FLAG 


GO TO ERROR PRINT 
IF INVALIO KLOL IN RO 


GO TO ERROR PRINT 
IF INVALIO CC IN RO 


GO TO ERROR PRINT 
IF INVALID HH IN RO 


GO TO PRINT TF TRACK 
IS FLAGGED DEFECTIVE 


SKIP IF TRACK 
IS FLAGGED ALTERNATE 
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IBM MAINTENANCE OTAGNOSTIC PROGRAM PART NOo 6247619 *. TBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO 247619 
PAGE 3° PAGE 3A 
| 
c180 3340 DATA MODULE SCAN PGM - MOD 12 © c1680 3340 DATA MODULE SCAN PGM -— MOD 22 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT cc LOC OBYECT CODE ADDR STMT SOURCE STATEMENT 
\ s » 
: OBFA OD 03 12C7 12Bi 240 cic HHROE (4) sSKAOR GO TO ERROR PRINT OCAO CO B7 O21A 308 B PRINT PRINT MESSAGE 
ecoo co 01 CDF1 241 BNE  ROERR IF INVALIO CCHH IN RO CCAR 06 ocaa 309 oc XL 1°06? *END SCAN ON DRV XK? 
242 * C: OCAS 16 OCAS 310 oc AL 1( MSGO6N-NSG0641 ? 
0c04 38 01 0208 243 TBN SBYTE3.SSWIF BYPASS READ VERIFY i OCA6 1098 OCA? 311 oc AL 2(MSGOEN) 
ocos F2 10 S51 2446 JT CKALT IF SENSE SWITCH "1F* 1S ON —_. 312 * 
245 * © OCA8 38 30 0208 313 SBF SBYTE3eSSWIAtSSHUEB RESET SENSE SwITCHES 
246 gee ee re eee nnn ne on nn | 314 * 
247 * READ VERIFY KEY-OATA OCAC CO 87 0216 315 8 LINK TERMINATE SECTION 
248 * i & 316 * 
o0coB 2C 01 1287 249 RDVKD vi Qex*O1? SETUP @ AND R | 
OCcOF 3c 03 1286 250 “vi ReXx*O3* BYTES FOR SIO COMMAND | 
251 * | © 
cc13 0C O08 120D 12CB 252 MVC =-» DL (9) eROE INITIALIZE DOCF AREA | 
283 * 
CC19 OF 00 120A 123F 254 NXREC ALC RR-e»ONE ADVANCE RECORD NUMBER | © 
OC1F 3C 30 12DE 255 MvI NNe48 VERIFY ONE TRACK | 
256 * ; 
oc23 co 87 oOCcBO 257 8 xXEQ GO TO EXECUTE COMMAND | © 
258 * 
0C27 OD 03 1209 12C7 259 CLC HHC4) oHHROE GO TO CHECK NEXT | 
cc2D CO 01 OCSC 260 BNE CKALT TRACK IF HEAD ADVANCE G 
261 * 
CC31 38 80 12A9 262 TBN IND eUNTTCK G9 TO CHECK NEXT | 
0C35 CO 90 CCcsCc 263 BF CKALT TRACK 1F NO UNIT CHECK | es] 
264 * ; 
0C39 38 01 1289 26S TEN FFHAEBITT ASSUME END OF TRACK | 
OCC3D 38 02 12E4 266 TEN ODDDF.RITE IF FLAGGED ALTERNATE | @ 
0c41 CO 10 SfBF 267 et ALT AND TRACK CONDITION CHECK | 
268 *% e 
0C45 3D 00 12E4 269 cLI DOOF.0 GO TO ERROR PRINT 
0ca9s CO C1 0072 270 BNE UCK IF UNEXPECTED UNIT CHECK 
e7i 2 
OC4eD 38 20 12E5 272 JBN ODDDF+41,.8rT2 BRANCH IF END | @ 
o0cS1 F2 10 08 273 JT CKALT CYLINDER CONDITION | 
274 * | 
0C54 3D 32 12DA 275 cul RReSO GO TO CHECK NEXT RECORD | S$ 
0c58 CO 04 0C19 276 BNH NXREC IF EVEN LIMIT NOT YET REACHED! 
277 * . 
ocsc 38 01 1289 278 CKALT TEN FFHAE.BIT7 BRANCH IF TRACK @ 
o0c6o CO 10 OFBF 279 BT aLT IS FLAGGED ALTERNATE 
os 2ec * 
é BBY Bae an na a nn a a a & 
282 * ADVANCE TRACK ADDRESS | 
283 * \ 
0C64 38 BO 12A9 284 NXTRC TBN IND: UNITCK END SCAN IF | © 
OCcé68 36 20 12E5 28s TBN ODDF+41-81T2 ENO OF CYLINDER | 
oc6éc F2 10 26 286 JT NSCAN CONDITION DETECTED ! 
287 * \ © 
OC6F OF 01 1281 123F 288 acc HDC 2) e ONE ADVANCE HEAD ADDRESS | 
269 * { 
OC7S OD O01 1281 1249 290 CLC HDC 2)?eNINTEN BRANCH IF MORE | e 
0c76 CO 04 OCSB 291 - @NH  CKCYL HEADS TO BE TESTED | 
292 * 
OC7F OC 01 1281 1239 293 avec HOC 2) eNULLS RESET TO HEAD ZERO ' @ 
294 * 
OC8S OF 01 12AF 123F 295 ALC CYLC2).0NE ADVANCE CYLINDER ADDRESS | e 
296 * ( 
OC8B OD 03 1281 12A0 297 CKCYL CLC HDC4) eMAXHD BRANCH IF MORE | 
oc91 CO 04 0820 298 ®6NH SEEK CYLINDERS TO BE TESTED | ; 
299 * | © 
BQO Ba an a an a a 
301 * END DATA MODULE SCAN | 
302 * | S 
0C95 OC 00 1098 12B4 303 NSCAN MVC = MSGOGN(1) eDRV MOVE DRV NUMBER TO END MSG | 
304 * 
oc9B CO 87 O21A 305 8 PRINT SPACE PRINTER 2 LINES | © 
OCcoF 12 OCoF 306 pc xLiei2¢ | 
307 *¢ | © 
| 
DATE O5AUG75 PROG ID C1B-C| DATE OSAUG7TS PROG ID c18-0 
EC NO. 827779 PAGE 3 | ec NO. 827779 . PAGE 3a. 


€ 160 


ocBo 


ocBa 


ocss 
OCBE 


occa 
OCCA 
ccbo 
9CD6 
OCDA 


OCDE 
Ooce2 


OCE6 
OCEA 


OCEE 


ocr2 


OCFE6 


ccr9s 


OCFD 


0001 


ones 
oD09 


oD0D 


oD13 
ODi7 


CDIA 
op20 


oDb24 
obp28 


opec 


obeF 


0033 


0037 


DATE 
EC NOo 
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34 


co 


oc 
oc 


oe 
oc 
oc 
3A 
30 


38 
co 


31 
31 


38 


ce. 


F3 


<2 


ci 


30 


38 
co 


ec 


39 
Fe 


oc 
3A 


31 
31 


F3 


q. 


3A 


co 


os 


87 


00 


00 
oo 
oo 
o1 
cs 


O11 
10 


c6 
ca 


80 


oc 


oo 


c2 


oo 


cs 


92 
10 


oo 


60 
10 


00 
01 


c6é 
c4 


00 


c2 


87 


ERR LOC OBJECT CODE 


CO3A 


c2i12 


OCcF7 
ocFs 


OCcF7 
ecrFs3 
OCFE 
OcFE 
1283 


1263 
0038 


126F 
1251 


12as9 


ODIA 


oo 


OocFSs 


ocFD 


21283 


1283 
0038 


0024 


1262 
210 


opeDo 
ob2D 


Lace 
12581 


o7 


OD2F 


12a9 


oocco 


OSAUGTS 


827779 


1287 
1268 


1265 


1285 
1285 


1286 


1285 


ADDR STMT 


318 
319 
320 
321 

322 
323 
324 
325 
326 
327 
328 
329 
33¢ 
331 
332 
333 
334 
3358 
336 
337 
336 
339 
340 
341 
342 
343 
344 
345 
346 
347 
346 
349 
350 
351 

382 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
366 
369 
370 
371 

372 
373 
374 
375 
376 
377 
378 
379 
380 

361 

362 


mOoD 12 


SOURCE STATEMENT 


* 
* 
* 


Pewee wen wee me em we een oe oo een mw wens eee wwe ee wows moon oe 


READ OFTAGNOSTIC SENSE DATA 


$re mew ww emma nee eee meme ee wn wee ew on ween om 


* 
xXEG st 
* 
8 
* 
Mave 
mvc 
* 
ALC 
* 
mvc 
MVC 
SBN 
* 
SNS 
* 
TBN 
BT 
£ 
LIo 
tro 
* 
ser 
* 
TIORDY Tr90 
* 
sio Sto 
* 
Tic 
= 
TIossyY Tio 
* 
SNS 
* 
TEN 
SBT 
* 
Mave 
TSF 
JT 
* 
* 
® 
RDSNS avec 
SBN 
* 
Lio 
Lro 
* 
SIOSNS s1o 
* 
Tro 
¢ 
SBN 
* 
XEQXK 8 
& 
= 


COMMON 3340 CGMMAND EXECUTION SUBROUTINE * 


KEQX4#32 ARR 
TEST 


SIO+1(1).Q 
STOt+]°1 IR 


SI0+1¢1)-DRVADR 
TIORDOVY+1(0139 sDRVADR 
TIGSSY+1(1) -ORVADR 
TYOBSY41.BIT7 
SNS.X*CS* 


SNS eBIT? 
ACK 


ODCRexX*CE* 
DODReX* Cat 


IND. UNITCK 
RDSNS » #-% 
<-*$—-8 
#eX*Cee 

+ t—t 
SNS.x*cse 


SNS.56IT7 
ACK 


*+701) eUCKMSK 


SNS=-1 5 *-* 
XEQX 


STOSNS+41(€1)+ORVADR 
SIOSNS¢1-B81T7 


DOCReX*Cé* 
BDDORe X* Cae 


X%*°O7* »¢-8 
#.ex*coe 
IND. UNI TCK 


tome 


! 
\ 
PART NO. 4247619, 
PAGE @ 


| 
| 
| 


SES TTEE SRE RERES ES SESLSRESS SS ESE CERASELANSELL EC ESRSAE ELEC REESE SERS SESE NE) 


® 
| 


*| 


FAESEREEREERERELERERELEEEE EERE EELEREEEEESE SEE RSSEREEEREERERERERE RS EEE EE 


SAVE RETURN AODRESS 
CHECK FOR USER INTERVENTION 


MOVE @ AND R 
BYTES TO SIO 


| 
| 


ADD DRIVE ADDRESS TO Q &BYTE 


SETUP O BYTE IN TIO 
*NOT ROV / UNIT CHECKS 
*SEEK SBUSY® 


AND 
INSTRUCTIONS 


SENSE ADAPTER STATUS 


BRANCH IF i 
ADAPTER CHECK 


LGAD ODCF 
LGAD DODF 


ADDRESS IN DDCR 
ADDRESS IN DOOR 


RESET UNIT CHECK INDICATOR 
BRANCH TF ORIVE NOT READY 
FSSUE 3340 START 1/0 COMMAND 
tOOP ON ATTACHMENT BUSY 

LOOP ON SEEK BUSY 

SENSE ADAPTER STATUS 


BRANCH IF 
ADAPTER CHECK 


RETURN TO 
CALLING ROUTINE 
TF NO UNIT CHECK 


eo oOo 6 0 © 


BUILD READ OTAG 
SENSE COMMAND 


ODCF ADDRESS TO DDCR 
DOOF ADDRESS TO DDDR 


READ DIAGNOSTEC SENSE DATA 
LGOP ON ATTACHMENT BUSY 
SET UNIT CHECK INOICATOR 


RETURN TO CALLING ROUTINE 





SP OO SEED ES Ale CD a OD ED aE ED De 
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ka 


c 
e180 


or Loc OBJECT CODE 


© 


Oo 9 


co38 


0D41 
0045 


C 


004g 
004d 


eos3 
ODSs7 


e) 


oosD 
0063 
0067 
oDé6B 


OD6F 


op7e2 


oD78 
oor7c 


00e@00 


o58eo 
opas 


© 


OD&7 
oDpss 


© 


OD8E 


ope2 
CD96 


© © 


oosc 


CDSF 
ODAS 


ooao 


Cc DAC 
oDpBO 


0086 
ODBA 
oos88s 
opRaD 


© 


ODBF 


@ee0e@e@@eeeee e008 6 OO ®e 


oc 


3A 
3A 


3c 
oc 


3¢ 
oc 


oc 
31 
30 
3¢ 


Fe 


oc 


3A 
38 


38 
Fe 


38 
F2 


3A 


3c 
oc 


F2 


3c 
oc 


F2 


3c 
oc 


co 
18 


3340 DATA 


4F 


80 
40 


Sc 
oo 


oo 
i? 


02 
C7 
Cc? 
30 


8? 


ar 


ao 
40 


o1 
16 


os 
190 


40 


5Cc 
oD 


87 


sc 
oD 


87 


sc 
oD 


87 


12F8 
12A7 


ce 


87 


12A7 


OF ?C 
12A9 


1258 
1276 


12Fc 
12F8 


12ES 
1287 
12E7 
12E€8 


4a 


L2Aa7 


cF7C 
12A9 


12E4 
18 


12E4 
1E 


12aS 


1258 
1276 


17 


1258 
1276 


OA 


1258 
1276 


O21E 


OF2E 


OSAUGTS 


827779 


12a8 


10A6 


12FC 


1283 


12a8 


10864 


10C2 


icpo 
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ADDR STMT 


ODBA 
cosc 
oDBE 


384 
385 
386 
387 
388 
389 
390 
391 

392 

393 
394 
395 
396 
397 
398 
399 
400 
401 

402 
403 
404 
405 
606 
a07 
a06 
409 
410 
411 

412 
a13 
414 
415 
416 
a7 
416 
419 
420 
421 

a22 
423 
a2e 
425 
426 
427 
428 
429 
430 
431 

432 
@33 
434 
635 
436 
437 
438 
439 
440 
441 

442 
443 
444 
445 
426 
aa7 
448 
449 
450 

45i 


MOD 12 


SOURCE STATEMENT 


PART NOe 
PAGE 


4247619 
aa 


SERAEESAK AKERS SEAS KEARSE REESSSE SEAS REESE EERE SE SESE SEESEESERKEEES EE REKCE EH 


* * 
* TRACK ENDING CONDITIONS * 
* * 
RERSKAKSEKEKAEKERERE SE SKES SEKAKKE SAKE AAKKEKSEKASESSES KEKE RK SKE ELSES EEE 
* 
* ADAPTER CHECK 
x 
ac MvC MSGN(80) oe MSGN+1 CLEAR MESSAGE BUFFER 
x 
SBN PRTFLG,BITO SET FRROR PRINT FLAG 
SBN IND eERRHLT SET ERROR HALT ENDICATOR 
= 
VI MSGeCeue ERROR MESSAGE 
mvc MSG+30 eMSGO7N(14) TO PRINT SUFFER 
* 
MvVI DODF 42440 fLEAR DODF AREA 
MVC DDOF 4+23( 24) eODDF +24 
* 
MVC DODF+1(2) eSNS BUILO 
Lio SNS23eX*C7?e FORMAT 3 
SNS DODFEeSeX*C7*e OT AGNOSTIC 
MVE DDOF #7 x* 30° SENSE DATA 
x 
J PRTSNS GO TO PRINT SENSE DATA 
*& 
Re ce ee ee we re oe re ee es ee ee ee we we wm cr en ae me ee om rene we Oe Oe OMe meee ae 
x UNTT CHECK 
* 
uckK avCc MSGN( 8C ) »MSGN41 CLEAR MESSAGE 8BUFFER 
* 
SSN PRTFLG.BITO SET ERROR PRINT INDICATOR 
SBF IND »sEORHLT RESET ERROR HALT INDICATOR 
2 
TEN ODDF -BITT BRANCH IF 
JST scK SEEK CHECK 
* 
TSN OODF. BITs GBRANCH IF 
JT OcK DATA CHECK 
* 
SBN IND ,ERRHLT SET ERROR HALT INDICATOR 
* 
MVE MSG .Ceee ERROR MESSAGE 
MVC MSG430 eMSGOBN(14) TO PRINT BUFFER 
* 
J PRTSNS GO TO PRINT SENSE DATA 
x 
Fh ee ee a ce ee ae a a ae a ee Oe Oe EE Ce OE A Ow ld COED EH OED ED OES OP OD OO ED a AT a ES OP ON MO A ln EOE Cl 
* SEEK CHECK 
* 
scK mMvI MSG eC exe ERROR MESSAGE 
MVC MSG+30 e MSGOONC 145 TG PRINT BUFFER 
* 
J PRTSNS GG TO PRINT SENSE DATA 
* 
re ae ee ee em eo ee me 0 ae ee ee ee tte ae EEO OED A PEED Or OE ie ED Ki ORE OD A ee EE ane a 
* CATA CHECK 
* 
BCK MVI MSG Core . ERROR MESSAGE 
“vc MSG4306 eo MSGIONC2 4G? TO PRINT BUFFER 
* 
PRTSNS 8 UNP ACK UNPACK 
oc Irit*aae SENSE DATA 
oc AL2(ODOF4+23) TO MESSAGE 
oc AL2(MSGN) BUFFER AREA 
* 
B PRTMSG GO TO PRINT MESSAGE 
* 


PROG 10 


c16-¢ 
PAGE 








~ 
x 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NGe 4247619} fen MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 4247619 
PAGE 5 | PAGE SA 
c180 3340 OATA MODULE SCAN PGM - MOD 12 | C-e180 3340 DATA MODULE SCAN PGM = MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT l oo LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
if s 
4583 *« INVALID HOME ADDRESS | S22 De OS 8 SS OS O08 EO OOF BO OO 0 Oe PP EE A OEE DE CODED 
454 * © s22 * TRACK FLAGGED DEFECTIVE 
ODC3 OC &F 12A7 12A8 455 HAERR mvc MSGNC 80) eMSGN41 CLEAR MESSAGE SUFFER ! 523 * 
456 * i, OE4D OC AF 12A7 12A8 524 DEF mvc MSGN( 80 26 MSGN41 CLEAR MESSAGE GUFFER 
opcs 3A 80 OFT7C 457 SSN PRIFLG»BITO SET ERROR PRINT INDICATOR | @ 525 * ; 
ODCO 38 40 12A9 4s8 ser IND eERRHLT RESET ERROR HALT INDICATOR OEF53 38 80 OFTC 526 seF PRTFLG-BITO RESET ERROR PRINT INDICATOR 
45° « H OES? 38 40 12A9 527 SEF IND sERRMLT RESET ERROR HALT INDICATOR 
oD01 CO B67 O21E 460 8 UNP ACK UNPACK | © s28 * 
op0s os ODDS 461 ec TLiese HA EVEN ; OESB 3c SC 1258 529 mvt MSG Cone ERROR MESSAGE 
CDD6 1280 COD7 462 oc AL2( HAE) TO MESSAGE oe OESF oc 2A 1293 1188 530 MVC MSG459( 433 eMSGI4A TO PRINT BUFFER 
ODDS 10ED eDp0Ss 463 oc AL2(MSGIIAD BUFFER AREA > S31 * 
464 *& | OE6S OD O03 128D 12C¢7 532 cLc HHHAE (4) »HHROE GO TO PRINT MESSAGE IF 
ODDA CO 87 O21E 465 8 UNP ACK UNPACK Q OE6B F2 81 CO 533 JE PRITMSG NO ALTERNATE ASSIGNED 
ODDE 0S ODDE 466 oc 1Lie¢se HA GDO ; 534 * 
ODDF 12c2 ODEO 467 oc AL2(HAO) TO MESSAGE OE6E 3C c4 1258 §35 wVI MSGeC*DE FLAG "DEFECTIVE TRACK® MSG 
ODE1 10FD CDE2 468 oc AL2(MSGI1IN) BUFFER AREA | # 536 * 
469 * \ © OE72 OC O2 11A5 123C 537 MvC MSG14B(3)-ZERCS INITEALIZE Cyt AND HD 
COE3 3C SC 1258 470 wvt MSG,Ceae ERROR MESSAGE OE78 OC O1 11AC 123C 538 Mave MSG14N(2) eZEROS VALVES IN PRINT MESSAGE 
OOE7 OC 2C 12°5 10FD 471 mvc MSG+61 (45) eMSG11N TO PRINT BUFFER _ 539 * 
a72 * © OE7TE OC 03 12E2 12C7 540 MVC WORK43( 6) ,HHROE BLT ADOR TO WORK AREA 
ODED CO 87 OF2E 473 8 PRIMSG GO TO PRINT MESSAGE | Sai * 
a7a * \ oC OE84 OD 021 12EO 1239 542 ALTCYL cic WORK41(2) eNULES CONVERT 
BTS Bement nn ne Oe a a ae ee arm re ae ae a ae a an a ae aw ae en ee ao ce a a om me am Nene” OEBA F2 B81 10 543 JE AL THD CYLINDER 
476 * INVALID RECORD ZERO COUNT | CEBD O06 20 11A5 123D 544 AZ 4SG61486(03)9 20161) ADORESS TO 
a7? * \ ce OE93 OF 01 12EO 123F 545 SLC WORK+41 (2) eONE CECIMAL FOR 
OOF1 OC 4F 12A7 1248 478 ROERR MVC MSGN(80 ).MSGN41 CLEAR MESSAGE BUFFER | ia O£99 CO 87 OFB4 546 8 ALTCYL PRINY MESSAGE 
a79 * i Sa7 «£ 
ODF? 3A BO CFTC 60 SAN PRTFLG.BITO SET ERROR PRINT INDICATOR oO CESD OD 01 12E2 1239 S48 ALTHO CLC WORK43(2) eNULLS CONVERT 
ODFB 3B 40 1249 481 ser IND eERRHLT RESET ERROR HALT INDICATOR | OEAS F2 81 10 549 JE ALTPRT HEAD 
482 * ' OEAG6 O06 10 11AC 1230 550 AZ MSG 14N(2) eD1013 ABDORESS TO 
ODFF CO 87 O21E 483 8 UNPACK UNPACK | Q OEAC OF O01 12E2 123F §s1 sic WORK43(23 -ONE DOECIMAL FOR 
OE03 C9 OFO3S 484 oc ILiege RO EVEN | ; OCEB2 CO 87 OCESD 5S52 8 ALTHO PRINT MESSAGE 
0FD4 12¢8 CEOS 485 oc AL2C( ROE) TO MESSAGE \ S53 * 
OE0S6 1122 OE07 485 BC AL2CMSG12A) BUFFER AREA | © OEBG OC 23 12A2 11AC 554 ALTPRT mvc MSG6+7 4( 36) oe MSGI4N COMPLETE PRINT MESSAGE 
as7 «* } 555 « 
oco0B CC B87 O21E 438 8 UNP ACK UNPACK | OFBC F2 87 GF 556 J PRTMSG GO TO PRINT MESSAGE 
OEOC 09 OEOC 489 oc Irtzege RO OOD | ce 557 * 
OEOD 1204 CECE 490 oc AL2cCROO) TO MESSAGE 6S8 #—--—---—-— ad dn hace cin aires covansebivas cca es s-cean selma ena aiasantas as 
CEOF 113A O£10 491 oc AL 2(MSGI2N) BUFFER AREA 559 ¢ TRACK FLAGGED ALTERNATE 
ao2 * | © 560 * 
OE11 3c SC 1258 a93 wvi MSG eCeae ERROR MESS AGE | ae OEBF OC 4F 12A7 12A8 561 ALT mvc MSGNC BO) oe MSGN+1 CLEAR MESSAGE BUFFER 
©E1S OC 3C 12A5 113A aoa aVvC MSG477( 61).MSG12N TO PRINT BUFFER 562 * 
a95 + Co OECS 38 80 OFT7C 563 Ser PRTFLG.BITO RESET ERROR PRINT INDICATOR 
©€18 CC 87 OF2ZE 496 8 PRINSG GO TO PRINT MESSAGE | OECS 38 40 12A9 564 SBF IND -ERRHLT RESET ERROR HALT INDICATOR 
a97 *& S565 * 
a98 Gesusdeee stab ie aa Sie es eat et ca eS Sos CG OECD 3C CO 1258 566 mvI MSG eC Te INFORMATION MESSAGE 
NS 499 * INCONSISTENT FLAG BYTES | OED1 OC 25 128E 1102 567 vc MSG454( 38) »MSGISA TO PRINT BUFFER 
S00 * 568 * 
OE1LF OC @F 12a7 12A8 $01 FFERR ave MSGN( B60) eMSGNE1 CLEAR MESSAGE BUFFER | G OED7 OD 03 1280 12C7 S69 cic HHHAE( 4). HHROE GO TC PRINT MESSAGE 
so2 * CEDD F2 81 4E $70 JE PRITMSG IF UNUSED ALTERNATE 
OE2S 3a BO OF TC 503 SBN PRYFLG»BITO SET ERROR PRINT INDICATOR | S71 * 
OE29 3B 40 12a9 S04 SBF IND eERRHLT RESET ERROR HALT INDICATOR | eC OEEO 3C C1 1258 S72 MVE MSGeC*ae FULAG * ALTERNATE TRACK® MSG 
sos * S73 * 
OE2D CO B7 O2Z1E 506 8 UNPACK UNPACK | OEE4 OC O02 11FE 123C S74 mvc 4S6158(33 eZEROS INITIALYZE Cyt AND HD 
OEF31 O01 O€31 SO? oc TLiegze HA FLAG | GC OEEA OC 01 11F5 123C S75 MYC MSG 15NC 236 ZEROS VALUES IN PRINT MESSAGE 
OE32 1289 oE33 508 oc AL2 CFFHAE) TO MESSAGE | S76 * 
OE34 1156 OoE3S S09 oc AL2(MSG13A) BUFFER AREA | OEFO OC 03 12E2 12C7 577 MVC WORK43 (43 -HHROE DEF ADOR TO WORK AREA 
510 * ; 578 * : 
OE36 CO 87 OZ1E $11 8 UNP ACK UNPACK | G OEF6 OD 01 12E€0 1239 579 DEFCYL cic WORK41(23 NULLS CONVERT 
OESA 01 CE3A $12 oc tuseaie RO FLAG | OEFC F2 81 10 580 JE DEFHD CYLINDER 
OE3B 12C3 OE3C 513 oc AL2C(FFROE) TO MESSAGE C CEFF C6 20 11EE 1230 581 Az MSG615B8¢C3) 20241) ADORESS TO 
O£€3D 11509 OE3SE 514 oc AL2 (MSG1 3N) BUFFER AREA ; “ OFOS OF 01 12E0 123F 582 SLC WORK+41 (23 -ONE DECIMAL FOR 
$15 ¢ OFOB CC 87 OEFE 583 B DEFCVL PRINT MESSAGE 
OCESF 3¢ SC 1258 $16 Mvt MSGeCeee ERROR MESSAGE | e 5846 * 
OF43 OC 22 1288 1150 S17 MVC 4SG451( 35) 6 MSGI3N TO PRINT SUFFER | ! OFOF OD 01 12E2 1239 585 DEFHD cic WORK43¢€2) sNULLS CONVERT 
S16 ¢ OF1S F2 81 10 $86 JE DEFPRT HEAD 
©E49 CO 87 OF 2ZE $19 8 PRTMSG GO TO PRINT MESSAGE | G 9F18 06 1C 11F5 1230 587 AZ MSGISNC 29 -D2¢2 9 ADDRESS TO 
i € 
DATE OSAUGTS PROG ID cis-o! eons OSAUG7TS PROG ID C1B8-0 
€C NO. 827779 PAGE s | [EC NO. 827779 - PAGE SA. 
t 
| 
| 
1 
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1 
1 
\ 


; 

















5 
| 


IBM MAINTENANCE DIAGNOSTIC PROGRAM : 





e®svsesneoedeendeeeeeee © @ 


PAGE GA 


PART NO. 4247619! TOM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247619 
PAGE 6 | PAGE GA 
' c 
c180 3340 DATA MODULE SCAN PGM —- MOD 12 | - C180 3340 DATA MODULE SCAN PGM - MOD 12 
| 
ERR LOC OBJECT CODE AODR STMT SOURCE STATEMENT cr LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
1 ’ 
OFIE OF O01 12E2 123F 588 SLC WORK+4+3(2) eONE OECIMAL FOR 638 KHAARAKERKRAEREEERAAARERERERASERAAEKE SEEKERS SEEKS SSKSSAERERRETHESRETSE HE EHEREE 
OF24 CO 87 OFOF 589 8 DEFHD PRINT MESSAGE I oO 639 * * 
590 * \ as 640 * INTERFACE TO MICROCODE LOADER PROGRAM (SECTION C17) * 
OF28 OC 22 12A1 11F5 591 DEFPRT mvc MSG+73( 353 oMSGISN COMPLETE PRINT MESSAGE ' 641 * * 
592 * O42 SHKSTHKEREKSRESSERSAESSKSESAKS KEES LKEKKSETREKSASESRLAKTKEKSKE SCSKKEKEREKSERSK ERE SS 
SOD Bm we eo ee ee we ee wee we mee wwe oo ew ewe nn, W 643 * 
594 « PRINT MESSAGE OFA1 34 08 OFDS 6846 MPL ST MPL X43. ARR SAVE RETURN ADDRESS 
595 * |e 645 
OF2E OC 02 11F0 123¢ 596 PRIMSG wvc MSG16A(3? »ZEROS INITIALIZE & OFAS OD 01 OAIC OFCD 646 cic LORID(2).C17 GO TO LOAD LOADER 
OF34 OC 01 1204 123C SOT mvc SG 16N( 2) » ZEROS CYL» HD PRINT MESSAGE ; OFAB F2 01 09 647 JNE LORLD IF NOT ALREADY IN STG 
598 * | oC 648 *% 
OF3A OC 63 1262 1281 599 MVC WORK+3(4) eSKADR SEEK ADDR TO WORK AREA | *  _ OFAE OD 01 6CO1 OFCD 649 CLC LOR4+1(29-C17 BRANCH TF SECTION C17 
600 * i OFB4 F2 B81 17 650 JE LORGO IS ALREADY IN MAIN STORAGE 
OFS0 6D 01 12E0 1239 601 PRTCYL cic WORK41(2) eNULLS CONVERT ! eo 651 * 
OF46 F2 81 10 602 JE PRTHD CYLINDER | ae OFB? CO 87 O214 652 LORLD 8 PRINT PRINT MESSAGE 
OF49 06 20 12FD 1230 603 Az MSG16AC 3) 20101) ADORESS TO OFBB 46 OFBB 653 oc KLI *a6e LOADING SECTION C17 
OFGF OF 61 12E0 123F 604 SLC WORK4¢1 (2) eONE DECIMAL FOR O OFBC 13 OFBC 654 oc AL 1(MSGO1N-MSGO141)} 
OFSS CO 87 OF&O 605 B PRICYL PRINT MESSAGE ad OFBD CFES OFBE 655 oc AL2C€MSGOIN) 
606 * | OFBF ¢c100 OFCO 656 oc AL2€ML TOO? 
OFS9 OD 01 12E2 1239 607 PRTHD cLCe WORK+3(2) eNULLS CONVERT | aa) 657 * 
OFSF F2 81 10 608 JE PRT HEAD / OFC1 OC 18 OA39 OCAiI8 658 MVC SVPFC(25) eCOM~1 SAVE SECTION PREFACE 
OF 62 C6 10 1204 1230 609 AZ MSGIGNC 25 eD1iC1) ADDRESS TO i 659 * 
OF68 OF 01 1262 123F 610 sic WORK+43(€2) sONE DECIMAL FOR | QO OFC? CO 87 022A 660 8 tLOao LOAD SECTION C17 
OF6E CO at OFSS 611 6 PRTHD PRINT MESSAGE es OFCR 04 OF°B 661 oc XLi*oOae 
612 * : OFCcC 0C17 OFCD 662 C17 pc XL2*OC17* 
OF72 OC CE 1267 1204 6i3 PRT mvc MSG+15€15) »MSGI16N COMPLETE PRINT MESSAGE | #) 663 
614 * | OFCE CO 87 6C02 664 LORGO 8 Loree GO TO SECTION ¢€17 
OF78 CO B87 O21A 615 B PRINT PRINT MESSAGE 665 * 
OF7C O1 OF7C 616 PRTFLG oc xXL1°O1° CYL XXXe HD XX = ETC. 6 oFD2 co B7 CCC? 666 MPLX B +-£ RETURN TO CALLING ROUTINE 
oF 7D 50 OF7D 617 oc IL1°80" | 667 © 
Of7E i2a7 OF7TF 6:8 oc AL2(MSGN) | 
7 619 * | eo 
ie CFacC 38 40 1249 620 TEN IND eERRHLT GO TO TEST NEXT TRACK oc 
CFBS CO 90 0C64 621 SF NXTRC IF NO ERROR HALT REQUIRED | 
622 & | 2 
cCF88 CO B7 O21A 623 8 PRINT SPACE PRINTER 2 LINES l 
OFBC 92 oFsc 624 oc MLIe 92° 
625 * | e@ : 
OF8D CS 87 O21A 626 8 PRINT PRINT MESSAGE | 
CF91 Cé OF91 627 pc XL1°C6* ®°SCAN TERMINATED? 
OFO2 2B oFS2 628 oc AL1 (MSG1 7N-MSG17 41? | e 
OFO3 122F OF94 629 oc AL2CMSG17N) | 
OFOS C101 OF96 630 pc AL2CHLTOR? | 
631 * 6 
CF97 CO 87 6222 632 8 HALT ERROR HALT 01 | 
OF9B C101 oFSC 633 oc AL2CHLTO1? | 
634 *& | 8 
OFSD CO 87 0216 635 8 LINK TERMINATE SECTION 
636 * | 
ie 
| 
X i @ 
ie 
| 
| @ 
| 
' @ 
{ # 
| @ 
DATE OSAUG TS PROG ID C18-0; DATE OSAUGTS PROG 10 c18-0 
EC NOs 827779 PAGE 6 wWEC NO. 827779 : 
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PART NOe 4247619 





PAGE a PAGE TA 
! Cc AN PGM = MOD 12 
C180 3340 DATA MODULE SCAN PGM — MOD 12 ! ~ C180 3340 DATA MODULE SCAN PG Oo 
| 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ! oo LOC CBJECT CODE ADDR STMT SOURCE STATEMENT ; 
« 669 dk dRAEEEREREAAHEDERERA EAE EEHEEEEEER EE EEREERER ARES ERE EER EEE EERE ERROR EE 10F6 ETETETETETETETE7 708 
670 * *' s 709 * 
671 *€ PRINT MESSAGES *, ©: 10FE 710 MSG12 FOU * 
672 * * 10FE 6040C9D5ESC1D3C9 1122 711 MSGI2A oc CL3T*= INVALID RO — ROE XXKXXXAXAAKK ANAK A KF 
673 RERERRERAEERREEAERER ORE EERE EE ARERR EREREE SEER EERE EE EERE ER EER EREE EES SS c- 1106 C4400 SF 040604009 71% 
674 * : 110E FOCS40E7E7E7ETE? 711 
OFD6 675 MSGO1! EQUs# 1116 EVE7ETETE7EVETET 711 
CFD6 D3D6ECICS&CSDSC74C OFEB 676 MSGOIN oc CLIO*LOADING SECTION C17* ee LIE EVE7ETETE7 711 
OFDE E2C5C3E3C9060540 676 ‘. o See eee ee 113A a MSG12N OC CLZ4%— ROO XXXAXKAXAKKAK ARKH KAKA © 
OFE6 C3F1F7 676 
677 * Lge, 1133 EVETEVTETEVETETET 712 
li ae ag : oo . 1138 aia aseis Eau * 
CFES E2CSD3CSC3E340C4 1092 679 oc CL26"SELECT ORIVE TO SE USED. ° 
OFF1 DOC9IESCS40E30640 679 : C 11368 6040CED3CICTEZEO 1156 a“ "4SG13A oc CL28*=— FLAGS INCONSISTENT — HA XXx®* 
Re aaa a9 pe dan cacaperasccoacce 715 
1001 4040 679 
1003 E2DSE2Z4CE2E6E240 102E 680 MSGO2N oc CL44°SNS SWS 1A-1B SELECT DRIVES 1-2 RESPECTIVELY® C: 1153 C140E7E7 718 . : 
; 100B F1C160F1C240E2CS 680 - 1157 688009F 04CE7E7 115D 716 MSG13N DC CLT®%s RO XX 
1013 D3CSC3E3460C4D9C9 680 ee tipo oa i 
101B ESCSE2460F 16CF 290 680 7, 
1023 DOCSEZD7CSC3E3C9 680 © 115E 6CaCCED3C1IC7C7CS 1188 719 MSG14A OC CL43*=— FLAGGED DEFECTIVE - NO ALTESNATE ASSIGNED? 
1028 ESCSD3E8 680 : 1166 C440C4CSC6CSC3E3 719 
681 * oe 116E CSESC5406040D506 719 
102F 682 MSGO3 EQU * qe 1176 40C1D3E3CSD9D0S8C}3 719 
102F EZDSE2460F2E6E240 105C 683 MSGO3N oc CL46°SNS SWS 1A-18 INVALID. ONLY ONE SHOULD BE ON. * 117E E3CS540C1E2E2C9C7 719 
1037 F1C160F1C280C905 683 i 1186 D05C5C4 719 
103F £5C1D3C9C4484040 683 | C 1189 CLEZE2C9C7DSCS5C4 1145 720 MSG14B oc CL29* ASSIGNED ALTERNATE 1S CYL XXX¢ 
1191 40C1INZE3SCSDOOSC1 720 
Oey ee cscaneerescaae ee | 1199 E3C540C9E280C3E8 720 
5 104F 40E2CB8D6E4&D3C440 683 oO Dees a 
: 1057 C2Cc540060548 683 i Rae 
684 * | 11A6 6840CBC440E7E7 “1AC 721 MSGI4N DC CL7%. HO Xx® 
“ 4 U * 722 * 
os 105D CAaD9C SESC5S4CE7S0 anes ae pecan Be CLIT*ORIVE X NOT READY® | e 11A0 723 MSG15 equ * a se a 
1065 DSD6E340D9CSCICS 686 ! ute B08 Oe 1102 Ls MSGISA OC CL38*°— FLAGGED ALTERNATE - POINTS TO ITSELF® 
106D E8 686 “ 1185 C440C1D3 D 
687 * | C. 11BD C1E3C5496040D07D6 724 
106E 688 MSGOS eQqu * 11CS CODSEZE2Z40E 306490 724 
106E EZE3CIDOESSCE2ZC3 1082 669 MSGOSN oc CL21L°START SCAN ON ORIVE X®* | Cc 11CD C9E3E2C5D3C6 724 
1076 C1D580060DS80C 409 689 | ; seb ee 11EGE ee MSG158 oc CL28* DEFECTIVE PRIMARY 1S CYL XXX? 
1O7E CSESCSA0E7 689 i 
690 « | c 11E3 F8S0C9E240C3E8D3 725 
1083 691 MSGO6 eau. *® | 11EB *0E7TE7TE7 725 
1083 CSDSC440D6CE4SCE2 1098 692 MSGOEN oc CL22°END OF SCAN ON DRIVE X* | LIEF 6B40C8C44CETE7 21F5 726 MSGISN DC CL7%s HD xXx? 
1088 C3C1DS40DE0S40¢C - 692 | e 727 * 
1093 CSOCOESCS40E7 692 11F6 728 MSG16 eQU)* 
693 * | LIFS SO0C3EB8D340E7E7E7 11FD 729 MSGI6A oc CLE* CYL xXxx® 
1099 694 “SGO7 EQU) | © LIFE 6B40C8C480E7E7 1204 730 MSGI6N 0C CL7*s HD Xxe 
1009 6040C1C4C107E3C5 1086 695 MSGOTN DC CL14%= ADAPTER CK -° 731 * 
1CA1 0940C 3024060 695 12¢5 732 MSG17 Equ * 
P 696 2 { . 1205 E2C3C1DS40E3CSD9 122F 733 MSGI7N OC CL43°SCAN TERMINATED BECAUSE OF PRECEEDING ERROR® 
, 20A7T 697 MSGOB EQ * | © 120D 04C90S5C1E3C5C449 733 
10A7 GOS0E4DS5SC9E340C3 1984 698 MSGOBN DC CLi4%= UNIT CHECK —* 1218 C2C5C3C 1E4E2CS40 733 
: 10AF CA8CSC302006C 698 gx. 121D D6C640D70D9CSC3C5 733 
699 * C 1225 C5SC4C9DSC74SCCS09 733 
! 1085 700 ™SGO09 equ *¢ 1220 D9SDED9 733 
10BS 604CE2C5CSD240C3 10C2 701 MSGOON OC CL1@%=— SEEK CHECK -* i @ 734 * 
108D C8CSC 3024060 701 
702 * i 
10¢3 703 ™SG10 eau * e@ 
1CC3 6040C4C1E3C140C3 1000 704 MSGION OC CL14*= DATA CHECK —* 
10CB C8C5C3024060 704 
hits . @ 
1001 706 MSGI1 equ 
10D1 6040CS9DSESCID3C9 10ED 707 MSGIIA oc CL290%°— INVALIO HA — HAE XXXXAXXAXKAKK? 
1009 €440C8C1406040C8 707 e 
1OE1 CICSAOETETETE TET 707 
10€9 EVETE7E TE? 707 
1OEE 6B40CBCINGS40E7E7 10FD 708 MSGIIN DC CLIG*® » HAO KXXXXKKAXX ® ' 
DATE OSAUG7S PROG 10 €18-0! g,OATE OSAUGTS PROG ID €18-0 
fC NOs 827779 PAGE 7 EC NO. 827779 


PAGE TA 


| 
| 

|@ 

| 2 
| @ | : 
| 

| @ 





e 


c 





\ . : ; 
PART NO- 4247619, Crem MAINTENANCE DIAGNOSTIC PROGRAM Z PART NOOO a2a7e19 
PAGE 8 PAGE BA 


TBM MAINTENANCE DOYAGNOSTIC PROGRAM 


| 
! 
C180 3340 DATA MODULE SCAN PGM - MOD 12 ! 


© e180 3340 DATA MODULE SCAN PGM - moO 12 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ec LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
736 EaEaEER EREEEEEEERERHEREEHEEEREEEEERESE RES FEEEEER RES EEES EASE EEE ES ESE SS 803 * eecoes sino count: even 
737 * *. 12CB 804 ROE eau £48 
736 * CONSTANTS AND RESERVED STORAGE AREAS * & 12c3 12c3 305 Ce are 
739 * * 12¢c4 12CS 806 CCRO 
740 Phd ERREEKERERERERERHEREEHEREEEE EERE SEREREE CEE EERE A EEESE EE ERE ES TEESE ES Cc 12C6 12C? tia oe ee at 
741 * ea 12¢8 12c8 0 
7a2 * CONSTANTS ‘ 12cs 12C9 809 KLRCE ps xLt 
743 * G 12Ch& 12¢cB8 a OLROE os XL2 
1230 COCOCEGIDCCOOCO000D 1239 744 NULLS oc ICKLI*OC® i, 1t * 
1238 0000 T4a 1204 812 ROC eau +8 RECORD ZERO COUNT ODD 
i 745 © Co 12cCc 12CC 613 FFRCO os xL1 
123A FOFCFO 173C 46746 ZEROS oc CL3*000* Nae 12cD eo . ae se a 
T47 & 12cFr 120 H 
1230 Fi 1230 748 D1 oc cLieie € 1201 12D1 816 RRROO os XL1 
749 * Se 1202 1202 817 KLROO DS xXLi 
123F COO] 123F 750 ONE oc rL2ei¢ i 1203 1204 818 OLRCO Ds xL2 
1240 0¢c09C008 1243 751 EIGHT oc Tt4¢*s* G B19 * 
1244 0007 1245 752 P7 oc tw2e7e | ; 1205 826 DOCF eau * ODCF AREA 
1246 OO11 1247 753 P17 oc w2*i7¢ ; 12D5 1205 621 FF os XLII 
1248 0013 1269 754 NYINTEN oc mw2e198 \ oO 4206 1207 9822 CC os XL2 
124A 0022 1248 755 P34 oc IL2e¢3e¢ ae 1208 1209 623 HH os XL 2 
124C CCD! 1240 756 P209 pc IL2* 209% L2DA 12DA 824 RR oS xXLt 
757 * C 1208 12D8 825 KL os xLI 
124E 1205 124F 758 ODCR oc AL2C(DDOCF) INETIAL DDCR INITIALY ZATION VALUE i 22DC 1200 826 DL os xXL2 
1250 12€4 1251 759 DDODR oc AL2 (DODF) INITIAL DDOR INITIALT ZATION VALUE 120E 12DE 827 NN ps xLI 
760 *& : 828 * 
et Ewen teeta Lacing fs tt A ins hay ei eee ecerene eee) e 120F 829 WORK equ bd GENE FAL PURPOSE 
762 * SVP INTERFACE CONTROL SYTES i 12D 12E2 830 WORKN os XL4& WORK AREA 
763 * 631 % 
1252 0003 1253 764 SVPREC oc XL2°COO3t SET SVP REQUEST | © 12E4 832 ORG %e220 ALIGN TO AN EVEN AODRESS 
1254 COCs 1255 765 CEMODE pc XL2*coost CE MODE ENDICATORS --> XK REG | 12E4 833 DDOF EQU * 
1256 7009 1257 766 SNS23 pc xL2*coo9* SENSE ADAPTER ERROR BYTES | e 1254 12FB 834 ps XL24¢ 3340 READS WRITE BUFFER 
A I T6? * . oonincantn ince maamnemmaaaes 
T68 B-—--- ce ee er wr ae ao en a | 
: 769 * COMMON INDICATORS AND WORK AREAS | @ 
* 770 * | 
1258 771 “SG eau * 
1258 12A7 772 MSGN os ciee MESSAGE PRINT BUFFER | e 
1248 OC 12a8 773 oc KL1°Co* 
774 & | 
12a9 00 124% 775 INO oc xLIPO® PROGRAM INDICATORS | @ 
T76 © ' 
7 12AA 12AB8 777 MAXCYL os XL2 MAXIMUM VALIO CYLINDER ADORESS | 
12ac 12AD 778 MAXHD os xL_2 MAXIMUM VALID HEAD ADDRESS i @ 
779 * ' 
1281 780 SKAOR equ 43 CURRENT SEEK ADDRESS | ‘ 
12AE 12aF 781 CYL os xL2 CURRENT CYLINDER ADDRESS 
1280 1281 782 HD os xL2 CURRENT HEAD ADDRESS © 
; 7683 * { 
1262 1283 784 SNS os xL2 3340 ADAPTER SENSE FNFO ' @ 
78s * 
12B4 1284 786 DRV os cil DRIVE NUMBER ! 
1285 12865 787 ORVAOR os x1 DRIVE ADDRESS \ 
788 * & 
1286 1286 789 UCKMSK bs xe UNIT CHECK MASK j 
790 * ' @ 
1287 1287 791 0 os xLI SIO Q@ BYTE \ 
1288 1288 792 R os XLI SIO R BYTE 
793 { 
1280 794 HAE eau +4 HOME ADDRESS EVEN \ @ 
1289 1289 795 FFHAE ps xLI | 
128A 1288 796 CCHAE os xL2 : 
128¢ 128D 797 HHHAE os xL2 G 
796 * | 
12c2 799 HAO eQuU ¥+G HOME ADDRESS OOD e 
12B8€ 12BE 800 FFHAO os xL1 ; 
128F 12c60 801 CCHAD os xL2 | 
12Ci 12C2 802 HHHAO Os xL2 | e 
| 
DATE OSAUG TS PROG ID c18-0! m, DATE OSAUGTS : PROG 10 c18-9 
EC NO. 827779 PAGE a | FEC NOe 827779 PAGE GA 
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ERR LOC OBJECT CODE 


DATE 
EC NGe 


3340 DATA MODULE SCAN PGM - 


OSAUG7S 
827779 


ADDR STMT 


coos 


9020 
0010 


0001 


¢100 
coi 
cié2 
C1e4 


0086 
coat 


0020 


oceo 
0040 
0020 
oo1c 
oocs 
c004 
code 
ooci 


c20B 


0212 
0216 
C21A 
O21E 
o222 
o22a 


6co00 


836 
837 

838 
839 
840 

841 

842 
843 
B44 
845 
B46 
B47 
846 
a49 
sso 
851i 

es2 
853 
854 
sess 
ase 
657 
858 
8s9 
e6c 

861 

862 
863 
864 
865 
866 
867 
868 
869 
870 
871 

872 
673 
874 
87s 
B76 
aT? 
878 
879 
880 
881 
882 
883 
664 
ess 
e86 
887 
ese 
889 
890 
891 
892 
893 
994 
895 
896 
897 
898 
899 
900 
901 
902 


PART NOe 4247619 
PAGE 9 


MOO 12 
SOURCE STATEMENT 


RRARERERE RES EE EEEEEREEEREEEE REE EE EEE EEEREEEE EERE EEEEEEE ERE EEEER ES EEE ES 
* 


* 
* SYMBOL DEFINITIONS *| 
* * 


ee 


* LOCAL STORE REGISTERS 


ARR eau xeoee CURRENT LEVEL ADDRESS RECALL REG 
* 
*® 
pian iuedediemese es tha te Steate das Rad BA ed ta cee aaa | 
* SECTION SENSE SWITCHES 
* 
SSWI1A EQU x*20° USE DRIVE 1 ONLY 
sswi8 eau x*10¢ USE ORIVE 2 ONLY 
* 
SSWIF eau xeo1e READ HA AND RO RECORDS ONLY | 
* 
a i a ie oe Ee wwe we wee ew wwe oe 
* MESSAGE / HALT IDENTIFIERS | 
. 
HLTOO €QU x*C100" NO HALT 
HLTO! eau x*C1iCL™ COMMON 3340 ERROR HALT 
HLTE2 eau X*CLE2* SSW 11-14 OR 1A-18 INVALID 
HLTES eau x*C1E4e SELECT DRIVE TO BE INITIALTZED j 
x 
Se a a ee enn =. ae ae en ao 
* PROGRAM INDICATORS CIND) 
* 
UNI TCK eou xesor UNIT CHECK DETECTED 
ERRHLT fau x*aot HALT ON ERROR CONDITION DETECTED 
4 
cee a ee eww er ewe ewes oe ae ree owen oreo j 
* 3340 PROGRAM COMMUNICATION AREA (COM) INDICATORS ; 
* 
MPLFLG e€ou xe20¢ MICRO-PROGRAM LOADED 
* 
i rae ae ee re ae a es ee 
* BIT POSITION SYMBOLS 
* 
BITO EQu x*80* 
BIT1 eau x*aos 
BITt2 eau x*®20° | 
BIT3 eou Kx*®109# 
BIT4 eau x*ost \ 
BITS equ x*09ae 
BIT6é eau xeoze ; 
BIT? eau xeoi* | 
* ! 
Sow ee wer en no en nn ee ee en en a rn ern 
* DCP SECTION REFERENCE TABLE | 
* \ 
SOVTES eau x*0 208° SECTION SENSE SWITCHES 18-1F 
* 
TEST €ou x*o212° CHECK CE CONSOLE SWITCHES 
LINK equ X*02168 LINK TO NEXT ROUTINE OR SECTION 
PRINT EQU K*O21 AS PRINT A MESSAGE 
UNPACK EaQu K*C21E° UNPACK DATA = HEX TO EBCDIC 
HALT eau x*o222° HALT AND DISPLAY HALT IDENTIFIER 
LOAD Eau K®°O22a° LOAD NEXT SECTION OR RECORD 
ae ea we eee we ee we ee a we SF EN SE 
* OTHER REFERENCES EXTERNAL TO THIS SECTION ‘ 
& i 
LDR eau x*6C00° 3340 MICROCODE LOADER PROGRAM 
* 1 
END 
PROG ID c18-0 
PAGE 9 


f° . 
% 78M MAINTENANCE DIAGNOSTIC PROGRAM 


C180 


SYMBOL 
ACK 
ALT 
o> ALTCYL 
\ aALTHD 
ALTPRT 
~. AMOPID 
- ARR 
BEGIN 
ea 
- BGNO2 
BGNO3 
Geers 
. BITO 
BIT1 
BIT2 
. BIT3 
BIT4 
. BITS 
RIT6 
BIT7 
.cc¢ 
CCHAE 
CCHAO 
~ CCROE 
.. CCROO 
CEMODE 
_ CKALT 
CeKCYL 
CKRDY 
com 
PCYL 
c18 
C1? 
te DOCK 
OOCF 
~. DDCR 
2 ODOF 


.CdoDR 
.. DEF 
DEFCYL 
, DEFHD 
“DEFPRT 
OL 
~. DLROE 
 DLROO 
ORV 
o, DRVADR 
Bt 
EIGHT 
~ ERRHLT 
.“FAOTID 
FF 
fo” FFERR 
. FE FHAE 
FFHAO 
> FFROE 
\ FFROO 
HAE 
Coa 
» HALT 
HAO 
HD 
Ne HH 
HHHAE 
& HHHAO 


» DATE 
FEC NOe 


G 
@ 


3340 DATA MODULE SCAN PGM - MOD 


Tt 


A 
A 
a 
A 
A 
A 


Cc 
A 
A 
A 
A 
A 
Cc 
Cc 
¢c 
c 
Cc 
Cc 
c 
Cc 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 


>rPpPprrarrryrprrrry >APrPrprPprprrrr Pry 


LEN VALUE 
6006 0D38 
Océ OEBF 
oc6 CESB4 
C06 OESD 
CO0é CEBS 
002 GALE 
oc1 0008 
C01 OAZSE 
OCc& OAS 
C64 OA64S 
CO4 CATA 
00a oaso 
coi o680 
oc1 o040 
001 0020 
eo: 0010 
oo1 0008 
oc1 0004 
co1 ©0602 
oo1 0001 
co2 1207 
ecc2 1268 
co2 12c0 
oc2 12c5 
oc2 i12ce 
co2 1255 
004 ocsc 
oc6 ocEs® 
CCc&é CAAS 
ool OAI9 
O02 i12AF 
oor o0cod 
902 OFCD 
C04 DAC 
001 12Nn5 
oo2 124F 
001 1264 
oo2 1251 
Cc6 OEF4D 
006 OEFE 
006 OFOF 
C06 OF28 
oo2 1200 
eco2 12c8 
oc2 12D4 
eo1 1284 
oo: 1265 
oot 32305 
CO& 1243 
90%t 0040 
002 OA20 
001 1205 
ece6é OL1LF 
oc1l 1289 
001 12B6E 
oc1 23 
eeci 1ece 
oo1 1260 
006 oD0Cc3 
oo: 0222 
eci it2ece 
oo2 1261 
co2 1209 
co2 1280 
oo2 12C2 
OSAUG TS 
s27779 


DEFN 


0392 
oS6l 
0842 
0548 
0ss54 
0039 
0844 
09089 
ecoss 
0069 
oo78s 
008s? 
0877 
oe78 
os79 
oeso 
ose1 

08s2 
osss 
0864 
0822 
o79€ 
os0i 
6806 
O6146 
C765 
0278 
0297 
o1ci 

oc26 
o76\ 

ocos6 
0662 
6442 
0820 
o7s8 
0833 


o7s9 
0524 
os79 
osss 
osel 
0826 
0619 
0818 
0786 
o7T87 
o748 
o7S1 
0867 
0031 
0821 
oS01 
O79S5 


0800. 


oso0s 
0813 
C794 
0455 
os9s 
o7T99 
6782 
0823 
O7T97 
oso2 


REFERENCES 
0340 0358 
0267 0279 
0546 

0543 0852 
osa9 

0324 0644 
0067 0096 
ocsé 

0070 

0079 

0394 0415 
Oil 

o272 0285 
0421 

0234 O26€ 
0102 0166 
0228 

6244 0260 
0291 

co76 0085 
eos2 0658 
0295% 

0646 0689 
0422 

0758 

0104 0342 
O©11t 01306 
0403% 0405% 
C105 0343 
0235 

ose3 

e580 0589 
0586 

o252e 

0225 

O072* CO8is 
OCOoT3* OCO82* 
0544 ©0550 
0225 

©0395 0416 
0234 06237 
0223 

0222 0268 
0222 0513 
0194% 0213 
0214 o217 
CC64 0093 
0210* 0213 
0288* 0290 
OC174* 0194 
0532 0569 


12 


CROSS-REFERENCE 


0125 


0487 


0237 


0263 


O370 
0166 
0406* 
0372 


e118 
0101 
0581 


0424 


0278 


0216 


o122 
0467 
02938 
o210 


0460 


o265 


e273 


0195 
0418 


Or4ai 
0331 
0S87 


0458 


osos 


0462 


0632 


0297 
0289 


osos 


e2e7e 


O212 
0421 
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PAGE 10 PAGE 2104 
c180 3340 DATA MOOULE SCAN PGM — MOD 12 © crB0 3340 DATA MODULE SCAN PGM ~- MOD 12 
CROSS- REFERENCE G CROSS-REFERENCE 
, eet ’ 

SYMBOL T LEN VALUE DEFN PEFERENCES | SYMBOL YT LEN VALUE DEFN REFERENCES 
HHROE A 002 12¢7 0807 02351 6240 0259 0532 0540 o569 oOS577 © asei? A 001 1205 0732 0626 
HHROO A O02 12D0 0815 MSGI7N A 043 122F 0733 0628 0629 
HLTE2 C 001 CIE2 0860 0091 0094 | » NENTEN A CO2 1249 0754 0231 0290 
HLTES CC CO1 CIE4 0861 0062 0065 bX WN A001 12DE 0827 0155*% O172* O187% 02034 02552 
HLTOO C€C 001 C100 0o8sea 0147 0656 NSCAN & 0C6 OC9S 0303 0286 
HLTOL C COL C16: 0859 0120 0123 0630 0633 - NULLS A O01 1239 O744 0139 0155 0172 ©0187 ©0203 0293 6542 0548 OS7S ©0585 0601 0607 
IND A CO1l 1249 0775 C159 ClES O176 0191 C207 6262 0284 O35 O377% O395* 0416% C4az4e i ko NeREC A 006 0C19 0254 0276 

OSS58* 0481% 0504* 05274 0566*% 5620 NXTRC A&A GO&4 OC6& 0284 0621 
KL ACcOl 1208 cs25 go ONE A002 123F 0750 0254 0288 0295 05465 0551 C582 0588 6604 06190 
KLROE AOO1l 12¢9 0809 | & PFE & 002 OAO? 0019 
KLROO A COL 1202 o817 i PID A&A 0C2 O©OAO1 0015 
LOR € 001 6C€00 e9co 0649 0664 | «PRINT €C 001 C21A 0893 0058 OO08F 0136 O8f143 O305 0308 0615 0623 0626 0652 
LORGO A 0C4 OFCE 0664 0650 - %> PRT A CC6 OFT7T2 0613 0608 
LORID A002 OAIC 0029 0646 PRTCYL A CO6 OF40 0601 0605 
LDORLD A004 OFS? 0652 0647 ' g PRYFLG A COL OF7C 0616 C394% 0415% C457* 0480" 0503 0526 65632 
LINK Cc OC1 0216 oag2 0315S 6635 C PRTHD A O0C6 OFS9 0607 0602 6611 
LOAD C 001 C22A 6896 0660 PRIMSG A 006 OFZE 0596 C450 0473 0496 6519 6533 0556 0576 
MAXCYL A CO2 12A8 O777 O127e O133% 9228 c EPISNs A004 CDBE6 0445 C403 6429 0437 
MAXHD A OC2 %2AD 0778 G128% 01348 0297 i & pair A 002 3247 0753 0134 
MPL A 004 OFFAL 6644 0053 P2c9 A002 i28D o756 0127 
MPLFLG € 6001 0¢20 osrT2 0082 pze & 002 3248 O755 0133 
MPL X A 004 OFD2 0666 0644% Cio? A 002 1245 o752 0128 
MSG A0OOl 1258 9771 OS97* O398% O426% O427% 04348 O43S* O442% C443" O470% OATIX 0493% 0494" ; Q A901 1287 0791 O1S2%* 0169% 01846 0200% 02498 0328 

O516* 0517% OS29* OS30* O535* CS54% 0566* 0567" OST2# OSOLR 0613" [ge R A ©O1 1288 0792 O01S3* O170% 0165* 0201% 02508 0329 
MSGN A 080 I2A7 OT72 O392 0392* 0413 O413* 6428 0455 0455 0478 O478% O561 0501" O524 ' &. ROHAE A 004 0859 0184 

CS24* 0561 OS61* 0618 , RDEUAG A CC4 CB7F 0206 
MSGO! A O01 CFDE 0675 0656 - g~ RDSNS A O06 CDIA O367 O34? 
MSGOIN A 019 OFERB 0676 0654 6655 | &- ROVKD A CO& CCOR oO249 6238 
MSGO2 a 001 OFES 0676 0060 RDYSNS A OC3 OCABE O10- O10L® O1028 
MSGO2N 4 044 162F 0680 0060 C061 READY AC0E OADE 0127 0112 

~ MSGO3 A OC1 102F 0682 008s CorecaL A 004 O8613 6152 0167 eas es 

MSGC3N A 046 105C 0683 0089 90090 i RR A OOl 120A 0824 O254% 0275 
MSGC4 AOC1 105D 0685 Oli4* 0116 ' = RRROE A OO? 12¢C8 0808 
MSGO4N A 017 1060 0686 0118 6119 G RRROG A OOL 2201 0816 
MSGOS A 001 1!06F 0688 0145 RT™N &A O01 OAOZB 0017 
MSGOSN A 021 1062 0689 0141 0145 6186 .RTNPFC A OCL OARA 0042 0019 
“SGOC6 A001 1083 0691 0316 ) ROE & OCC1 12¢CB8 O804 0195* 0219 0252 ©4885 
MSGO6N A 022 1096 0692 O303*%* O310 0311 RFOERR A CO6 CDFI 0478 0220 0226 0229 0232 0241 
MSGO7 A CO1l 1099 0694 | gs ROO A CCL i204 0812 O212® 0219 6490 
MSGO7N A 014 1086 0695 0396 | \“SBYTES C 901 0208 os8ss 00SS 0069 O078 02463 0313 
MSGOB A 001 10A7 0697 SCAN & 006 OCAFD 0139 0131 
MSGOBN A014 1084 0698 0427 i scK A C04 ODSF 0434 0419 
MSGO9 A CO1 1085 6700 | SEEK £4 004 CB20 0165 0298 
MSGOON A C14 1002 O701 0435 { s1o A003 CCFE 0349 0328¢ 0329% 0331 
MSG10 A CO1 10C3 0703 1 gm SYOSNS A OCB OD2C 0373 0367* 0368 
MSGION A 014 1000 O704 0443 ‘SKADR A OO1 1261 0780 0139 0174 0216 ©0240 08599 
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MSG13 A 0OL 1138 0714 ' SVPREGQ A CO2 1253 0764 
MSGI3A A 028 1156 O715 Gso9 !  e. TEST € 001 0212 0891 0326 
MSG13N A 007 13150 O716 0514 0817 | % TIGBSY A004 OCFD 0353 0334 0335 
MSG14 A001 L15E O718 | TIOROY A 004 OCF2 0347 0333% 
MSGIGA A 643 1188 0719 0830 it ucK A006 0072 0413 0160 0179 0192 0208 o270 
MSG148 A029 11a5 0720 OS37* 05446 ~UCKMSK A QO1 12B6 0789 0074* 0083* 0360 
MSGIQN A OC? LIAC O721 C536% OS50% 0554 | UDTO A C03 OADC 0022 
MSGIS A OCI 11AD 0723 | gx UNITCK C 001 0080 O866 0159 O865 O178 0191 O207 6262 oO286 O345 0377 
MSGISA A C38 1102 O724 OS67 | “*“UNPACK C 001 O21E 0894 0445 0466 0465 06483 0488 0506 0511 
MSG1SB A028 11EE o725 O574*¢ OSB1i* WORK A O01 12DF 0829 O0S40* 0542 OS545* 60548 O0551% OS77* 0579 05826 0855 0588% 0590 0601 
MSGISN A CO? 11FS 0726 OS7S* OSE7* O891 | . 0604* 0607 0610 
MSG16 A O0OL i11F6 90728 1 C wornn A C04 12E2 0830 
MSGI6A A O08 11FD 0729 ©0596% 0603 xeEQ A004 OCBe 0324 0157 O76 0189 0205 6257 
MSGIEN A OC? 1204 0730 OS97* 0609*% C6613 qu A ©0& 0037 0379 0324% 0362 
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c160 3340 DATA MODULE SCAN PGM - MOD 12 


CROSS-REF ERENCE 


SYMBOL T LEN VALUE OEFN REFERENCES 
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“YHM MAINTENANCE DIAGNOSTIC FROGRAM PART NOs. 48207621 - IBM MATNTENANCE OTAGNOSTIC PROGRAM . im PART NO. 6287621 


- PAGE 2 PAGE ae 


C1F2 3340 SYSTEM TEST MODULE -- MOD 12 f C1F2 3340 SYSTEM TEST WODULE -- MOD 12 








ERR LOC OBJECT CODE | ADOR STMT SOURCE STATEMENT . & ' ERR LOC DBJECT COOE ADDR STMT SOURCE STATEMENT 
‘x : 3 } . . . ‘ . 
2% LAST CHG 02 12 76 192F 26 USING DRVWK oXR2 INDEX REG 2 POINTS TO ORV WORK AREA 
3 DECK 1 . , . , 27 £885 0490020408282 98 888 eHSSEEEREEEESESSEEER EES SESEERESESTENESSSSSS SSO S SS 
4 seo ° 7. 28 * . s. 
Ss TREP . a _ & 29 * ROUTINE 01 - READ STATUS COMMANDS TEST * 
6 . . . . : 30 * . 2 
6000 7 CIF START O , . / , 3% CRSHR EERE HESES 248204989448 O8EEEEEEEEEERESEEEED ES SBEES SE NES EEEROSE SESS 
38 EERAREREEERAEEREREREERERRERAERS DREREERERARAB ES ARERE ERS RA RRERARRS SS SSE SE oe 32 * ‘ 
9 * i OCAOD 01 OA0D 33 RTNPFC pc xXL1I°OL® ROUTINE NUMBER 
10 * SECTION PREFACE ea Sa OAODE 00 CAGE = 34 oc xL1° 00° ROUTINE FLAGS 
11 : : a Ge OAOF FFFF Caio 8 8635 oc MLO °FFEF® OPERATES AS CNE ROUTINE 
12 EAHA EERAERARE REE OESEEES RE EEER EES EE EES KERESRS REEESER SEES SESEERESEESED OS re < % 36 * 
ane 13 * ; . ge + OAL1 3B 80 18F9 . 37 ser IND eSGNSW RESET PROGRAM RESTART INCICATOR 
@a0d 146 ORG x*C A00* ; ple! 8 Ah RR 38 * : 
: 1s * _OAIS 3C OA 1EFC : - 39 RO?. MVE LPCNT>10 LOOP THIS ROUTINE 10 TIMES 
Oa0d CIF2 Oacl 16 PID oc XL2°C1F2¢ SECTION ID AND REVISION LEVEL | C: ary 40 « 
OA02 40 oao02 17 oc XL1°40° SECTION FLAGS = -Qa~1S CO e7 OFRS 41 e BEGIN PERFORM POUTINE INITIALIZATION 
-Oa0Z O1 003 18 RTN oc xLieor? CURRENT ROUTINE NUMBER | Se OCA1ID OA2S OALE 42 pc ALZCROIAD *LCOP*® SUBROUTINE RETURN ADDRESS 
OA04 0000 - @A0S 19 oc AL2(0) : . OAIF 0A3D 0a20 43 oc. AL 2€R018) eNXORV® SUBROUTINE RETURN aJDRESS 
©a06 OAOD - OROT 20 PFC oc AL2CRTNPFC) ADDRESS OF ROUTINE PREFACE | Sd 
CAOL 182A - Oa0s 21 / oc AL 2 CERRLOG) ERROR LOG ADDRESS i Oa21 CO B7 108C as 8 RECAL RECALI GRATE 
22 * "em, a6 * ; , 
OAOA C1SC00 . OaAoc 23 UDTO oc xL3*C15000° 3340 WT j 4: OA25 CO 87 12BC a7 ROLA 8 ROSKS READ DIAGNOSTIC SENSE OATA 
24 * i 7 A READ A RE o 
| : Ca29 co 87 12A - : 8 ROLOG EAD AND SET BUFFERED LOG Oe Pa 
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} sis. : } re . 
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‘Sa ms 3 MNES he A, We a a 
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/$6 * / . 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


Cc1F2 3340 SYSTEM TEST MODULE <-- 


ERR LOC OBJECT CODE ADDR STMT 
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“OD 12 


SOURCE STATEMENT 


61 
62 * 
63 * 
64 * 
65 
66 * 
OAS? 3C 00 OAG3 67 RO2 wvt 
68 * 
OAaRe CO 87 OF BS 69 e 
OASF OAS3 OasO 70 oc 
OAS! OAGE oase 71 oc 
' 72 * 
OaS3 CO 87 10BC ; 73 ROZA 8 
OaST CO 87 128C 74 8 
oasB CO 87 1159 7S e 
76 *% 
OASE CO 87 10CE 77 B 
OAE3 0&63 78 ROZAL os 
0a64S 0000 OL65 79 oc 
. 80 * 
OA66 CO 87 1159 et 8 
82 *% 
OAEA CO B7 105C 83 8 
84 * 
OAGE OF 00 0a63 1868 85 ROZE acc 
86 * 
OA7T& 3D OC 0A63 87 cu! 
OATS CO B2 10A2 88 @L 
89 * 
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ROUTINE ©2 - CYLINDER ZERO ACCESS TEST 


RO2QAL120 
BEGIN 
AL2 (RO2 A) 
AL. 2(RO2B6) 
RECAL 
ROSNS 
ROHAE 
seex 

11 
IL2*or 
RDHAE 
NXORV 
RO2SAIC1TIPeP I 


RO2ZA1¢12 
Looe 


INITIALIZE HEAD ADDR TO O 
PERFORM ROUTINE INS TIALI ZATION 
*LOOP*® SUBROUTINE RETURN ADDRESS 
*NXDRV® SUBROUTINE RETURN ADDRESS 


RECAL IBRATE 
OETERMINE DATA MODULE SIZE 
READ HOME ADDR AND RO COUNT EVEN 


SEEK 

PHYSICAL HEAD ADDRESS 

PHYSICAL CYLINDER ADDRESS 

READ HOME ADDR AND RO COUNT EVEN 
REPEAY FOR EACH ORIVE BEING TESTED 


INCREMENT HEAD ADDRESS 


LOOP UNTIL ALL HEADS 
HAVE BEEN TESTED 
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€: oases 
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cO 87 
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ROUTINE 03 = CE CYLINDER ACCESS YEST 


RO3A120 
BEGIN 

AL2 (RO3 AD 
AL2(€RO38) 


RECAL 
ROSNS 


SEEK 

TL1 
¥12°*34a9° 
RCHAE 


NXDRV 


ROSAIC1) »Pt 


ROS AI 12 
Loop 


SOURCE STATEMERT 
91 
92 * 
93 * 
94 * 
95 
96 * 
9? ROZ wvI 
98 * . 
99 8 
100 oc 
101 oc 
102 # 
103 ROBA B 
104 8 
105 * 
106 8 
107 ROZA! os 
108 oc 
109 * 
110 8 
211 * 
112 an -) 
113 % 
114 R026 ALC 
115 *_ 
116 : cur 
117 et 
118 * 
OIMARTSE 
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INITIALIZE HEAD ADDR TO 0 


PERFORM ROUTINE INTTL ALI ZATION 
- ®LOOP*® SUBROUTINE RETURN ADDRESS 


PNXORV® SUBROUTINE RETURN ADDRESS 


RECAL TERATE 
DETERMINE DATA MODULE STZE 


SEEK (3380 PHYSICAL ADDRESS) 

HEAD 0 - 11 

CYLINDER 34° 
READ HOME ADDR AND RO COUNT EVEN 
REPEAT FOR EACH ORIVE BEING TESTED 
INCREMENT HEAD aDODRESS 


LOOP UNTIL ALL HEADS 
HAVE BEEN TESTED 
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C1F2 3300 SYSTEM TEST MODULE <-- MOD 12 
FPR LCC OBJECT COOE AUDR STMT SOURCE STATEMENT 
120 cecaeeeeaeeeeceeeecaeceseeesseeeseteeeteneseseaneeennentexseeene renee ed Cs 
121 * * 
122 * ROUTINE 0& - CYLINDER ZERO READ DATA TRANSFER TEST We 
123 * * e 
1246 eR RRAE RAKES EEEREEREREE ERR EERE EEE ERE REAR EEE REESE EEE REREREEE ESSER SS 
125 * Ze 
OAAD 2¢ 00 OACS 126 ROS wvi ROCBE1+0 INITIALIZE HEAD AODR TO O Go 
127 * 
OAR1 CO 87 OF B4 128 B BEGIN PERFORM ROUTINE INITIALIZATION ws 
CABS OAC1 OAB6 129 oc AL2 CRO4B) ®100P* SUBROUTINE RETURN ADDRESS €. 
OAB7 OAES 0aBB 130 pc AL2CR04C) eNXORV! SUBROUTINE RETURN ADDRESS 
131 * ef. 
oahe CO B87 10BC. 132 ROSA B RECAL RECALI@RATE c 
OABD CO 87 128C 133 8 RDSNS DETERMINE DATA MODULE SIZE 
136 * ; 
OAC1 CO 87 10CE 135 R048 8 SEEK SEEK (3340 PHYSICAL ADDRESS) C: 
oace OACS 136 RO4BI Ds Itt HEAD 0 - 11 
OACE 0000 OAC? 137 oc IL2*08 CYLINDER 0 : 
138 * €: 
OacB CO 87 1189 139 8 RDHAE READ HOME ADDR AND RO COUNT EVEN 
140 * i 
oacc CO 87 1108 141 8 RDCKD READ COUNT-KEY-DATA : ©: 
OADO 00 Oapo 142 oc ILi*o? RECORD 0 (EVEN) i 
143 * a 
OCADI BA 01 190E 144 SBN IDOCRe 1 CHECK AGAIN USING €& 
OADS 24 01 1910 145 SBN TDDORe1 ODD STORAGE ADDRESSES 
146 * L ¥ 
OATS CO B87 1166 147 8 RDHAO READ HOME ADDR AND RO COUNT ODD . ¢: 
OADD CO 87 119F 148 a ROROOD READ KEY-DATA RECORD 0 ODD : 
149 * i 
OAE1 CO 8&7 1050 150 8 NXDRV REPEAT FOR EACH DRIVE BEING TESTED eS 
151 * 
OAES OF 00 OCS 18C8 152 RO4C ALC RO6B101).P1 INCREMENT HEAD ADORESS ee 
153 *  & 
OAEB 3D OC OACS 154 on i RO4B1 012 LOOP UNTIL ALL HEADS 
OAEF CO 82 10A2 155 BL Looe HAVE SEEN TESTED 
156 * & 
rm 
’ | © 
@ 
:@ 
\@ 
'@ 
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159 * « 
160 * ROUTINE 05 - CE CYLINDER READ DATA TRANSFER TEST * 
161 * * 
162 SRA RAERHREARORKEESERERENSEEREE SESE ESE ESSR ASSESSES SEES EEE SE SSS SSS TESTES 
163 * 

164 ROS “v1 PO5SE160 INITIALIZE HEAD ADOR TO 0 

165 * 

166 8 BEGIN PERFORM ROUTINE INITIALIZATION 

167 pc AL2 CROSB) ®*LOOP* SUBROUTINE RETURN ADDRESS 

168 pc AL2CROSC) eNXDRV! SUBROUTINE RETURN ADDRESS 
169 * 

170 ROSA B RECAL RECAL TBRATE 

171 B RDSNS DETERMINE DATA MODULE SIZE 

172 * 

173 ROSB 8 SEEK SEEK (3340 PHYSICAL AOORESS ) 

174 ROSBI DS 1u1 HEAD 0 - 11 

175 cc I12°¢3a9° CYLINDER 349 

176 * 

177 ROSe2 8 ROHAE READ HOME ADDR AND RO COUNT EVEN 
178 * 

179 8 RDCKD READ COUNT-KEY<DATA 

180 oc IL1°0° RECORD 0 CEVEN) 

181 * 

182 8 RDCKO READ CDOUNT-KEY-DATA 

183 DC turer RECORD 1 

184 * 

185 CLC —s- OL C3 XRZIOP2EE GO TO ERROR END IF 

186 BNE FERRIS RESIDUAL KL/OL INCORRECT 

187 * 

188 L IDDDR, XR1 POINT TO RESIOUAL DODF 

189 * 

190 ROSB3 CLC 304.XR1)eNCP ITN GO TO ERROP END IF 

191 BNE ERRIO RESIDUAL DDOF IS INCOPRECT 

192 * 

193 SLC ROOCF48(2)eP4 LOOP UNTIL ALL OF 

194 @NZ ROSB3 RESIOUAL DODF HAS BEEN CHECKED 
195 * ; 

196 TBN IDDER.1 READ AND CHECK 

197 SBN IDOORe! RECORD 1 AGAIN 

198 BF ROS82 USING ODO STORAGE ADDRESS 

199 * 

200 8 NXDRV REPEAT FOR EACH ORIVE BEING TESTED 
201 * 

202 ROSC ALC = ROSB1 (1) Pl INCREMENT HEAD ADDRESS 

203 * isos 

204 cur ROSE1+12 LOOP UNTIL ALL HEADS 

205 BL LooP HAVE BEEN TESTED 

2cu * 
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PAGE ah Gace 
wed 12 ge GIFS 22A0 SYSTEM TEST MODULE =~ MOD 12 
STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
208 eke RR AEHERE RHR EEER EE CERERAE ADRS RREEERE EERE EGE ERED TEST LE RE SES SES SESEE SE €: 263 cepacenusenaneuneuethtseeS4eee SOG SERED EERERESSSESSARSOSSSSEE IES 
209 * * 264 * : 
210 * ROUTINE 06 - WRITE DATA TRANSFER TEST * €: 265 * ROUTINE O07 - WRITE HOME ADDRESS TEST 
211i x Sy 266 ~* 
212 * ceccaceesssutuceteasesanaseenOnsGOne REETERRESEAREHEREERSRES EASES AES 267 * ecereeperasusecanenenacaaxeneenenenasanasen tne Genesee ee oes sees eee ee 
213 * ‘o-. 266 * 
Z21& ROE MvI LPCNT 610 LCOP THIS TEST 10 TIMES we 5BCA CO 87 SFBS 269 RO7 6 BEGIN PEPFORM ROUTINE INITT M IZATION 
215 * OBCE OBDA OBCF 276 oc ALZCRG TAD eLODP® SUBROUTINE RETURN AODRESS 
216 e PEGIN PERFORM ROUTINE INITIALIZATION ec OBDO OBFS OBDi 27! DC AL2 (ROB?) ®NXDRV* SUBROUTINE RETURN ADDRESS 
2.7 pc AL2(RO68) *LOOP? SUBROUTINE RETURN ADDRESS Se 272 « 
218 oc AL2CTROS6C) eNXDRV® SUBROUTINE RETURN ADDRESS OoBDZ CO 87 10BC 2T3 e RECAL RECAL IBRATE 
219 * C ceps co 87 i2Bc O74 B RDSNS DETERMINE DATA MODULE SIZE 
220 ROGA 8 RECAL RECALIBRATE “ie 275 * 
221 6 RDSNS DETERMINE DATA MODULE SIZE ' OBDA 8B 08 00 276 ROTA TBN DIND( oXR2 be NOWP BYBASS OR IVE iF 
222 % } c: oepo co 10 i050 277 BT NXDRY WRITE INHEBITED 
223 a SEEK SEEK (3340 PHYSICAL ADDRESS? SNF 278 % 
224 oc ILito? HEAD 0 : OBE1 CO 87 10CE 279 8 SEEK SEEK (3340 PHYSICAL ADDRESS) 
225 oc IL]°B4ge CYLINDER 349 Le OBES 00 OBES 280 oc TLi°08 HEAD 0 
226 * » OBES O15D OBE? 281 oc IL2°349° CYLINDER 349 
227 RO6S BN DIND € eXR2}¥ oNOWR BYBASS DRIVE IF KMG 262 % 
228 BT NXDRV @RITE ENHIBGITED KMG @ OBES CO 87 1159 283 B ROMAE READ HOME ADDR AND RO COUNT EVEN 
229 * KMG te 284 * 
230 6 ROHAE REED HOME ADDR AND RO COUNT EVEN KMG OBEC CO B87 1303 285 8 WRHAD WRITE HA AND RO OOD 
231 * : ga oRFO CO B87 1166 286 B RDHAD READ HA AND RO COUNT OD 
232 RO6B! 8 ROCKD PEAD COUNT-KEY-DATA & 287 * ‘ 
233 pc wLieie RECORD i OoBFa co 87 1050 288 z 8 NORV REPEAT FOR EACH DRIVE BEING TESTED 
234 *% @ 269 * 
235 e WRCKD WRITE COUNT-KEY-DATA ; 
236 pc tur 2e RECORD 2 | 
237 ec ILI *0? NN = 06 j @ 
238 * . 
239 B RDCKD READ COUNT-KEY-DATA 
240 oc ILiee2s RECORD 2 @ 
2412 « . 1 
242 cic DL{ BexR2) oP 256 GO TS ERROR END IF 
243 BNE ERRISB RESIDUAL KL7DL INCORRECT 
244 *& @ 
2458 L IDOOR. KRY POINT TO RESIDUAL DODF 
246 * Se 
247 ROEB2 cic 340 XR1}eWCPIN GO TO ERROR END IF { 
248 BNE ERRIO RESIDUAL ODDF IS INCORRECT \ 
2a9 * 
250 SLC RODCF4E(2)0F4 LOOP UNTIL ALL OF i S 
251 BNZ ROG B2 RESIDUAL DODF HAS BEEN CHECKED 
252 * i & 
253 TBN IODORe 1 WRITE AND CHECK 
254 SBN TODOR61 RECORD 2 AGAIN ; 
255 eF RO6B USING ODD STORAGE ADDRESS \ 
256 4 | & 
257 8 NXDRY REPEAT FOR EACH DRIVE BEING TESTED | 
258 * i 
259 ROGC SLC LPCNTC1} oPi LOOP THIS TEST 10 TIMES | @ 
260 BNZ icoP : 
261 * i 
,@ 
| @ 
| 
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291 cenenscseaenccanseasseseaeseesseceesensneeeeoeseseeenes SOG5S5S 20 8SESE G& 


350 snsavesanssusenaseacssxcaanssceseassnsasseasanseresseseeseeeeeee Seer 
292 * ®, ; 


ny ae me te 




















* 
351 ® 
293 * ROUTINE 08 - HEAD WRITE/READ TEST ‘i 6 352 * ROUTINE 09 = WRITE KEY-DATA TEST .. 
7 i : 2904 2% : 353 * 
: 295 * nenaenenaendseaesnsessesesOROEeSHee seh SEAR ESEASEE ARES ASSESSES SSO ETS 354 * eeacencsacancossaseanccessnennscsaneneasanseasesesesss eoree eee 20007 5S ’ ad : 
( . 296 *  o- 355 * eof Pee 
4 oBFS 3C 00 0C17 207 -ROB MVY  =—- ROBB 100 INITIALIZE HEAD ADDR TO ZERO € 0c70 CO e oF BS ate ase ROO 5 Bre oe CERO ROUT EN NETURN ADDNESS = 
i 298 * oc74 0cs QuT 
1 oeFc co 87 OF BS 299 8 BEGIN PERFORM ROUTINE INITIALIZATION oc7é 0013 0c77 358 pc AL2ZCROAD | eNXDRV® SUBROUTINE RETURN ADDRESS 
oh ocoo ococ o0co1 300 oc AL2 CROSB) *L002* SUBROUTINE RETURN ADDRESS & 359 * 
‘ oco2 0cé2 oco3 301 pe AL2CROSC) eNXDRV® SUBROUTINE RETURN ADDRESS 0c78 CO 87 108C 360 ROSA B RECAL RECALTERATE Stee chen give 
| 302 * CG oc7c CO 87 128C 361 8 ROSNS DETERMINE DATA MO 
ocoa co 87 108C BOB ROBA 8 - RECAL RECALTERATE ; 362 * 
ocos co 87 128C¢ 306 B RDSNS DETERMENE DATA MODULE SIZE sas ocso co 87 10CE 363 2 a aCe PHYSICAL ADDRESS? 
305 * em 0cs84 00 oces 86364 
| ococ Bs o8 0O : 306 ROBB TBN DINO ( oXR2) eNOWR -BYeBasS ORIVE IF KMG G oces 0350 oca6é 365 oc IL2* 349° CYLINDER 349 oie 
coF co 16 1050 307 BT NXDRV WRITE INHIBITED KMG 366 * 
ate ai ora 308 * ‘ . * ocs7 B8 08 00 367 ROSB JBN DIND(oXR2) eNOWR BYBASS ORIVE IF EMS 
| 0ci3 CO 87 10CE 309 8 SEEK SEEK (3340 PHYSICAL ACDRESS ? KMG G ocea CO 10 105D 368 eT NXORV WPL TE INHIBITED | ; KMG 
oci7 = oci? 310 RoeBl os 1 HEAD O = 11 369 * . 
of oc1e 015D 0ci9 «(312 pc 112°349° CYLINDER 349 c ocst co 87 1159 370 8B RDHAE READ HOME ADOR AND RO COUNT EVEN KMG_ 
- | . 312 8 - 371 * 7 3 
: : _ ocsa CO 87 1159 313 e ROMAE READ HOME ADDR AND RO COUNT EVEN ocs2 Co 87 131€ 372 e wRROO (WRITE RECORD ZERO CNT-KEY<DATA OOD | 
: 2 314 * 373 * | . ; 
i _ ° 9C1€ cO 87 131€ 315 e wRROO WRITE RECORD ZERO CNT-KEY-DATA ODD ¢ ocs6 oc 01 18FC 1910 374 MVC LECNT (C222 FOOOR | SAVE INITIAL DDDR VALUE 
ue ’ oe 216 * 375 * ' ~ 
oc22 ¢cO SB? 1108 . “317 ROEBS 8 RDCKD READ COUNT -KEY~OATA . ococ co 87 1108 376 8 - RDCKD _ READ COUNT<KEY<DATA 
oc26 01 | oc26 318 oc waist “RECORD 1 : ; G OcAo 01 ocao 377 oc 171° RECORD 1 
, 319 * i 378 * ; : 
oc27 CO 8&7 1345 320 8 WRCKD WRITE COUNT-KEY “DATA | G ocal eC 02 13 1800 379 MVC —- DL C3 XRQVOPE _ «SET DATA LENGTH © SO es 
oc 28 02 oc2B 321 oc ti2¢ RECORD 2 380 * at a oe a eg ag 
oceac 14 _ oc2a 322 oc EL1¢20° : NN = 20 _OCA6 CO 67 1343 3a1 8 WRCEKO WRITE COUNT-KEV<DATA 
. - ° 323% eof ocaa 02 OCcAA 382 pe = L828) : RECORD 2 
-‘oc2eD CO SB? 1106 : 324 8 ROCKD READ COUNT-KEV<DATA { S$ OCAB 14 : ecaB 383 ere oc —1L1*20* : NN = 20 ee 
0c31 15 0c31 «325 oc tL2e21¢ RECORD 23 384 ¢ . ; : 
326 * i ecac CO 87 13C6 38s 8 WRED  . WIRETE KEV-DATA : 
OC32 BD 02 13 16DA 327 CLC = OLE 3 eo XR2) eP256 GO TO ERROR END IF - ‘ © 0CB0 02 oceo 366 oc mie2¢ ges : RECORD 2 best 2A 3h ga, bw 
oC3? CO O01 1668 328 BNE ERRIS RESIDUAL KL/OL INCORRECT ecet 04 ocBi 387° oc. IL1°e4a2. . NN = 4 oS Ae 2 erie 
329 * eo 386 +. z 
Oc3B 35 01 1910 330 u TODOR eXR1 POINT TO RESTOUA DDDF \ @  oceze oc 01 1910 1924 389 MVC EDDDRC2PeRDDOR =. ADVANCE ENI'VTAL DDOR VALVE © 
331 * . ; rie acoce | 2 - 
OCF 8D O63 O3 1 8E6 332 R0683 euic BCS eXR1) oWCPTN GO TO ERROR END IF ocae CO BF 13CE 391 B WRKO WRITE KEV-DATA 
ocaa CO 01 1670 333 BNE ERRIO RESIDUAL DODF 1S TNCORRECT re] ocec 06 ocec 392 . oc IL1°6° RECORD 6 
0 1 1927 18C | ee 7 SLC. RDDCF48 (29504 Loop UNTIL ALL OF ae OER ee es ae aaa 
f. cae oF O1 1927 18CC 3 Lc + ° 394 * 2 ed 
se OCAE CO 01 OCTF +336 eNz ROEES PESIDUAL DDDF HAS BEEN CHECKED | @ ocee oc 01 1910 18°C 395 "ye = TDDORC2PeLPCNT RESTORE INITIAL DDDR VALUE 
337 * 396 * . ; : 
ocs2 38 03 1910 338 '  -‘TBN TODDRe2 WRITE AND CHECK | occa 3C 00 39A0 397 MVI  «- DODF +5020 a CLEAR 
OCS6 3A 01 1910 339 SBN IDDDRel RECORD 21 AGAIN @ occa oc 2c 199F 19A0 398 MVC «DOD +49145).D00F 450 2=«—«—— (“ss READ AREA 
ocsa CO 90 0C22 340 er ROBB2 USING ODD STORAGE ADDRESS 399 * a 
- 341 * OCcce CO 87 1205 400 B _ ROKD READ KEY=DATA — 
OcsE CO B67 1050 pepe 2 NXORV REPEAT FOR EACH ORIVE BEING TESTED | eS ocb2 02. ocv2 401 oc mwie2¢ , RECORD 2 
eS _OCD3 0S ecp3 402 oc ruies¢ aN = 5S 
O0C62 OF 00 OC17 18C8 30a ROBC ALC ROBB1C1}eP2 INCREWENT HEAD ADORESS | 403 * 2 | 
ead 365 6 ar | © OCD% OC 01 1910 1914 404 MVC IDDDR(23eRDODR ADVANCE INITIAL DDDR VALUE - 
, 0C€68 30 08 OC17 : 346 CLI ROBBI oll LOOP UNTIL ALL os 405 * 
: OC6C CO 0% 10A2 347 enH LOOP HEADS HAVE BEEN TESTED e ocoa CO 87 1205 406 a :) RDKD READ KEY-DATA 
308 * OCDE OF OCDE 407 . .o¢ wierve 2 RECORD 7 
OCOF 04 ocorF 408 pc TLieae NN = 4 
‘ a09 * : 
| G OCEO OC 01 29130 16FC 410 | MVC 8 8=—- TODD RI 2) eLOCNT RESTORE INITIAL DOOR VALUE 
[: OCEG 35 0% 1910 ait t TDDOR eXRI POINT TO RESTOUAL ODDF 
¥ - @12 % 
% | Gc OCEA OC Of 18FC IGDA a13 “MVC. LPCNT(2)eP256 © SETUP LOOP COUNTER 
‘£ ! . ai16 * , 
é ~ _ QCFO 4D 03 03 18E6 415 R0962 CLE  «- BLA oAKRI VOWCOTN GO TO ERROR END. IF gah ee 
yO | G OCcFs CO 01 1670 _ @16 BNE ERRI9 RESIDUAL DDOF 1S INCORRECT = =. “e 
¢ j , ai? * 
i | a | Ie | | es 
é DaTE . OSAUGTS —— : OSNOVTS OLMARTE : 8 PROG 10 Cif] DATE OSAUG7S OSNOV7S OIMARTE proc 1D .i(‘<‘C CH] 
EC NOe e27779 «#27827 827872 : PAGE Sg EC NOs 627779 827627 e27e72 .- in e : 


tenet 











Ca 


18M MAINTENANCE DIAGNOSTIC PROGRAM PART NGe a247621 


| TBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 428767 
PAGE 6 «© PAGE 6A 


cCrF2 2340 SYSTEM TEST MOOULE -- HOD 12 


Cire 2340 SYSTEM TEST MODULE -- WCO 12 


FRe LOC NASJECT CODE ADDR STMT SOURCE STATEMENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


OcFSG OF OF 


1eFC 18CC 416 SLC LPCNT (27-2 BS LOGP UNTIL ALL OF ¢. 428 cue bAE KE ERERER AE EE EAREREREER GEER ARE RRRAEER SERS SEERA ERSE EAE TES SORES ES 
OcFe CO C1 OCFO a9 8NZ RO9B2 RESIDUAL DODF HAS BEEN CHECKED 429 * * 
420 = * 
Opo2 7% O1 1910 421 BN IDDOE ol BRITE AND CHECK = ed : naphee ee SCARE DEN e tear * 
O0OF 3A 01 1970 422 CBN IDDORs 1 AGAIN USING ODD 432 ste ARERR REEEEE SE AEHEEEEEESEEEES EESEE ER EERREE REESE RES RE EA AERSER ES SRA SESS 
opo0m CO go oce” 423 eF Rose STORAGE ADDRESS rc 433 % 
bee it eater nae al ‘S ODiz OC O03 18EA 18EE 434 ROR MVC —- PATRN# 304) eWCPTN INITIALIZE 
. Gee ‘ e NKORV REPEAT FOR EACH DRIVE BEING TESTED 0p19 3C FE 18E6 435 MVI- PATRN416X"FE® TEST PATTERN 
436 * 
C: ODiIO0 CO BF OFRB4 437 8 BEGIN PERFORM ROUTINE INITIALIZATION 
0021 0024 op22 438 oc AL2(ROAB) eLOOP*® SUBROUTINE RETURN ANDRESS 
Cc 0023 ODA4S 0024 439 oc AL2 CROAC) eRXDRV® SUBROUTINE RETURN ADDRESS 
{ 440 * 
eD25 CoO Ss? 10BC 441 ROAA 2 RECAL RECAL FBRATE . 
0Dp29 CO &7 128C G42 8 RDSNS DETERMINE DATA MODULE SIZE 
™ 443 * 
0020 CO B7 10CE 444 e SEEK SEEK (3340 PHYSICAL ADDRESS) 
= 0031 90 OD21 4485 pc w2*0* HEAD O 
C OD Z2 OLED O033 4466 oc IwL2*3ags CE CYLINDER 
44a7y * 
Cc: 90346 CG BF 1159 4648 ROAB a ROHAE READ HOME ADDR AND RO COUNT EVEN 
- 849 *% 
0038 3C FF 1a60 450 Mvt ODDF 4255 eK* FFP SETUP SCAN 
oc epsc OC FE 1A6C 1A6D &St MVC DOD +254( 255) eDDDF+255 ARGUMENT IN 
on OD42 OC 02 1970 18E9 452 MYvC DODF +2 (3) e PATRNG2 DDOF AREA 
as3 * 
ec 0043 CO 87 13D46 454 e SCANE SCAN READ OR EQUAL 
OD4c O01 oD4ac 455 oc tirere RECORD i 
epeD 00 OD4D 456 oc IL1*9°? NN = 00 
=. 4aS7 & 
€: ODSE C1 C3 1651 458 Tio ERR1IS 6 X9C3e ERROR IF SCAN WIT 
459 * 
q e082 CO 87 13£2 460 8 SCANH SCAN READ OR HIGH GR EGUAL 
Lae see ODS6 O1 60S6 461 oc éLzeie PECORD 1 
SOEF 60 C057 462 ec WL1°C°: NN=00 SS ne ee 
463 * 
G Opss ci c3 1651 &64 Tr10 ERRISexX*cse ERROR If SCAN HIT 
&65 * 
S ODSC CO B7 1416 466 8 SCNRE > SCAN READ OR EGUAL 
is OD60 Of 8066 467 oe a RECORD 1 
e061 66 oDEl 468 oc teieoe NN=00 
469 
. © op62 Ci C3 1651 a70 TI0 ERR15.X°C3* ERROR IF SCAN HIT 
“471 % 
a72 * 
¢ ODE6 CO B87 141E a7s 8 SCNRH SCAN READ OR HIGH OR EQUAL 
CD6A O01 ODGA 474 oc TLIe1¢ RECORD 1 
& OD6B 00 op6B 475 oc TLiece NN = 00 
476 % 
60EC Ci C3 1651 a7? Tro ERR1SeK*C3* ERROR IF SCAN HIT 
{ GS 478 & : 
OD70 32C V7 196F a?9 MVI DDDF4S1 ext 778 CHANGE DDDF TO CAUSE SCAN HIT 
480 # 
G 0074 CO B7 13€2 481i 8 SCANH SCAN READ OF HIGH OR EQUAL 
0078 O1 op7s 482 oc TLieLe PECORD 1 
oD7e 00 OD7TS 482 oc IL1°O° NN = 00 
: @ 484 «* 
: OO7A Ci C3 0082 €a5 Tr0 ROABI oX*C3* ERROR IF 
CD7E CO B87 164A 486 8 ERR14 NO SCAN HIT 
’ 487 * 
' € 0082 38 406 192A 488 ROABI TON SNSeBIT!L ERROR IF NO 
! Opaé CO 90 1643 489 eF ERRI3 SCAN EQUAL CONDITION 
| ge ago * 
: S ODBA CO 87 141E 491 6 SCNRH SCAN READ OR HIGH OR EQUAL 
; OD8E 0} OD8E 492 oc miei RECORD 1 
GS oper 00 ODeF 493 oc IL2*0° _ NN=00 
\ asa * : 
: ep90 ci C3 0098 49S 10 ROAB2 oX*C=* ERROR IF 
© 
Hee nein Sees? ee PROG ID CiF=2 DATE OSAUG7S OSNOV7S O1MARTE PROG ID CiF-2 
: _ 2 PAGE 6 oe NO. 827779 e27e27 827872 _ PAGE 6A 


CCC CC CCC CeCe ee OCC E EEO OEE EOC COO COCO 








eeeeo 00008 @ @. 
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Cc1F2 
erp croc 
0094 


e098 
opsc 


ODAO0 


i ODAS 
ODAA 


ODAE 
ooe2 


DATE 
EC NQe 


33a0 SYSTEM TEST MODULE -- 


“OD 12 


OBJECT CODE anor STMT 
CO 87 16448 496 

a97 * 
38 40 192A 498 ROAB2 
CO 90 164A 499 

‘ 500 * 

co 87 105D S501 

502 * 
OF OO 18Fe 28Fe 503 ROAC 
3a 01 18E8 504 

505 * 
30 FF 18©8 506 
co 01 10A2 507 

506 * 
OSAUGTS OSNOVTS OMAR TE 
s27779 e27T8e7 827872 


8 


TSN 
BF 


ALC 
SSN 


cut 
6BNE 


SOURCE STATEMENT 


ERRTA 


SNS eBI Ti 
ERR14 


NXDRV 


PATRN41 (C1 De PATRANGI 
PATRN+1.BIT7 


PATRNG1 oX* FFE 
Loop 


PART NCe 
PAGE 7 


NO SCAN HIT 


ERPOR IF NO 
SCAN EQUAL CONDITION 


REPEAT FOR EACH DRIVE BEING TESTED 


SHIFT TEST PATTERN 
BYTE LEFT ONE BIT POSITION 


LOOP UNTIL ALL 
BIT POSITIONS HAVE BEEN TESTED 


PROG 1D 
PAGE 7 


eae 


6247621 


CcC1F-2 


a ee 





is 


ciFf2 


a 


ERR LOC OBJECT CODE 


oo0e6 


ODBA 
ODBE 
once 


. oDce2 
oocé 


€ ODCA 
ODCcE 
OOoCcF 


ooo1 


ooos 
oocs 
OODF 
OoESs 
oveEs 


OoF! 
ODFSs 


oors 
OOFE 
oe&02 
OE C2 


cece 
oe CS 


o€ oc 
010 


o&14 
ot€18 


oe18 
o€23 


oe25 


OE 29 
oe2F 


0E33 
O€37 
o£ 38 


GE39 
O£30 


Ocal 
oE4S 


é OE49 
OECF 


2240 SYSTEM TEST MODULE 


3c 


co 


OA 


87 


ood1 
OE 63 


co 
co 


co 
oo 


87 
87 


87 


0150 


<o 


3c 
oc 
oc 
oc 
oc 


38 
F2 


oc 
co 
o1 
oo 


ci 
co 


38 
co 


38 
F2 


0D 
co 


co 


0D 
co 


co 
o1 
oo 


ci 
co 


36 
co 


oD 
co 


38 
3A 


87 
FF 
FF 
03 
01 
01 


o1 
90 


35 


87 


40 
90 


01 
10 


o3 
o1 


87 


03 
o1 


87 


c3 
a7 


40 
90 


03 
of 
01 
03 


1AFC 


OoFB4a 


108C 
128¢C 


10CE 


1159 


1AGE 
1a60 
1974 
1971 


‘196F 


1910 
06 


19758 


1304 


oEeoc 
164A 


192A 
1643 


1910 
o€ 


1978 
1670 


o£ 33 


1979 
1670 


1410 


OES? 
164A 


1926 
1643 


19786 
1670 


1910 
1910 


OSAUGTS 
827779 


ACCR 
0 DBF 
ooci 
oDcEe 
oopo 
1a6E 
18EF6 
18E6 
186 
1974 
O£02 
£03 
18&2 
18€2 
0€37 
oF38 
16E6 
OSNOV7S 
227827 
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STMT 


510 
511 
$12 
513 
$14 
515 
S16 
517 
518 
S19 
520 


$21. 


$22 
523 
524 
525 
$26 
$27 
528 
529 
530 
$31 
532 
$33 
$34 
535 
536 
$37 
538 
539 


S40 . 


S41 

542 
543 
546 
545 
546 
507 
548 
5a9 
550 
551 

552 
$53 
554 
555 
556 
557 

558 
559 
560 
561 
562 
563 
560 
565 
566 
567 
558 
569 
570 
571 

572 
573 

574 
575 
576 
577 


MoD 12 


SOURCE STATEMENT 


| @ © . | 
& @ & @ & oe : ; < / 
: q <p A 
~ = @ @ @ @ e @ @ e & c 
~ : 4 . 


PART NO. 
PAGE 


4267621 
7A 


snedaeaneennaasneaceseanenecaasanseaenaaaaessessesesesasccesessessoelee 


* 
* 
* 
RRMREHRBSEE 
* 


Roe 
* 


ROBA 


ROBB 


RO&B1 


RoBe3 


roses 


OIMARTG 
e27e72 


tan eadenedeesane sneeesseegaeeeseeaneeeeee noes ea esesee se eeseeee 


avi 
8 
oc 
oc 


e 
B 


e 
oc 
oc 
8 
wvi 
avec 
wvc 
mvc 
mvc 
JF 


mvc 


oc 


T10 


TEN 


BF ; 


TEN 
JST 


cic 
BNE 


cic 
BNE 


Tr10 


TBN 


coc 
8BNE 


TON 
SBN 


2 


ROUTINE 08 ~ SCAN EQUAL TEST * 


LPCNTe10 
BEGIN 

AL 2(ROB8B) 
AtL2 (ROBC) 


RECAL 
ROSNS 


SEEK 
TL1°O° 
tw2934¢° 
ROHAE 


DODF4+256 oX* FFP 


DDDF +255( 256) eDDOF +4 256 


DCDF 46 (4 3.WCPTN 
DODF+3¢(2) eWCPTN 
DODF+41¢23eNULLS 


IODOR BIT? 
Rossi 


DDOF +7( 6} eDDDF+6 
SCANE 
wore 
1L1°0*? 


ROBB2.X*C 3° 
ERRIG 


SNS BIT! 
ERRI3S 


TODOR. BIT7 
roses 


DOOF 410 (4 32 FFOTN 
ERRI9 


RoeEes 


OCOF411 6496 FFPTN 
ERRIGD 


SCNRE 
Irzeie¢ 
rr1¢0° 


ROBBSeX*C3° 
ERRIS 


Snse BIT! 


. ERRIS 


DODF 41045, UNCPT* 
eraigs 


ICDOR,BIT7 
TOODRe BIT? 


LOOP THIS TEST 10 TIMES 


PERFORM ROUTINE INIT E AL IZATION 
*LOOP*® SUBROUTINE RETURN ADORESS 
®NXDRV® SUBROUTINE RETURN ADDRESS — 


RECAL IBRATE 
DETERMINE: DATA MODULE Stze 


SEEK (3340 PHVSICAL aDDRE SS) 
HEAD 0 
CE CYLINDER 


READ HOME ADOR And RO COUNT EVEN 
SETUP SCAN 


ARGUMENT IN 
DDDF AREA 


sxie EF DDDF IS 
ON EVEN ADDRESS BOUNDARY 


SHIFT SCAN ARGUMENT FOR ODD SOUNDARY 
SCAN READ OR EQUAL 

RECORD 1 

NN = OC 


ERROR IF 
NO SCAN HIT 


ERROR If NO 
SCAN EQUAL CONDITION 


SsxiP TF ODOF IS 
ON 00D ADDRESS BOUNDARY 


ERROR IF RES TOUAL 
DDDF IS INCORRECT 


REPEAT TEST FOR SCAN OR EQUAL 


ERROR IF RESTOVAL 
DODE 1S INCORRECT 


SCAN READ OR EQUAL 
RECORD 1 
WN OO 


ERROR IF 
NO SCAN HIT 


Error IF NO 
SCAN EQUAL CONDITION 


ERROR IF RESIDUAL 
ODOF 1S INCORRECT 


REPEAT 
TEST USING ODD 


CciF-2 
7A 


PROG 1D 
_ PAGE 





{ eh ee 
SE ae ae ea a a ORE GE RS 


nets ~ earners oe 


! cies rare ents Orc It, * geet ac a saks 


4 


i 
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PART NO- 4247621 . YBM MAINTENANCE DIAGNOSTIC PROGRAM . PART NO> 4267621 
PAGE 8 PAGE BA 
CiF2 33460 SYSTEM TEST MODULE @-- MCD 12 e ciFe2 2240 SYSTEM TEST MODULE -- wel 12 
ERR LOC SOBJECT (CODE ADDR STMT SCURCE STATEMENT FRR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
eesA CoO 90 ODD1 ate BF rRoB8s MATWN STORAGE BOUNDARY €: 586 ae RKME SERENE RE ER ER EERE ER EE ERE EERE EERSTE ASSESSES EE SES SES SERS SSE S 
% : 587 * 2 
OFSE CO 87 1050 -_. “ 6 NXORV REPEAT FOR EACH DRIVE SEEING TESTED Cc 5aa * ROUTINE OC - SCAN HIGH OR EQUAL TEST * 
' 589 * 2 
OFEB OF 00 148FC 16C8 ss2 ROBC sic CECNT C25 oF 1 tLcor THIS i 590 cad dee ERREEAAHEKE ERE REESE REEEERERS EEE EESEEEE SESE SEES EEE RERESO SESS SSE SD 
OF69 CO O1 10A2 583 @NZ Looe TEST 10 TIMES ; f s91 * 
584 * LON OEF6D OC O03 1B8EA IBEE $92 ROC mvc PATRNS3 (4) oe WCPTN INITIALIZE 
OF73 3C FE I18ES 593 mul PATRNG2_,K*FE® TEST PATTERN 
tc 594 * 
Xe. OE77 CO BT OFBS 595 8 BEGIN PERFORM ROUTINE INIT TAL YZAT ION 
OF7B OEBE OF7C S96 oc AL 2CROCS} *LO0P* SUBROUTINE RETURN ADDRESS 
c OE7D OFFA OE TE SOT oc AL2 CROCC) eNXORV® SUBPOUTINE RETURN ADDRE SS 
% 598 * 
OE7F CO 87 10BC 5909 ROCA 8 RECAL RECAL IBRATE 
; C OFS3 CO 87 128C 600 8 RESNS DETERMINE DATA MODULE SIZE 
i Ds 601 * 
: of B87 CG BT 10CE 602 e SEEK SEEK (3340 PHYSICAL ADDPESS) 
i gr OEBB OO OE 8B 602 oc yL1eo* HEAD 0 
‘ i. ocesc 0150 OEBD 604 oc IL2* 3a9g°8 cE CYLINDER 
: 605 * 
& OESE CO B7 1159 606 ROCB 8B RDHAE READ HOME ACDOR AND RO COUNT EVEN 
- 607 * 
OFS2 3C FF 1A6D 608 wvI DODF +255 -XK* FFP SETUP SCAN 
4 OF9S6 OC FE 1a6C 1 a6 609 avc DDDF + 254( 255) -D00F+255 ARGUMENT IN 
C.. OESC OC O23 1971 I1B8EA 610 wMvC DODF 47 (4 J, PATRNGS DDDF AREA 
: OEA2 3C FF 1972 61! ; MVE ODDF 44 oe X* FFF 
ign 612 * 
i €: OFAG CO B7 13€2 613 e SCANH SCAN READ UR HIGH OR EQUAL 
OEAA O1 CEAA 614 oc T2111 RECORD i 
: 2 OF AB OO OoFAB 615 oc IL1°o0° ; NN = 095 
’ CG 616 * 
ecfac ci ¢3 CEB4 617 r10 ROCBisek*Ccse ERROR IF 
& oEBC CO B7 164A 618 e ERRLG NO SCAN HIT 
Bo tet, Ba Tales oo treet ie 619 * 
cesa 38 &0 1924 620 ROCBI TEN SNS BIT! ERROR IF Seer rere ge 
& CEBB CO 10 1678 621 eT ERRIA SCAN EGUAL CONDITION 
<7 622 
OFRBC OD O38 1977 18E2 623 eL_e¢ DODE 49 (4 Fe F FPTN ERROR IF RESIDUAL 
G CEC? CO O1 1679 24 BNE ERRIS poor IS INCORRECT 
ss 625 & 
OFCK CO B87 141E 626 S SCNRH SCAN READ OR HIGH GR EQUAL 
a OECA O1 OFCA 627 oc ww281° RECORD 3 
© OoFCB OS SGECB 628 . oc wito* NN=00 
629 * ; 
es. oFCcC Ct C3 COEDS 630 Tz0 ROCB2exK*C3* ERROR IF 
G CEDO CO ST 164A 631 8 ERRI4 NO SCAN HIT 
632 * 
a OFDR 38 40 192A 633 ROCE2 TAN SNSeBITL ERROR IF 
@ OFDE CO 10 1678 634 BT ERRIA NO SCAN HIT 
635 * 
: : GECC Ob 03 1977 I8ES 62E cic ODODE 49€ 4). NCP ITN ERROR IF RESIDUAL 
i & OFE2 CO OL 3670 627 BNE ERRIG oOpoF Is INCORRECT 
A 638 % 
OFE6 CO 87 1050 639 8 NXDRV REPEAT FOR EACH ORIVE BEING TESTED 
© 840 * 
OEEA OF 00 18E9 18€9 641 ROCC Acc PATRN+ 201) ePRTRNG 2 SHIFT TEST PATTERN 
1 ns CEFO 3A O01 18ES9 642 SEN PATRA42 6 BIT? BYTE LEFY ONE BIT POSITION 
' & ; 643 #8 ; 
OCF4 3D FF ILBES 644 cu! PATRNG 20 K*FF Se LOOP UNTIL ALL 
OFFS CO O1 10A2 645 ewe tLooP BIT POSITIONS HAVE BEEN TESTED 
€ 646 * 
| @ 
DATE OSAUG 7S OSNCY75 O1 MARTE PROG 10 cif-2 DATE OSAUGTS OSNOVTS O1MARTE PROG 1D C1F=+2 
EC NO. 827779 e27827 827872 PAGE 8 | on" e27779 827827 a27e72 - PAGE ee 
2 4 rs 
| : 
€ 


@ . : 7 . ; ‘ : " s 
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c1F2 


EeR LOC aBVECT CODE 


OEFC 
OFOO 
oF02 


OFOS 
OF 08 


oFOCc 
OF 10 
OF 12 


OF 13 
OF 16 


OF IA 
oF iE 


oF22 
OF 26 


oFe7 
oF 28 
oF2c 


oF2D 
OF 31 
OF 22 
oF33 
oF 37 
OF38 


OF39 


DATE 
Ec NOe 


co 37 
oF 12 
OoF30 


co 87 
co 87 


co 87 
00 
0150 


ee o8 
co 10 


co a7 


co 87 


02 


co 87 
02 
23 


co 67 
02 
13 


co 87 
a2 


1? 


co 6T 


OoFB4S 


106C 
126C 


10CceE 


0° 
1050 


1159 


131€ 


21096 


1343 


1385 


1262 


‘1050 


OS AUG7S 


s27779 


AdOR 


OF O1 
OFOS3 


OF10 
oF 12 


OF 26 


OF 28 
oF 2c 


orsi 
ors2 


oF 37 
oF2e6 


OSNOV7S 
e27827 


3340 SYSTEM TEST “OOULE -- 


moo 12 


PART NOe 
PAGE 9 


i 
4 


1 
1 


 cocenassseccesssecarescectcnsssessceseccusssnsesneccentsnsneesoaanstid 


STMT SOURCE STATEMENT 
648 

649 *& 
650 * 
651 *® 
652 
653 * 
654 ROD 8 @EGIN 
655 oc AL2CROODB) 
656 oc AL 2CROE) 
657 * 
€58 RODA 8 RECAL 
659 8 ROSNS 
660 * 
661 8 SEEK 
662 oc 1L1¢*0° 
663 oc 112°34a9° 
664 * 
665 RODE TEN DIND(. XR2 9e NOWR 
666 eT NXDRV 
667 * 
668 e ROHAE 
669 * 
670 8 wRROO 
671 *# 
672 8 ROCKO 
673 ec mate 
674 & 
675 8 wRCKD 
676 oc mites 
677 oc 1L1°19° 
676 *& 
679 6 wRREee 
680 oc IL1ie¢2¢ 
681 oc IL1°198 
662 * 
683 8 ROVKO 
6846 oc mi¢2¢ 
685 oc TL1i*19¢ 
686 * 
687 8 NXDRV 
688 * 

01 MARTE 

627872 


* 
ROUTINE 00 — WRITE REPEAT 7 REAC VERIFY TEST 4 


* aenseeaenaeseaeassenesnseeeEnseaeeenseesEeSeeSEeORGeSSERERSESSESS AS 


PERFORM ROUTINE INI TIALT ZATION 
SLOOP® SUBROUTINE RETURN ADDRESS | 
eNXDRV® SUBROUTINE RETURN ADDRESS 


RECALI BRATE 
DETERMINE DATA MODULE size 


SEEK (3340 PHYSICAL ADDRESS) : 
HEAD 0 | 
CYLINDER 349 . 


«MG 
BYBASS ORIVE IF KMG 
WRITE INHIBITED KMG 


READ HOME ADDP AND RO COUNT EVEN KMNG, 
WRITE RECORD ZERO CNT-KEY-DATA 000 | 


READ COUNT<KEY=-DATA 
RECORD 1 


WRITE COUNT-KEY-DATA 
RECORD 2 
NN = 19 


eee ame een es 


WRITE REPEAT KEY-DATA 
RECORD 2 
NWN = 19 


READ VERIFY KEY-DATA 
RECORD 2 
NN = 19 


REPEAT FOR EACH DRIVE BEING TESTED 


PROG ID CiF<-2 
PAGE 9 


x 
Me 


¢ CciF2 


ERR LOC OBJECT CODE 


CG 
€ 
C3) or20 


oF 43 
© OF 47 


_ OF 4B 
C: 


Cc. oFsB 


OF SF 
CG OF60 

oF62 
@ OF 66 
OF6A 
OoF70 
oF 7s 
OF79 
OF 7F 


ores 
OF 87 
ores 


OFSA 


_OF92 


ores 
OF OC 
OFAO 
OF AG 
OFAC 


oreo 


OaTE 


oc 01 


c2 O21 
34 01 


co 87 
OF 66 
oFo2 


co 87 
co 87 


co 67 
00 


co 87 


35 01 
oc 01 
1€ 01 
38 FE 
oo 01 
co 64 


co 67 
oo 

co 87 
co 87 
oc Of 
c2 01 
34a O01 
OE& 01 
oD oO! 
cc 01 


co 87 


OF 61 


OA0l 
18FC 


OF RS 


10eCc 
126¢C 


10CE 


1159 


16FC 
oFs9 
OF 89 
oF 88 
ores 
OF 7O 


10CcE 


1159 
1050 
OF6! 
oBol 
192E 
18FC 
18FC 
10A2 


oOaiS 


05 aUG7S 


827779 


18Cc6 


oFél1 
00 


180C¢ 


oFre9 


18c8 
192E 


OSNOV? 
827827 


3240 SYSTEM TEST MODULE 


ADDR 


OFSO 
oFrs2 


OFSF 
OFé1 


OF 87 
oF s9 


5 
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oe 
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PART NOe 4247621 
PAGE 9A 


sencuascsesesesessssensacecseraenacanesuanaseusenacsssasssssseeseneees 


s 


ROUTINE OF - CYLINDER SEEK TEST , * 


ROEAL (2 Pe NULLS 


PIDeXR1 
LPCNT eXRI 


BEGIN 
AL2(ROEB) 
AL 2CROEC) 


RECAL 
ROSNS 


SEEK 
IL1°O* 
12 


RDH AE 


LPCNT>s XR1 
ROEB2Z(2}) eROEAL 
ROEB2(23e00 eXR1? 
ROE B2-1 eX*FE® 
ROEB2( 2) P34S 
ROE SBI 


SEEK 

1L1*0° 

1L2 

ROH AE 

NXDRV 
ROEAIC 2) ROEB2 
P1D4256 XR? 
WORKNoXRI 
LECNT (2) PI 
LPCNT(2) eWORKN 
Loop 


RO1 


STMT SOURCE STATEMENT 
690 
691 * 
692 * 
693 * 
694 FR FSEEESES 
695 # 
6S6 ROE wvc 
697 * 
698 LA 
699 St 
700 * 
701 8 
7vo2 oc 
703 oc 
704 * 
705 ROEA 8 
706 8 
707 * 
706 B 
709 oc 
710 ROEAI os 
711 * 
712 8 
7i3 * 
714 ROEE L 
7Ti5 , MvCc 
716 ROEBL ALC 
T17 ser 
718 cic 
719 eH 
y20 * 
721 e 
722 oc 
723 ROEB2 os 
724 & 
725 8 
726 * 
727 € 
728 * 
729 ROEC ave 
730 * 
731 La 
732 st 
733 ALC 
734 cic 
735 @NE 
736 * 
737 B 
736 @ 
OL MARTE 
827872 


canannncancaasecanancsgassasaasseessssasssssessasseeeseen lee 


cyt adcR = 000 FOR FIRST SEEK 


INITIALIZE PSUEDO 
RANOOM NUMBER GENERATOR 


PERFORM POUTINE INITS ALT ZATION 
*LOCP® SUBROUTINE RETURN ADDRESS 
eNXDRV® SUBROUTINE RETURN ADDRESS 


REC ALIBRATE 
DETERMINE DATA MODULE SIZE 


SEK €3340 PHYSICAL AODRESS) 
HEAD 0 
CYLINDER 0 = 349 


READ HOME ADDR AND RO COUNT EVEN 
GENERATE 
SIMUL ATED 
RANDOM 


CYL INDER 
ADDRESS 


SEEK (33460 PHYSICAL ADDRESS? 

HEAD 0 

CYLINDER 0 - 349 
READ HOME ADDR AND RO COUNT EVEN 
REPEAT FOR EACH ORIVE BEING TESTED 


SAVE CYLINDER ADOR FOR ERR RECOVERY 


LOOP UNTIL 
286 CYLINDER i 
SEEKS HAVE BEEN PERFORMED 


OTHERWISE LOOP INDEFINITELY 


PROG ITO Ci F<-2 
. PAGE oA 









































































IBM MAINTENANCE DIAGNOSTIC PROGRAM 


OFEC OD 01 OAO1 OA0I 769 
OFF2 CD 01 OADA 770 

771 

OFF6 OC 01 I90€ 18EE 772 

OFFC OC 01 1910 18FO 773 

774 
' 2002 38 60 18F9 775 

1006 CO 10 1026 776 

oe? 

100A OC 09 1889 189E 778 

1010 0C 09 1879 189E 779 

780 

1016 3¢ 00 1863 781 

101A OC 16 1862 1863 _ 782 

1020 OC 17 1893 1663 783 

784 


. 


765 
: ; 786 
102A C2 O21 1906 787 


1026 3C 60 18F9 


; 788 

102€ C2 02 192F sy 789 
1032 74 02 01 790 
1035 D2 0% C2 .. TOL 
792 


1038 @cC 00 00 ey 793 
: 798 


be OS 1078 C2 02 1946 795 
. 103F 7a 02 O}3 796 

-¥Oa2 D2 01 02 797 

798 


10485 8C 00 CO 799 
= B00 
1048 7C FF 00 601 
B02 


- 


c1ir2 3340 SYSTEM TEST MODULE -~- MOD 12 


FAR KEREREKEEREK 


741 & 

Tae *% 

743 % 

745 * 

T4a6 2% 

747? *& 

OFB4 34 O08 192E 748 SEGIN 

OFBS 35 01 192E 749 

750 *# 
OFBC 1¢C 01 10886 O1 7S1 
OFC? 1€ 01 10A1 03 752 

7&3 * 
- OFCB D2 O1 O4 7546 
OFCS 34 O61 105C 755 

. 756 *& 

OFCD F3 C4& TE 757 S8SGNO1 

756 * 
OoFCO 31 CS 18F2 759 
OFD4 31 CS 1AF4 760 

; 761 * 
OFOS C2 O01 FOES Té62 
OFDC 36 01 18C8 763 
OFEO CO O01 OFDC 768 

“765 «& 
' OFES 31 C5 18F6 766 
OFESB 31 CS 16F4& 767 
768 


1048 C2 O1 1904 803 

104F 34 01 19u3 B04 

1023 75 02 02 805 

; 806 

1056 Ba 40 00 807 
DATE OSAUG 75, OSNOV7S QIMAR TE 
EC NO... 827779 e27627 e27872 


st 
“vc 
mvc 


LA 
st 


S10 


LIU 
tro 


LA 
ENZ 


t.10 
ure 


are 


OnE 


avec 
avec 


“TON 


BT 


- 7° wave 


ave 
“vi 
wvc 
avC 
Mave 
La 
La 
st 
LA 
avi 
tA 
st 
ta 
«VI 
MaVI 


La 
st 


SBN 


ERR LOC GBJECT CODE ADDR STMT SOURCE STATEMENT 


780 Ped ORREEERES EE EEE ETERS EEEEETESEES EERE EES EES EEREERETEE SE 





PART NOe 4247621 ce IBM MAINTENANCE OLAGNOSTIC PROGRAM 


PAGE 


INI TEALIZATIGON AND LOCP CONTROL SUBROUTINES 


ROUTINE INITYALEZATION 


WORKNs ARR 
WORKNeXRI 


LOOP X43 20610 eKRID 
NXORVX43 C2 De SCeKRI } 


4CeXR1L PO XRI 
BGNX436XR1 


XOTE*K*Ca! 


SYSRST«eX*CS* 
SVPREQeX*CS* 


X*®FDES*. XRI 
P1eXR1 
sh 


CEMODE eK*CS° 
SVPREQ.X*CS* 


PIDC 2).TDADR 
ENTRY 


TODCRC 232 DDCR 
- TDODRI2 9 eDDOR 


IND. BGNSW 
SGNO2 


MSG6(10 PeNDERRS 
MSG2 (10 Pe NOERRS 


DGESNSe0 


DGSNS-1 (23) eOGSNS 
DGSNS2¢ 24) eDGSNS 


IND -BGNSW 
ADRTBL eXP? 
CRVWK 16X22 


1 CeXRID eXR2 
[Ce XRIPEXRI 


DINDC oXR2) 00 


ORVWK2 eXR2 
1CoKR1)P Oo XR] 
2€eKR1 §eXR1 


DIND(Ce XR2)00 


OC e RR1ID oX* FF ® 


AORTAL oXRE 
ADRPTRe XR1 
2 €eXR1 ¥eXR2 


DINC( eRR290L OSU 


EERRADAREHAER EE REREREAERERS RERERE RR GAEREREE SESE EEESSE SES SERS SS 


POINT TO SUBROUTINE 
CALL PARAMETERS 


SETUP "LOOP" SUBROUTINE RETURN 7 
SETUP "NXDRV* SUBROUTINE return &. 


SETUP °BEGIN® 
SUBROUTINE RETURN 


RESET AND DISABLE 3340 INTRPS 


FORCE ATTACHMENT 
SYSTEM RESET 


OELAY 
10 MSEC 
SET CE MODE 
INDICATORS 


GO TO SUPERVISOR 
IF RUNNING SYSTEM TEST 


INITEALEZE ODCR 
AND ODDR VALUES 


BRANCH IF NOT 
PROGRAM RESTART 


INITEACIZE | _ 
LOG MESSAGE AREAS 


INITIALIZE 
SENSE DATA 


RESET PROGRAM INCICATORS 


POINT TO DRV WORK AREA ADDR TBL 


STOXE ORIVE 1 


WORK AREA ADDRESS IN TABLE 
AND ADVANCE YASLE POINTER 


RESET ORIVE DEPENDENT IND 


STGRE CRIVE 2 


WORK AREA ADDRESS IN TABLE 
AND ADVANCE TABLE POINTER 


RESET DRIVE DEPENDENT IND 

MOVE TERMINATOR TO AODR TABLE | 
POINT TO START 3* «ADDRESS TABLE 
INITIALIZE ADORESS TABLE PTR 
FIRST DRIVE WK AREA ADDR TO XR 


SET ORIVE LOOP TNOTCATOR 


PROG 10. 
‘PAGE 


. Ped BS : 2 - 2. 3 He . oo 5 . “ . : - 


REEKRRERKKARARKTERS 


$i 
A 
ERR LOC OBJECT CODE 
* 1059 CO 87 0000 
+ e- 
a & 
« 
eo 
: co 105D F3 C4 7VE 
1060 0D 01 OAO1 OAC! 
1066 CO 01 OADA 


“ ° ™ 


“ L06E VO FF 02 
{ € 1071 F2 61 OE 
| 


1074 ?75 62 03 


: G 1077 D2 O1 02 


1LO7A 34 O1 1963 


G 107E CO 87 10A2 


| 
| ex» 1082 C2 01 1904 
Cs toes 34 01 1903 


108A 75 O02 O01 


{ & 102a@D 36 40 18F9 


1091 F2 90 OA 


0988 CO BF 0222 


109¢ €100_ 


| 
| 
| 
| 
| 


— 


| 
| 


| : 


CiF=2. DATE OS AUGTS 
10 | e™ NO. 827779 


g 


CciFe 2240 SYSTEM TEST MODULE 


106A 35 C1 19023 


| 

| G 1008 38 40 18F9 

| 

& 

| 109F CO 87 0000 
°°" 
€ 


10A2 OC 01 190E 
20A8 OC 62 1910 


1OAE BE 40 00 
© 10Bi1 BA 4&0 00 


1084 CO 90 1059 


,0B8 co 87 0000 


AODR STMT 


808 
609 
610 
B11 
812 
613 
614 
Bis 
B16 
817 
818 
819 
820 
821 
822 
823 
B24 
825 
826 
827 
828 
829 
830 
831 
832 
833 


834 


835 
826 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
e468 


849 


850 
651 


mee 12 


SOURCE STATEMENT 


Ree oe moe ewe eam awwe = eseeee wee wee sere OPS 8 ee SAO SO TOMO 


REPEAT TEST ON NEXT ORIVE 


Roe eee cece soerse ce Sense eeooe2rere OSS OOOO SS BOOSTS 


SETUP TEST LOOP ADDRESS 


es2 


853 


esa * 


8ss 


656 4 


OLMARTS 
e27Ee72 


eoeeaeeeeeneeeee ec eee 


K*7TE® xXECAS 


P1002). IDADR 


ADRPETR oXR1 


2(eoXR1L De XPFF® 


BCoXRLI XR] 


2CeXR1DoXRI 
ADRPTReXRI 


ADR TBL e XR 1 
ADRPTReXR1 
1€ oXR1) sXR2 


INDeHLTSY 
IND eHLTSW 


EL2CHLTXX) 


Pe ID AD a Ge OP 


TODCR(29-DPCR 
TODDR( 2} eDDOR 


OIND( oXR2 de LPSW 
DINO oXR2) oLPSW 


PART NOe 
PAGE 


GO TO SUPERVISOR 
IF RUNNING SYSTEM TEST 


BRANTH IF ALL DRIVES 
HAVE BEEN TESTED 


ADVANCE ADDRESS 
TABLE POINTER 


GO TO TEST NEXT ORI VE 
RE-INI TIALIZE 
ADDRESS TABLE POINTER AND 
POINT TO FIRST ORIVE AREA 


CONTINUE TESTING IF 
NO ERRORS OCCURRED 


RE- INITIALIZE 
ODCR AND DDOR VALUES 


PROG 10 


. PAGE 


4247621 
10. 


RETURN TO CALLING ROUTINE 


RESEY AND DISABLE 3340 INTPPS 


GET ADDRESS TASLE POINTER 


POINT TO NEXT ORV WORK AREA 


RESET ERROR HALT INDICATOR 


RETURN TO CALLING ROUTINE 


6 AA A RP SED he i EP E> TEP LP ED 


TEST DRIVE LOOP INDICATOR 
PESET INDICATOR 
BRANCH IF IND WAS OFF 


RETURN YO CALLING ROUTINE 


CiF<2 . 
LOA 





! es : ; ; ’ : 
ae : : : 3 : 
| + a 


cere es eee it 


. 762° 
TRY MAINTENANCE DIAGNOSTIC PROGRAM PART NOs 4247621 . 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 28762" 
\ he PAGE a | PAGE ae 


| Cree 2340 SYSTEM TEST MODULE -~- ¥OC 12 yp CIF! 3340 SYSTEM TEST MODULE -- MOD 12 


he 





, Fee LOC OBJECT CONDE ADOR STMT SOURCE STATEMENT ERR LNC OBJECT COOE ADOR STMT SOURCE STATEMENT 
t A o 
8 Rot DEER EEEE OO 9888 88TEREEEEEEEESEREREREESSS REREEEREEE EE SHPRERES SE SSS SS €. 926 * 
| eso * * 1155 CO 87 0000 927 SEEKX 8 toe RETURN TO CALLING ROUTINE 
860 * 3340 COMMAND EXECUTION SUBROUTINES * o. 928 * 
; 861 * * & 929 gence ence nn ween eee nn cn nn een et Oe 
8&2 EARREARERASEAECERERREREESEOEELEEEEE TREES SESEEEESRES EES SERE BEER ED HESS 930 * READ HOME ADDRESS AND RECORD ZERO COUNT EVEN 
vt 663 * oe i ; 931 * 
| i 864 * RECALIERATE COMMAND C 1159 34 06 119E 932 RDHAE ST RDHAOX+3,ARR SAVE RETURN ADDRESS 
865 * : 933 * 
oe : €66 FECAL st SEEK X+4+3-ARR SAVE RETURN ADDRESS 115D ec oO: OS 934 MVI QC eXR2) eo X* 01° SETUP © AND R ; 
hg POE nr 867 * €. 1160 BC 01 06 935 MVI —- RU eXR2VOKCOR® BYTES FOR SIO COMMAND 
i | 20co ac 00 OS 868 “vt QC oe XR2I oX* 00° SETUP @ AND R O36 * 
| 10C3 6C 01 06 869 weve RCoXR2APXKIO1® BYTES FOR SIO COMMAND ie 1163 F2 87 OA 937 3 RDHAOA GO TO EXECUTE COMMAND 
i 870 * G 938 * *, 
: 10CE eC 09 14 18C6 871 HVC ——-NN@10¢6XR29e NULLS CLEAR DDCF AREA Sad: gonattentece kode senses ac ccnee aaa aaa sete ssn sem esnn sea seeereseraan 
B72 * 1 f. 940 * READ HOME ADDRESS AND RECORD ZERO COUNT ODD 
10ce F2 87 6B 873 J SEEKA GO TO EXECUTE COMMAND : €: 941 * 
i B74 ¢ 1166 34 08 119E 942 RDHAD st RDHACKX4+3eARR SAVE RETURN ADORESS 
| BIS Bam ma a a I Sg 245° * 
ver S76 * SEEK COMMAND Cc: 116A BC 01 OS 944 MvI OCoKR2AVXPOLS SETUP Q AND R 
a7? © : 116D 8C 09 06 945 MVI RC oXRZD oKFOGE BYTES FOR S10 COMMAND 
10CE 34 08 192€ 678 SEEK st WOR KN ARG SETUP POINTER TO 7 946 * : 
1002 35 01 292E 879 L WORKNe XR tf SUBRTN CALL PARAMETERS C 1170 8C 09 14 18C6 947 RDHAGA wvc NNO10 oXR2) e NULLS CLEAR DOCF AREA 
! eeo * 948 * 
; 1006 1¢€ 02 192E O02 881 mvc WORK4 3» 2€ 30 XP 1) MOVE PARAMETERS TC WORK AREA e: 2175 CO eF 142C¢ 949 e xXeEO GO TO EXECUTE COMMAND 
! ga2 * sf 950 * 
‘ 1008 3¢ 08 1926 683 “vi WORK 022 SETUP MULTIPLIER FOR 12 HEACS 1179 20 03 1923 OA 951 ie CLC = RDODCF 4404) ePAC o XR2) GO TO ERROR EXIT IF 
oo ; 684 * . 117E CO 01 1668 952 BNE ERRIS HA READ IS INCORRECT 
i 10DF 88 80 00 835 TEN fCINDCoXR29-CEOM BRANCH IF NOT © 953 * : 
: 10€2 F2 90 06 886 JF Sko1 CE DATA MODULE \ 1182 35 03 1910 954 L TODOR o XR1 SAVE RESIDUAL DDDF 
: 887 * i | 1186 9C Of 13 08 955 MVC —-_ «OL CD oXR2AIVOBCOKRID | FOR USE IN NEXT ODCF 
‘ 10ES 2c 01 1926 888 evI WORK 01 SETUP MULTIPLIER FOR 2 HEADS | © 956 * . 
B89 * 118A 02 01 09 957 LA OC eXP1doXRI CALCULATE EXPECTED 
: 10ES 7D 02 006 890 cur OCeoXRIIe1 , BYPASS TEST IF HEAD o%, 128D 34 01 192E€ 958 st WORKNe XR RESTOUAL DDDR 
a 10€C CO #4 1050 891 BH NXDRYV ADDRESS 1S GREATER THAN 1 : 959 * 
oe 692 * 1291 OD O01 192€ 1914 960 CLC WORKN(2).RDODR GO TO ERROR END IF 
10FO BC 00 05 693 SsKOol wv OC eXR2 2 eX*00° SETUP C AND R 1197 CO 01 1658 961 BNE ERRIG . RESIDUAL DODDOR IS INCORRECT 
10F3 BC 00 06 894 “vi RE oXR2ZD oX*008 BYTES FOR SIO COMMAND ; € 962 « vs 
oro? 1198 CO 87 0000 963 RDHAOX 8 «|. RETURN TO CALLING ROUTINE . _ fae 
‘ 10F6 BC 09 14 18C6 896 uve NN(10 eXR2) e NULLS CLEAR COCF AREA ! 964 * 
: 10F68 1€ 01 192E 02 e908 sKo2 ALC WORK43.2€ 20 XR1) MULTIPLY PHYSICAL ‘ 966 * READ RECORD ZERO KEY-DATA 00D 
1100 OF 00 19268 18C8 899 SLC WORKCI) PI CYLINDER ADDRESS : 967 * 
1106 CO 01 10FB 900 ONZ SKO2 BY NUMBER OF HEADS ; © 119F 34 08 11DA 968 RDROO - ST RDROOX+3e ARR SAVE RETURN ADDRESS 
{ 901 #« i 969 * * - 
i IT20A OE O01 I192E 192C¢ 902 acc WORK4+3( 2) WORKS 1 ADD HEAC ADDRESS | 21Aa3 8C Of OS 970 MvVI Qe KR2VeX*O1* SETUP © AND R 
-903 * j G essae ec 08 06 971 MVI =—- RCO XRZDAK OB" BYTES FOR STO COMMAND 
‘ 1110 D2 01 03 904 ta 3CoXR17 oXR1 SETUP ' 972 * . 
1113 36 0: 1158 . 90S st SEEK X43 XR1 RETURN ADDRESS | 11a9 BC 00 10 973 mvt RRL e XR2V00 CLEAR DOCF RR FIELD 
; 906 * ¢ 11ac BC 00 14 974 MvVY NN eXR2 300 CLEAR DDCF NN FIELD 
21117 €2 61 0000 907 LA OoxR DIVIDE ev 20 ' 975 * 
a 12118 OD 01 192E 1806 908 SKO2 CLC WORK+3(2)-P20 TO GET CYLINDER | 11aF CO B7 142C¢ 976 8 xeaQ GO TO EXECUTE COMMAND 
e 1121 2. @2 oD 909 Jt sKoe SEEK ARGUMENT IN { re] O77 2 
1124 D2 01 01 910 LA 1C oKRI) oXR1 INDEX REGISTER 1 AND : 1183 8D 08 13 1927 978 ROROCDA CLC DLEOexR2) RODCF+S GO TO ERROR END IF 
' 1127 OF C1 192€ 1806 911 SLC WORK43(23.P20 HEAD SEEK ARGUMENT 11B8 CO 01 1668 979 BNE ERRIS RESIDUAL DDCF 1S ENCORRECT 
‘ 212D co 87 1116 912 8 sKxo3 IN WORK AREA ' G 980 * 
i: 913 ¢-. 11@¢ ec 00 10 981 MVI  =—- RRL OoXR2DCO CLEAR RR FIELD 
4121 84 01 OD 914 sKose st CCE oRKR2IOXRI STORE SEEK 982 « 
: 1134 ec 01 OF 192E 915 avec HH oXR2) oeWORKSS (2 9 ARGUMENT IN ODCF € 2118F 35 01 1910 982 L IDDOR + XR1 CALCULATE 
" ‘ 4 916 * 11¢€3 86 01 11 9a4 A KL oe XRZPOXR1 EXPECTED 
i 1139 CoO 87 142¢ 917 SEEKA e xeaQ GO TO EXECUTE COMMAND 11C6 BE O01 13 . 985 A OL( oXR2 7 oXR1 RESIOUVAL OCDR 
i o168 2 G 11€9 34 O1 192E 986 st WORKN oXR1 
2120 OD ¢i 1919 1914 919 CLC =—s- TEDOR( 292 RDDOR GO TO ERROR END IF 987 * 
1243° CO 01 1658 920 BNE ERRIG RESIOUAL DDDR IS INCORRECT . -. 21CD 0D 01 192€ 1914 988 CLC WORKN(2) eRDODR GO TO ERROR END IF 
. - 921 6 | @ 1103 CO 01 1656 3989 BNE ERRI6 RESIDUAL DDDR IS INCORRECT 
1147.00 09 191 1928 922 cic TCOCENC103eRDOCEN GO TO ERROR END IF , 990 * 
BESO: ea ot 2668 oa. 8 _ 8NE ERRIB RESIDUAL DDCF IS INCORRECT @ 1107 CO 87 0000 991 RLROOX 8 *~« RETURN TO CALL ING ROUTINE 
; 992 *« 
i ais ac 03 GA OF : 925 “vc PACA XR2Z)e HNC. XR2Z) SAVE CURRENT PHYSICAL ADDRESS al $e ew ee me wm ee. 8 OOS OOOO D BOLL OO 
i Seas eieyeet eee oars? haipeee 10 Pe DATE OSAUGTS OSNOVTS OLIMAR TE PROG ID C1F=2 . 
Ee eee. = | . t G* NO. 827779 827827 B27872 - PAGE | LIA 
¥ © ~ 


He 


TeM MAINTENANCE DIAGNOSTIC PROGRAM 








PART NG. 4247621 . TBM MAINTENANCE STAGNOSTIC PROGRAM é ae NO o oe ees 
PAGE - 42-3, AGE 1 
CIF2 2260 SYSTEM TEST MODULE -- HOD 12 gu Cee 2340 SYSTEM TEST MODULE -=- WCD 12 
FER LOC GEYECT CODE ADCk STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
994 * READ COUNT-KEY-DATA 3275 9C 006 10 00 1062 Mv RRO1e XRZI00€oXR1 ? NUMBER AND NN 
" $35 # 1279 9C 00 14 01 1063 MVE NNC1 oXRS) ot Ce XR1D VALUE TO DOCE 
11DB 34 CAB L1DA 996 RDCKD st RDROOX435 ARR SAVE RETURN AODRESS 4 1064 * 
997 x & 1270 CO B87 142¢ 1065 6 xEO GO TO EXECUTE COMMAND 
12107 BC O41 OS 298 MVI Qe XR2)eX*O1® SETUP @ AND R 1066 * 
11E2 BC O02 06 399 MvVI ReXR2PeKTO2F BYTES FOR SIO COMMAND o 1281 AE GO 10 14 1067 acc RRC1LeXRZVeNNGCOXR2) CALCULATE EXPECTED PESTOUAL RF 
1000 * ca 1068 * 
1iES BC O32 12 16C8 i601 WC DL(4.XR2)eNULLS CLEAR Kie Die ANDO NN FIELDS 1285 3D FF 1928 1069 ot sone Pe ares ees ig 
1002 * = 1289 CO 01 1668 1070 ON 
L1EA 35 01 1208 1003 t RDROOX+3e XR1 MOVE RECORD 128D 8D 05 10 1924 ro73 CEC SARL SARE) ScUte tte ence ae ueoeerey 
LIFE SC CO 10 00 1004 vvC RRL eXR2 7000 Ce XR?I) NUMBER TO ODCF 1292 CO O1 1668 1072 BNE ERRIS F 
1005 * = 1073 * 
1iF2 CO B7 142C€ 1006 8 XEQ GO TO EXECUTE COMMAND 4 1296 OD 01 1916 1914 1074 cic IODDRC2) eROODR GO TO ERROR END IF me oo 
10907 * 129C CO 01 1658 1075 BNE ERRIGB RESTOUAL O00R IS INCORP 
LiFe BC C2 13 1927 1008 MVC DLC 3 »XR2) eRODCFE+8 SAVE KEY AND DATA LENGTHS READ... 1076 * 
1009 * i 12A0 OF 01 12A9 18CA 1077 ALC ROVKDX4262)-P2 SETUP RETURN ADDRESS 
11FB OF O1 LIDA 18CE 1010 ALC RDRO CX43 (2) oP SETUP RETURN ADDRESS 1078 * 
2OL1 & a, 12a6 CO 87 0000 1079 RDVKDX a ho & . RETURN TO CALLING RC VTEWE 
1261 ¢O a? 1183 1012 e RDROCA GO TO CHECK RESIDUAL VALUES 3 1080 * . 
VOSA Bem enn nen en ern enn renner nn meteor nnn wee me mene renner - 1082 * READ AND RESET SUFFERED LOG 
na 
1015 * READ KEY-DATA ge 10823 * 
1O16 * 12AA 34 08 1302 1984 RDLOG ST ROSNS X43 eARR SAVE FETURN ADDRESS 
1205 34 08 1261 1917 RDKO st RDK DX +32 ARR SAVE RETURN ADDRESS €: 1085 * oe Rees See eae 
1018 * 1 Ye J2AE BC 01 OS 1086 ° ° 
120° BC O1 OS 1019 MviI Ol, KR24oX*O1* SETUP G AND R 1281 BC 05 06 1087 > mvI Re XR2)eXt0S# BYTES FOR SIO COMMAND 
120C BC 00 06 1020 avi RC eXKRAVEK TOO? BYTES FOR SIO COMMAND 1088 * . e 
16021 G 1284 CO 87 142C 1089 8 XEQ 6o TO EXECUTE COMMAND 
120F 35 01 1261 1022 RDKDA t ROKOX4+3- XR} MOVE RECORD \ 1090 * 
1213 $c 00 10 06 1023 avec RRC14KXR2Z) oO o XR} NUMBER AND NN : 1288 CO 87 12F06 1091 e ROSNSA GO TO CHECK RESIDUAL VALUES 
1217 GC 00 14 O1 1024 mvc NNC1eXR20 010 oXR1) VALUE TO DDCF \ a 1092 * 7 = 7 
1025 *& 1093 Mi ee ww we a we re oe ee OE SO Oe me ane 
1218 CO 87 1422 1026 8 xXEQ GO TO EXECUTE COMMAND e 1094 * READ DIAGNOSTIC SENSE DATA : 
1027 * 1095 * 
[a T21F AE 00 10 14 1028 ALc RRC1 oXRZ) eNNOOXR2 ) CALCUL ATE EXPECTED RESIDUAL RP 128C 34 08 1302 1096 ROSNS st ROSNSX+43¢ ARR SAVE RETURN ADDRESS : — 
: 1029 * Pe 1097 * 
1223 2 FF 1928 1030 CLI ROOCF+9.X° FFe Go TO i €& 12C0 BC 01 05 1098 mvt OCe XR20eX*O18 SETUP @ AND R . 
1227 CO O1 1668 103! BNE ERRIB ERROR END 12C3 BC 07 06 1099 wvI RC eXR2) eX 407 * BYTES FOR STO COMMAND 
12286 8D 08 12 1927 1022 cic OL (9eXR2)eROOCF+8 IF RESIDUAL 1100 * , i 
1230 CO O1 1668 1033 BNE ERRIB ODCF IS INCORRECT G 12C6 CO B87 142C 1101 8 XEQ GU TO EXECUTE COMMAND i ee 
' 1034 & ° 1102 * 
1234 BC O00 10 1035 uvy RRC eXR2)00 CLEAR RR FIELD ‘ 12CA 35 O01 1910 1103 L IDDOR, XR1 ; SET INDICATOR 
1036 * e 12CE 79 02 02 1104 TBF 2(eXR1). BITS IF SENSE DATA 
1237 35 o1 1910 1037 t TODOR. XR1 - CALCULATE ' 1201 F2 90 03 1105 . SF RDSNSB Ce pres ce on 
1278 BE O1 11 2038 RDKDB A KLC eXR2 VeKRI EXPECTED i e 12D4 BA 80 00 1106 SBN DIND{( eXR29eCEDM DATA MODUL MOUNTE! ; 
123E B86 01 13 ~~ 1039 A OLE oXR2) oXRI RESTIOUAL : 1107 * 7 
= ens KuG : 
1241 8E OO 14 18DE 1040 acc NNCEKR2A NI DOOR VALUE 12D7 78 02.02 1108 ROSNSB = slalalay eBITS Pe cat eee ee as aha 
4 8NM RoKDe ena F2 90 03 1109 i 
oe eee 1082 * & 266 BA 08 00 1110 SBN DIND(>eXR2) eNOWR “READ ONLY*® Sw IS ON cae 
124A 34 O1 192E 1043 st WORKN. XR1 GO TO ERROR 1111 * . ; 
124E OD O1 192E 1914 1044 cic WORKN( 2) eRDODR END YF RES IDVAL { o 12E0 35 C1 1910 1112 RDSASA t IODOR,XRI eae 
1254 co 02 1658 2045 BNE ERRIE pooR {S INCORRECT 4 G 12&4 D2 O1 18 £113 LA 24 e XR1}- eXR1I ee Sas: i ; : tf 
1046 * i 12E7 34 01 192E 1114 st WORKN» XR! s ppp 
12568 OF O01 1261 18C~A 1047 ALC ROKDX4+3( 23 oP 2 SETUP RETURN ADDRESS e ytrS * a ih tt et : Eh Nt i asaees dee 
10468 * ; is! 12EB OD 01 192€ 1914 116 ° ? 
12S€ co #87 0060 1049 RDOKOX 8 *—* RETURN TO CALLING ROUTINE : 12F1 CO 02 1658 1117 BNE ERRI6 RESTOUAL DODR IS INCORRECT 
1050 * 1118 * 
LOSY a a a a a OY €5 12FS OD 09 191€ 1928 1119 cic IDDCFENC 10) eRDDCFN GO TO ERROR tad tf a 
1052 * READ VERIFY KEY-~DATA 12FB CO 01 1668 tied BNE ERRIB RESIDUAL DOCF TS INCOR 
: 1053 * 1122 * . 
1262 34 08 12A9 2054 RDVKD st RDVKOX#32 ARR SAVE RETURN ADDRESS e 12FF CO B7 0000 1122 ROSNSX B to* RETURN TO CALLING ROUTINE 
nai mvt ea KRPVeK*OL* SETUP @ AND R : ve : oe we a ee ee oe eww ee ee ee ooo en 
1266 BC 01 05 3 e e i nwa cecciccccas<.seessecem 
1269 BC 03 06 1057 MVI RCeXR29eX*O3* BYTES FOR SIO CO“MAND : & 1125 * WRITE HOME ADDRESS AND RECORD ZEPO COUNT 090 
1056 * 1126 * 
126C 8C 02 17 16C6 1089 avec OLC3.XR2 de NULLS CLEAR KL AND Dt FIELDS: &: 1303 34 08 1342 1127 wRHAC St WRROCX+3 »ARR SAVE RETURN ADDRESS 
2060 * pus - 1128 = 
1271 35 01 12a9 1061 L RDOVKD X+ 30 XR 1 MOVE RECORD 1307 BC 02 0S 1129 wvI Qe XRF) eo X*9O2* SETUP G@ AND R 
: : : \ © : ; f- 
oate OSAUG 75 OSNOV7S 01 MAR76 ; PROG ID CiF-2 DATE OSAUGTS OSNOV75S OIMART6 ce 19 Sleae 
EC NOe 827779 827827 e27872 PAGE 12 Cc" NGe 827779 a27827 827872 ; 
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CART NDe 4247621 IBM MAT: TENANCE DTAGNOSTIC FROGRAM . CAGT NO a2e7t21 
PAGE 13 PaGE iA 
cif2 3240 SYSTEM TEST MODULE -- MOD 12 c1e2 2340 SYSTEM TEST MODULE <-- MCC 12 
ERR LOC OBYECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
i f 
120A BC 06 O€ 1130 ve RLeKR2)oX*0E® BYTES FOR SIO COMMAND ‘, 1198 * 
1131 * 1390F AE 00 10 14 1199 ALC RRC1 oXR2) oNNOoXR2) CALCUL ATE EXPECTED 
120D BC 08 14 18C6 1132 WRHAOA wVvC NNO 9, XR 2) eNULLS CLEAR OCDCF AREA ’ 12A3 BC FF 14 1200 MvVI NNC eo XR20 eo XPFFE RESIDUAL RR AND NN VALUES 
1312 ac 03 OF OA 1133 MVC HHC4eXR2DeP ACs XR2) MOVE PHYSICAL ADDRESS TO ODCF 6 1201 *® 
1216 eC 02 13 18D4 1134 wvc OL C3 eXR2) PSB MOVE RO KL €& DL TO ODCF 13ZA6 @D 08 13 1927 1202 cic DL( 9 9XR2) sRDDCF +8 GO TO ERROR END IF 
1135 * px 13AB CO O01 1668 1203 BNE ERRIB RESIDUAL DDCF 1S TNCORRECT 
1218 F2 8&7 OA 1136 J WRRODA GO TO EXECUTE COMMAND i 1204 * 
11237 * 13AF BC 00 10 1205 MVI PRC oe XR 2) 00 CLEAR RR FIELD 
LL BB Beene en rm ee nn rr err www ew we we een ee one nrre wm em en owe men one eee = c 1206 * 
1139 * WRITE RECOPD ZERO KEY-DATA OOD A, 1382 OD Ci 1910 1914 1207 cLc I DDOR(2) «ROOOR GO TO ERROR END IF 
1140 *# 1388 CO 01 1658 1208 BNE ERR16 RESIDUAL DDOR IS INCORRECT 
121E 24 08 1242 1141 WRROO ST WRROOX+ 3eARR SAVE RETURN ADDRESS - 1209 * 
1142 * € 13BC OF 01 13C5 18CA 1210 ALC WRREPX42 (2) 2 SETUP RETURN ADDRESS 
1222 BC 02 05 1143 MVI QC, xR2) ox*02° SETUP © AND R 1211 # 
1225 BC 0€ OF 1144 MVI ROeKRZIOKX*OE® BYTES FOR SIO COMMAND . 12C2 CO 87 0000 1212 WRREEXx 8 mok RETURN TO CALLING ROUTINE 
; 1145 * a 1213 * 
1228 CO S87 142C 1146 WRRODA 8 xEQ GO TO EXECUTE COMMAND 1214 Boe <eces roe steerer oowreerrr oe SS 8 ew we 
1147 * few 1215 * WRITE KEY-DATA 
122C 8D 08 13 1927 1148 cuc DL(9 oXR2) eRODCF+8 GO TO ERROR END IF i & 1216 * 
1331 CO O01 1668 1149 ENE ERRI8B RESIOUAL DDCF IS INCORRECT 12C6 34 08 1261 1217 wRKD st RDKOX+3sARR SAVE RETURN ADDRESS 
1150 * a 1218 * 
12326 0D C1 1910 1914 1151 cic ICDOR(2) eRODOR GO TO ERROR END IF c 13CA BC 02 05 1219 MvI QC eXR2) eX* 02° SETUP © ANO R 
1336 CO O01 1658 1152 BNE ERRI6 RESIDUAL DDDR IS INCORRECT 12CD 8C 00 06 1220 wvi RleXR20eK"008* BYTES FOR SIO COMMAND 
1153 * i ; 1221 * 
123F CO 87 0000 1164 wRROOX B “—* RETURN TO CALLING ROUT INE : © 1300 Co 87 120F 1222 B RDKDA GO TO EXECUTE COMMAND 
1155 * i 1223 * 
L1S6 Bence m n= ere wow we weer ewer ee renew eee een weer eee eel , 1224 %-—-2r erro See Sed bch eee cae aS ae Se Se ea 
1187 WRITE COUNT-KEY-DATA | Gj 1225 * SCAN EQUAL 
1158 * 1226 * 
13472 34 08 12380 1159 wRCcKd st WRCEKOX43 »ARR SAVE RETURN ADDRESS : 13D 34 08 140F 1227 SCANE st SC ANH X43 sARR SAVE RETURN ADDRESS 
1160 * jet 1228 * 
1347 BC 02 05 1161 MvI QeXR206XK°02* SETUP Q@ AND R 1308 BC 03 05 1229 MvI OCeXR2) eX O38 SETUP © AND R 
124A BC 02 06 1162 mv RCeXR2) X* 02" BYTES FOR SIO COMMAND y 1308 BC 00 06 1230 MVI ROe KR2VeX*00* BYTES FOR SIO COMMAND 
1163 * © 1231 * 
el 1240 35 01 1380 1164 WRCKDA t WRCKDX 43 XR MOVE RECORD 13DE Co 87 13EC 1232 8 SCANHA GO TO EXECUTE COMMAND 
1351 9C€ 00 10 00 1165 MVC RRC 1eXR2) OC oXR1) NUMBER AND NN 1233 * ; 
1365 9C CO 14 01 1166 wv NN(1eXR29010e XR19 VALUE TO DDOCF i ¢$ 1234 *----------- 2-2-2 ee on wee ee one wee en en ene eee ee ne eee ones 
1167 * ; 1235 * SCAN HIGH OR EQUAL : 7 
1259 CO B7 142C 1168 B xEQ GO TO EXECUTE COMMAND : 1236 * 
1169 * © 1BE2 34 08 140F 1227 SCANH st SCANHX43 es ARR SAVE RETURN ADDRESS 
1350 AE 00 10 14 1170 ALC RRCELeXR2) oNNC oXR2) CALCULATE EXPECTED 1238 * 
1361 BC FF 14 1171 MV I NN eo XR200 XK OFFS RESIDUAL RR AND NN VALUES : 13E6 BC 03 05 1239 mvI Qe XR2V0X*03* SETUP @Q AND R 
1172 * GS 1BEQ BC O02 06 1240 MvVI REeXR2) oX* 02? BYTES FOR SIO COMMAND 
1264 BD 08 13 1927 1173 cic DL (9eXR2deRDDCF+8 GO TO ERROR END IF 1261 * : 
13€9 CO 01 1668 1174 ; @NE EFRIB RESIDUAL DOCF 1S INCORRECT C 1BEC 38 01 140F 1242 SCANHA L SCANHX+43 oXR1 MOVE RECORD 
1175 * + es 13FO0 9C 00 10 00 1243 MYC RRC LeXR2D00€ eXR1) NUMBER AND NN 
136D OD 01 1910 1914 1176 cLe IDDDRC 2) sRODDR GO TO FRROR END IF : 13Fa@ SC 00 14 01 1244 mvc NNG1 oXR2 001 CoXRID VALUE TO DOCF 
1373 CO 01 1658 1177 BNE ERRI6 RESIDUAL DDDR IS INCORRECT i ¢ 1245 * 
1178 * ; 13FB CO 87 142C 1246 8 xeQ GO TO EXECUTE COMMAND 
1277 OF O1 1280 18CA 1179 acc WRCKDX +302) oP2 SL TUP RETURN ADDRESS 1247 * 
1160 * 13FC OD 01 1910 1914 1248 cLC IDODRO2) eRDDODR GD TO ERROR END IF 
13270 CO 87 0000 1181 wRCKDX 8 —* RETURN TO CALLING ROUT INE & 1402 CO 01 1658 1249 BNE ERR16 RESIDUAL DOOR 1S INCORRECT 
1182 * 1250 * 
1281 CO 87 1340 1183 8 WRCKDA GO TO EXECUTE COMMAND c 1406 OF 01 140F 18CA 1261 ALC SCANHX+3¢€ 2) eP2 SETUP RETURN ADDRESS 
1184 * 1 Ry 1252 * 
LIBS Bannan nnn nn nnn nn nn nnn nnn ern nnn nn te ee a OG 140c CoO 87 000c 1253 SCANHX 8 **—* RETURN TO CALLING ROUT INE 
1186 = WRITE REPEAT KEY-DATA ; r 1254 * 
~ t 
1187 «© 1255 * 
1385 34 08 13C5 1188 WRREP st WRREPX+2, ARR SAVE RETURN ADDRESS ; LE S6 Ree nn eee ee nnn ee ere wee pew cee eee eee en= & 
1189 * 1257 * SCAN READ OR EQUAL 
12e9 BC O02 OS 1190 “vi Qe XR2deK#O2# SETUP © AND R € 1258 * 
13ec BC 03 06 1191 wv RCeXRAVeX*O3® BYTES FOR SIO COMMAND 1410 34 08 140F 1259 SCNRE st SCANHX43 e ARR SCAN RETURN ADDRESS 
1192 *# " 1260 * 
128F 25 Of 13C5 1193 L WRREPX43, XR1 MOVE RECORD €: 1414 BC 03 05 1261 MVI QCeXKR2)2X°03" SET UP @ AND R 
1293 SC ¢€O 10 00 1194 MVC RRCL oe XR2) OC e XR? ) NUMBER AND NN 1417 BC OC 06 1262 vi Ri oXR2) eX" OCP BYTES FOR SIO COMMAND 
1397 9¢ GO 14 O01 1195 MVC NNO LTeXRA001C oXR1) VALUE TO DOCF 1262 * 
1196 * G 141A CO B87 13EC 1264 a SCANHA GO TO EXECUTE COMMAND 
129F CO &7 142 21197 8 xXEQ GO TO EXECUTE COMMAND 1265 * 
i Cc: a 
ate OSAUG 75 OSNOV7S 01 MARTE PROG 10 Cif -2 DATE 05AUG 75 OSNOV7S 01 MARTE PROG 1D ciF <2 
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PAGE 140. PaGE 144 


ciFe 2340 SYSTEM TEST MODULE <-- MOD 12 - CUFe2 3340 SYSTEM TEST MODULE <-- weco 12 


FRR LOC OBJECT CONE ADDR STMT SOURCE STATEMERT EPR LOC OBJECT CODE ADDR STMT SOURCE STATEMERT 
L266 Kee mem ee wore re eoeere err wewmomw oor 1 1277 cna pananeea see eeGdeeeaeeeeeaee eee seeeeee anes seeeeseesees seess essen essen 
1267 * SCAN READ OR HIGH OR EQUAL 1278 * = 
1268 * “ 1279 * COMMON 3340 COMMAND EXECUTION SUBROUTI NT * 
141F 24 08 140° 1269 SCNRH st S CANHX 4234 ARR SAVE RETURN ADDRESS c 1280 * * 
1270 * 1281 ce apeeesecacestacnkentectenee eae nsseene ees saan ees seeeseeeeeeseeenses 
1422 eC 03 05 1271 MvtI Qs KR29eXK°038 SET UP @ AND R a 1282 * 
1425 BC OD 06 1272 mvI RCeXRZPoX*OD!* BYTES FOR SIO COMMAND X 142C 34 08 1577 1283 xeO st KEOX4+36ARR SAVE RETURN ACDRESS 
1273 * 1284 * 
1428 CO 87 13EC 1274 8 SCANHA os 1430 2C 80 14D0 1285 wvI ERANCH415X* 80? NO-N® THE INSTRUCTIONS 
1275 * tS 1434 3C @0 14DC 1286 “v1 JMP+1oX* 60! 
1438 OD 01 OAO! OAO0! 1287 cLC PID€ 2) TDADR 1S IT PUNNING STANDALONE 
we 143 F2 01 12 1288 JNE xEQ00 
\ 1441 3C 10 14DC 1289 MVI JMP+1oX#108 IF RUNNING STANDALONEe CHECK 
1445 3¢ 87 1400 1290 wv I BRANCH4#1.X°87" ATTACHMENT ANO SEEK BUSY 
en 1291 * 
Xe 1449 CO 87 0212 1292 8 TEST GO TO CHECK SNS SWS 
1293 * 
of 144D OC 01 192A 18C6 1294 MVC SNS( 2) eNULLS CLEAR SENSE AREA 
ee 1295 * 
1453 F3 C4 80 1296 xXEQOO sto X*BO*® oX* Cat ENABLE 3340 INTERRUPTS 
ite 1297 * 
= 1466 2C 01 14CO 06 1298 uvCc S$ 1042eRC29XR2) MOVE Q@ AND R @VYTES TO STO 
145B 2£ 00 14BF 02 1299 ALC STO+41 eDRVADR(1 o XR2 ) ADD DRIVE ADDRESS TO O BYTE 
1300 * 
€ 1460 2C 00 1488 01 1301 MVC TIORDY41 (1) eDRVADR(.XR2) SETUP @ BYTE IN TIO 
1465 2C 00 1404 ©} 1302 aa MVC TIDBSY4101) eORVADR( »XR2) *NOT RDY 7 UNIT CHECK® AND 
+ 146A 3A O01 1404 1302 SEN TIOBSY41.X"O1* ‘SEEK BUSY® INSTRUCTIONS 
i G: 1304 * : 
i 146E 2C 09 191E 14 1305 MVC TODCENeNN( 100XR 2) SAVE INITIAL DODCF 
gee 1306 * 
& 1473 35 O01 190E 1307 L TODCRe XR1 MOVE ODCF 
1477 6f 09 09 14 1308 wvC 9(1LOeXR1 VeNNs XR2 9 TO EXECUTION AREA 
1309 * 
of eee : G 1478 ci C2 1578 1310 TIG TIO ERROIxX*C2° ERR IF ATTACHMENT BUSY 
a 1311 * “eee 
147F 31 C6 190E 1312 LIO L1o0 IDDCRe X* C6" LOaD DOCF ADDRESS IN DOCR 
© 1483 31 C4 1910 1313 L10 TODDR»X*C4* LOAD ODDF ADDRESS IN BDDR 
1314 * 
1 gee, 1487 30 C6 1912 1315 SNS RDDCReX*CS* SENSE coce 
! © 1488 30 C4 1914 1316 SNS RDDDRX* C4? SENSE DDDR 
\ 1317 * 
ge 146BF OD O1 1910 1914 1318 CLC IDDDRC 2) eRDDOR ERROR END IF 
' @ 1465 F2 01 E7 1319 , _ Jne ERRO2 DOCR INCORRECT 
: 1320 * . 
gam, 1498 OD 01 1910 1914 1321 cic IDDDR( 23 eRDDODR ERROR END IF 
: & 14SE CO O01 1586 1322 BNE ERROS DDDR INCORRECT 
| 1323 * 
1 gm 14a2 68 04 05 1224 TBN QCe KR29eBITS BRANCH IF 
i G 14A5 F2 10 12 1325 Jt TIOROY READ IPL COMMAND 
| 1326 * 
\ oS 14A8 3A 04 18F9 1327 SBN IND» OPEND SET OP END EXPECTED INDICATOR 
| ee 1328 * 
| 14AC BD 00 OS . 1329 cur QC eo XR2) 00 BRANCH IF NOT 
| G 14AaF F2 01 08 13730 JNE TIORDY RECAL OR SEEK COMMAND 
1331 * 
i 1482 38 04 18F9 1332 ser IND eOPEND RESET OP END EXPECTED INOICATOR 
i C 1486 3A 02 18F9 1333 SBN IND,» SKEND SET SEEK COMPLETE EXP INDICATOR 
(Sey 1226 * 
| 148A Ci 00 159C 1335 TIORDY TIO ERROS.#-* ERROR END IF DRIVE NOT READY 
| ae) 1336 * 
14BE F3 00 00 1237 sto ¢10 toh hoe ISSUE 3340 START 1/0 COMMAND 
| 1338 * 
1 ge, 14C1 00 0% OAC! OAD! 1339 cic PID(2) eIDAOR NO TEST FOR ATTACHMENT BUSY 
‘ © 14C7 CO O1 14D3 1340 BNE TI0BSY IF RUNNING SYSTEM TEST 
| 1341 * 
oS 14CB Ci C2 14D3 1342 _ 710 TIOABSY oX*C2* ERROR END IF 
1 Ne 14cF CO 00 1S5A4 1343 BRANCH ac ERROGsX "00* ATTACHMENT DID NOT GO BUSY 
| 1344 * 
| €: : 
DATE OSAUG7S OSNOV?S O1 MARTE . PROG ID CiF 2! DATE CSAUGTS OSNOV7S5S OMAR TE PROG 10 CrF <2 
EOS 0. BATS e27ee7 e27672 . PAGE 14 | oc NO. 827779 827827 827872) PAGE 14A 
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PART NOs 4287621 
PAGE 15 PAGE isa 
C1F2 3340 SYSTEM TEST MODULE <-- MOD 12 Cire 2240 SYSTEM TEST MODULE -- MOD 12 
ERP LOC OBJECT COOE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
Bs . 
1403 Ct 00 24E! 1245 TIOBSY T10 XEQO1 o*—-* BRANCH IF SEEK BUSY & 1406 AEA ERERE HERE AE ERE EERREE ERE ERASERS EERE SERRE ESE ESS SESE SSS SERENE 
1346 * 1407 * 
14D7 38 02 18F9 1347 TBN IND «SKEND ERROR END IF € 1408 * ERROR ENDING CONDITIONS : 
14DB F2 00 CD 1348 JMP Jc ERROT. X*00" SEEK IN PROGRESS = 1409 * 
1349 * : 1410 CRE RRREEAEAERE RHEE EREAEEAEE REE EER ERASERS ESS SSREE SE EEEE SESE E SSE ES ESSE 
14DE F2 87 11 1250 J XEGO02 co 1411 * * 
1351 * ee 1412 * ATTACHMENT BUSY PRIOR TO COMMAND EXECUTION 
14E1 28 02 18FS 1252 xEQO! TON INODeSKEND SKIP IF 1413 * 
14ES F2 10 OA 1363 JT xEQ02 SEEK IN PROGRESS of 1578 3C 01 18FO 1414 ERRO} MVI ERRID»X*O1* SETUP ERROR NUMBER 
1354 * Ne 157C Fe 87 55 1415 J ERROSB 
14FB OC 00 14EF 1404 1355 uv Cc *47°1),TIOBSY+1 ERROR END IF | 1416 * 
TOEE C1 00 15BR2 ~256 TIS ERROB et ~* STILL SEEK BUSY | a, YO41L7 wee m reer oe we ee ww eee een ee o oe oe oo ow 8 8 oe 2 8 8 SOROS COS OOO OO ene 
1357 « : & 1418 * DocR FAILED TO LOAD CORRECTLY 
146F2 OC O01 18FF 18C6 1358 XEQO2 MVC TIMERC2)eNULLS INITIALIZE TIMER COUNT ' 1410 # ee 
1259 * {S7F 3c 02 18FD 1420 ERRO2 vt ERRIDeX*02" SETUP ERROR NUMB 
14FB 32D OO 1eFF 1360 XEQO2A cut TIMER 20 SKIP LF LOW ORDER A 1582 F2 87 04 1421 J ERROBA 
T@4FC F2 01 OA 1361 JNE xEGO2 TIMER BYTE NOT ZERO i 1422 * 
1362 « . 1423 hh we on wo wn oe ww wn nn or en ET 
14FF OD O1 OAOL OAC 1363 CLC P1ID(02),. YDADR GO TO SUPERVISOR | & 1424 * DDODR FAILED TO LOAD CORRECTLY 
1505 CO 01 OAOA 1364 BNE ENTRY IF RUNNING SYSTEM TEST 1425 * 
1365 * ge 1586 2C 03 18FD 1426 ERRO3 mvt ERRIDseX*O3* SETUP ERROR NUMBER 
1609 OF 01 IAFF 18CA 1366 XxXEQ03 ALC TIMERC2Z)2P2 ERROR END IF ATTACHMENT © 1427 * 
150F CO AO 15D0 1367 BOL ERROS BUSY FAILS TO GO OFF : 1S5@€A F3 C4 02 1428 ERROZA SIO XO 2%.XK9C4P DISABLE 3340 INTERRUPTS 
1513 C1 C2 14F8 1368 TIO XEQO2A.X*C2® é: 158D 30 C5 192A 1429 SNS SNS oX*C5* SENSE ATTACHMENT STATUS 
1369 * eet 1430 = 
1517 30 C6 1912 1370 SNS RDDCR »X*C6* SENSE DOCR i 1591 38 01 192A 1431 TEN SNS» BIT7 BRANCH IF 
1518 30 c4& 1914 Zi SNS RODDReX*C4* SENSE DDDR { c 1595 F2 10 4E 1432 JT ERROC ADAPTER CHECK 
1272 « | 3 1433 * 
1S1F OC 01 LAFF 18C6 1373 mvc TIMER(C2) eNULLS INITIALIZE TIMER COUNT { 1598 CO 87 1747 1434 e LCGERR ‘60 TO LOG ERROR 
1374 * : i 1435 * 
1525 30 00 18FF 1375 XEQO3A cur TIMER 00 SKIP IF LOw ORDER € 9436 Ban nn nnn nnn nnn on nn nnn nn nnn enn nnn en mn ern tre nnn mem nw 
1529 F2 O01 7A 1376 JNE xEQ%48 TIMER BYTE NOT ZERO { 1437 UNIT CHECK OR NCT READY PRIOR TO SIO 
1377 * \ 1438 * 
'182C OP 01 OAD OAD! 1378 cic PIOD(2).8DADR GO TO SUPERVISOR : G 159C 3C 05S 18FD 1439 ERROS avi ERRIDsxX* 05° SETUP ERROR NUMBER 
sue, batt ate 2 a et 
1832 CO Of OAODA 1379 BNE ENTRY IF RUNNING SYSTEM TEST 1540 CO 87 168F 1440 8 ERRXX 
1780 * i 1441 * 
1526 O€ O1 18FF 18CA 1381 KEQ04 ALC TIMER( 2) oP 2 ERROR END IF EXPECTED ¢e VAAD tan nnn nnn nn no nnn nn wen nnn nn nnn nnn nn nnn enn rt en mn rn ene meen 
153C CO AO 1623 1382 BOL ERR10 INTERRUPTS FAIL TO OCCUR i 1443 * ATTACHMENT DID NOT GO BUSY AFTER SI0 
1540 C1 C& 1548 1383 TIO KEQO4A oe X*CA® INTERRUPT PENDING ; 1444 * 
1384 * ° | G 15404. 3C 06 L8FD 14485 EPR 06 MMVI ERRIDX*06* SETUP ERROR NUMBER 
1544 CO 87 182¢ 1385 8 XEQOZA : 15a8 F2 87 0B 1446 J ERROBA 
1386 * | 447 * 
184e8 CO a7 17¢2 1387 XEQOSA e oasor } care “gionsecosuosd ne we eee ee eee ee ewe Hee wee eee e wn cee e meee en ec eeeereweessors 
1388 * ‘ 1449 * SEEK COMMAND DID NOT SET SEEK BUSY 
154C 0D 01 OAO! OAO? 1389 KEQOS cic PIDC2)-e IDADR GO TO SUPERVISOR | 1450 * . : 
1552 CO 01 OADA 1390 BNE ENTRY IF RUNNING SYSTEM TEST | & 15AB 3C O07 18FD 1451 ERRO7 uvI ERRID.»xX*o7* SETUP ERROR NUMBER 
1391 * ' 1SAF F2 87 04 1452 J ERROBA 
1856 38 20 18F9 1392 TBN IND» INTERR BRANCH IF ERROR | 1433 * 
1S&A CO 10 168F 1392 eT ERRXX DETECTED IN INTERRUPT RTN } 1054 tonne en oon na ne ne nn en ne nnn nn nn nnn nnn cen renee re reese screen en ene 
13904 * , 1455 * SEEK BUSY WITH NO SEEK IN PROGRESS 
1SEE 3S 01 190€ 1295 u ICDCR.XR1 SAVE - 1456 * : 
1562 1¢C 09 1928 O09 1396 mvc RDDCFN 09010 »XR1) RESIDUAL DOCF | © 1582 3C 08 18FD 1457 ERROS wvt ERR ID. xX*0B* SETUP ERROR NUMBER 
1397 « ! 1458 * 
1567 OD 01 190€ 1912 1398 cic I DDCR(2) eRDDCPR GO TO ERROR END IF | 1£86 OC O01 I8FF 18C6 1459 ERROSA MvC TIMER(2) sNULLS INITIALIZE TIMER COUNT 
156D CO 01 1660 1399 @NE ERRI7 RESIOUAL DDCR 1S INCORRECT | © 1460 * 
14¢0 *& { 158C 29 06 18F9 1461 ERROSB TBF IND » OPENO4+SKEND LOOP UNTIL 
1871 F3 ca VE 1431 sto X®7E® .x* Cae RESET AND DISABLE INTERRUPTS | € 1SCO F2 10 OA 1462 JT ERROSC COUNTER OVERFLOWS 
1402 * | Qo 15C3 O& 01 18FF 18C8 1463 ALC TIMER(2),.P1 OR ALL EXPEC TED 
1574 ¢O 87 0000 1403 XEQx 8 me RETURN TO CALLING ROUTINE : 15¢c9 CO 20 158¢C 1464 BNOL ERROSS INTERRUPTS HAVE OCCURRED 
1404 * i 1465 * 
1 gy. 
| € 15CD F2 87 04 1466 FERROSBC J ERROOB 
1467 * 
i : 1468 te ow a no ee oe ee om oo re oe re 8 8 ES AE Oe 
| € 1469 * ATTACHMENT BUSY FAILED TO GO OFF 
| 1470 * 
‘ : 1500 3¢ 09 18FD 1471 ERROS MvVI ERRIOXt098 SETUP ERROR NUMBEP 
i © 1472 * 
1504 F232 C4 7E 1473 ERROOSB s1o X®*7E%,y Cae RESET AND DISABLE INTERRUPTS 
1 € 
DATE Of AUG75 OSNOV75S O1LMARTE PROG ID CiF-2 DATE OSAUG7S OSNOV7S O1MAR7T6 PROG ID C1F-2 
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PART NOe 6247621 -- IBM MAINTENANCE DI AGNOSTIC PROGRAM . : PART NDe 4287621 
PAGE 16 te PAGE 164 
cift2 2340 SYSTEM TEST MODULE <-- MOD 12 ele 3360 SYSTEM TEST MODULE <-- MOD 12 
€er LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ' ERP LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1507 38 20 16FS 1474 SBF INDs INTERR IGNORE INTERRUPT ERRORS : a 1663 3C 213 i8FD 1542 ERRi3 mvt ERRIDX*13¢ SETUP ERROR NUMBER 
1475 * 1647 F2 87 45 1543 J ERRKX 
- 18D8 Fe 87 Bi 1476 J ERRXX 1544 * 
1477 # € 1545 en wee ow enn nn een en pen nn ee eee eR Oe 
1478 gee meme een eo oe ene oo enn oo nnn nnn nnn me nnn ent ten meen ene ne| 1546 * EXPECTED SCAN HIT OYTO NOT OCCUR 
“ 1479 «* DRIVE X UNTT CHECK OR NO-OP STATUS pe, 1547 * 
. 1480 * 3) 164a 3C 14 138FD 1548 ERRI4 wvVIr ERRICeX*24* SETUP ERROR NUMBER 
1SDE 3¢ OA 18FD 1481 ERROA MvI ERRIDsK*OA? SETUP ERROR NUMBER 164E F2 87 3E 1549 | ERRXX 
1SE2 CO B87 1747 1482 8 LCGERR GO TO LOG ERROR 1550 # 
1483 * i @ 1551 ow er ec ewe ww we ce coe we ne cee n eee ee 8 88 et ee ee 
1484 dec eew en waco en wn enn enn nn nnn nnn monn nn nnn wo conn nn nn nn nnn nenceseren-| 1552 * UNEXPECTED SCAN HIT CONDI TION 
f 1485 * ADAPTER CHECK | 1553 * 
. 1486 « | & 1651 3C 15 18FD 1554 ERRIS VI ERRIDexX*15* SETUP EPROR NUMBER 
1SE6 3C OC 16FD 1487 ERROC MvI ERRIDeX*OCt SETUP ERROR NUMBER \ 1655 F2 87 37 1555 J ERRXX . : 
1488 * i 1556 * 
1SEA OC O1 192E 192A 1489 mvc WORKNC 2) SNS SAVE SENSE BYTES AND | € 1557 pce ween cw nn nnn on en et 
1SFO F2 B87 OC 1490 J ERROFA GO TO BUILD FMT 3 SENSE DATA 1558 * INCORRECT RESIDUAL BDDR 
1491 * 1559 * 
VAG 2 am mmm a a a FF e 1658 3C 16 18FD 1560 ERR16 wMvI ERRID eX* 16" SETUP ERROR NUKBER 
1493 * ADAPTER SENSE BYTES DO NOT INDICATE CAUSE OF INTERRUPT | 165C CO 87 1747 1561 8 LOGERR GO TO LOG ERROR 
- 1494 * | 1562 * , 
: 1SF3 3c O€ IBFD 1495 ERROE “vi ERRIDs X*OE® SETUP ERROR NUMBER | e 1563 gee en an ote wn nn ne own ee eee ne see ee ee 
ISF7 CO B87 1747 1496 8 LCGERR GO TO LOG ERROR | 1564 * INCORRECT RESIDUAL DDCR 
e 1497 * i 1565 * 
XM 1498 geen ewe ee ee ne nen nnn nnn nnn nnn one on nn nnn nnn nnn nnn nnn @ 1660 3C 17 18FD 1566 ERR17 MvI ERRID eX*17* SETUP ERROR NUMBER 
1499 * ADAPTER CHECK ON READ DIAGNOSTIC SENSE COMMAND | 1664 CO 87 1747 1567 an 8 LOGERR GO TO LOG ERROR 
1500 * | 1568 * , 
1S5FB 3c OF 18FD 1501 ERROF wvi ERRIOeX*OF* SETUP ERROR NUMBER & 1569 geo mw eee en oe en een an mew ee ee eee RR RS Oe 
1502 * | 1570 * INCORRECT RESIDUA DDCF 
ISFF 3c 00 1985 1503 ERROFA MMVI DDOF +23 +0 CLEAR READ | ‘ is7i * . 
1603 OC 16 21984 1985 1504 ave DDDF+¢22¢ 23).DDDF +23 DIAG SENSE DATA AREA © 1668 3C 18 186FO 1572 ERR16 “vir ERRIDs X*18° SETUP ERROR NUMBER 
1505 * | 166C CO 87 1747 1873 8 LOGERR GO TO LOG ERROR 
1609 OC O01 196F 192€ 1506 uve ODOF41( 2) -WORKN BUILD | 1574 «= 
me 160F 31 C7 18F8 1507 cra SNS23eX*CTe FORMAT 3 : @ 1575 we oo cee nn a enn mn nw nn ee tee OO Oe OO OS 
1613 30 CT? 1971 1508 SNS DDOF +3 oX* C7* DI AGNOST IC | 1576 * INCORRECT RESIDUAL DDDF 
4, 1617 3C 36 1975 1509 wavy DDDF +7. X*30* SENSE DATA | 1S77 * 
*. 15106 « @ 1670 3c 19 18FO 1578 ERRI9 Mv ERRIDeX*19* SETUP ERROR NUMBER 
1618 34 O01 186F9 1511 SON IND e SNSAVL SET SENSE DATA AVAILABLE IND | 1674 CO 87 1747 1s79 8 LOGERR GO TO LOG ERROR 
a 1512 * | 1880 * 
ee, 161F CO BT 1747 1813 8 LCGERR GO TO LOG EPROR | @ 1681 few mew eo re eww wenn cee nn nn eee en ee een Ree ee Oe OO 
1914 ¢ 1582 * UNEXPECTED SCAN EQUAL CONOI TION 
“ 1515 Gere ern cee e een e neem e nee nnn ene nn nnn en nn nnn nen nnn nen en nn een neenenns| 1583 * : 
ad 1516 « EXPECTED OF END INTERRUPT DIO NOT OCCUR | @ 1678 3C 1A 18FOD 1584 ERRIA £=MVT ERRIDeK*1A® SETUP ERROR NUMBER 
1517 * 167C F2 87 10 1585 - J ERRKX ; 
1623 C1 C& 163C 1518 ERRIO- TIO ERR12ex* Ca? BRANCH IF INTERRUPT PENDING | 1586 * 
isi9s « | @ 2587 gee eee wee ewe nn coe eee eee cn ee en ee Oe Oe 
1627 38 04 16F9 1520 TEN IND, OPEND BRANCH IF NO Of END 1588 * INTERRUPT DID NOT CAUSE INTERRUPT PENDING TIO CONDI TION 
6 1628 F2 90 07 1521 Jt ERRI?! INTERRUPT OUTSTANDING | 1589 * 
"me 1522 | @ 167F 3C 1C 18FD 1590 ERRIC avi ERRID.X*1C* SETUP ERROR NUMBER 
162E 3¢C 10 168F0 1523 wvy ERP IDs X*1 08 SETUP ERROR NUMBER 1683 CO BT 1747 1591 8 LCGERR GO TO LOG ERROR 
ra 1524 * | 1892 * : 
ae 1632 F2 67 SA 1525. J ERREX | @ 1593 gee een cen ow on en ow wn nn rn en tt ee OO OO 
1526 * 1594 * UNEXPECTED INTERRUPT 
r 1S27 eww wn aw wee on om ene en nen nee wwe oe ee ee me oe wenn nee ere= | 1595 * . 
‘ee 15268 # EXPECTED SEEK COMPLETE INTERRUPT DID NOT OCCUR | @ 1687 3¢C 1€ 18F0 1596 ERRIE mvt ERRID X*1E* SETUP ERROR NUMBER 
1529 -. i 1688 CO 87 1747 1597 B LOGERR GO TO LOG ERROR 
: 1635 3C 11 16FO 1530 ERR1I?Y mvt ERREDeX*iL® SETUP ERROR NUMBER | 1s9s * 
~ 1639 F2 87 $3 1531 J ERRKX | e 1599 9 ee a noe na a ee en oe ne wen tT eS 
: 1832 «* . 1600 * COMPLETE ERROR PROCESSING 
fr. 1533 Sa ei gcle ebiecdante ae eh eevee Se et ee eae 1601 * 
~ : 1534 * INTERRUPT PENDING. BUT INTERRUPT DYDO NOT OCCUP | @ 168F F3 C4 VE 21602 ERRXKX sito M*VEt oX* Ca? RESET AND OFSABLE INTERRUPTS 
1$35 * i 1603 * % 
163¢C 3C 12 18F0 1536 ERR1I2 wvt ERRID oxe12¢ SETUP ERROR NUMBER | 1692 38 20 18F9 1604 TBN IND se ENTERR BRANCH IF INTERRUPT 
1640 F2 87 4C 1537 J ERRNX | @ 1696 F2 10 0D 1605 JsT ERR KXXA DETECTED ERROR CONDITION 
1538 * ' 1606 * 
r LBE3BQ bee mn ww ee a a nn a oe a nt OEE 1699 0D O01 192A 18C6 1607 cic SNSC 2) eNULLS BRANCH IF SENSE BYTES 
1540 * EXPECTED SCAN EQUAL DID NOT OCCUR © 166F ©2 01 04 1608 JNE ERRXXA HAVE ALREADY BEEN RETRIEVED 
1561 #* 16¢c9 * 
DATE OSAUGTS OSNOVTS OIMARTE PROG 1D c1F-2 DATE OSAUG?TS OSNOV7S OIMAR TE PROG 10 ClF<z 
EC NO 827779 e278e7 e27e72 PAGE 16 ee NO. 827779 a27827 827872 . PAGE 16a 
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PART NO. _ IBM MATNTENANCE DIAGNOSTIC PROGRAM PART NOe 8267621 
PAGE i? PAGE i7a 
| 
C1F2 3340 SYSTEM TEST MODULE -- MOO 12 _ | gw CIF2 3340 SYSTEM TEST MODULE -~ MOD 12 
1 sil 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
i 
16a2 30 CS 1924 1610 SNS SNS eX*CS* SENSE ADAPTER STATUS ¢$ 1670 cae eennanneneeeenesseeeeneeeaen ene Gsekene CaSO SeRee ae SSE SeeTSS SS SS SSS E 
. $611 * \ 1671 * * 
16A6 28 O1 192A 1Gi2 ERRXKA TBN SNS BIT? BRANCH IF | 1672 * ERROR LOG SUBROUTINE * 
16aa CO 10 15E6 1613 eT ERROC ADAPTER CHECK | @ 1673 * * 
1614 * i 1674 * eapeseeneranaesnnseeeeneeeensaaesenanens seseeeeeeeenss seeeee se seeeeee 
16AE 0C 00 1685 1468 1615 mvc +701) eTIOROV+1 GO TO READ DIAGNOSTIC 1675 * 
1684 C1 00 16C4 1616 T10 ERRXX Bs &-* SENSE DATA IF DRV NOT READY S 1834 1676 USING LOGexXR1 xR POINTS TO LOG AREA 
4617 * \ 1677 * 
1688 2C 00 168E 03 1616 mvc %4+6 oe UCKMSKE 1¢XR2) BYPASS READ | 1747 8S Of 16 1678 LOGERR L LOG Ale XR2PeXR1 SETUP LOG AREA POINTER 
168D 39 00 1929 1619 TSF SNS-1 »#—* DIAGNOSTIC SENSE © 1679 * 
16C1 F2 10 4F 2620 Jt ERRXXD IF NO UNIT CHECK \ 174A 7C 00 2F 1680 mvi DGSNSC oXR1) 00 CLEAR DIAGNOSTIC 
1621 * 174D SC 16 2€ 2F 1681 MVC DGSNS- 1 230 XR19eDGSNSCe XRIP SENSE DATA AREA 
16C4 2C 00 16E3 OF L622 ERRXXB “vc SIQSNS41 sORVADR C1 oXR2 DP BUILD READ 1 G : 1682 * 
16C9 3A O01 1663 1622 SBN SIOSNS41e81T7 DIAGNOSTIC SENSE COMMAND | 1751 28 01 18F9 1683 TBN IND o SNSAVL BRANCH IF NO 
4 * 5 GNO 
16CD C1 C2 1713 eee T10 ERRXKD e X*C2° SKIP IF ATTACHMENT BUSY ¢ eee ieee * vs potce —" Becestae 
1626 * | 1758 4C 17 2F 1985 1686 mvc DGSNS( 240 XR 13 DOF +23 LOG SENSE DATA 
1601 21 C4 16EC 1627 L110 DGSNS@eX* Ca * LOAD DODR TO SENSE AREA ADDR j G 1687 * : 
1628 * , & 17SD 30 80 196E 1688 cur ODDF oX*80* BRANCH IF NOT 
1605 20 C4& 192E 1629 SNS WGORKN. xX °cae BYPASS READ | 1761 F2 O01 1A 1689 INE CKRDY WRITE INHTIGIT 
1609 OD 01 192E 1B8EC 1630 cic WORKN(2) eDGSNS® DIAGNOSTIC SENSE | 1768 30 02 196F 1690 cul DODF+1 ox*02° COMMAND REJECT 
16DF Fe O01 31 7631 JNE ERRXXD IF INCORRECT DDDR LOAD © 1768 F2 01 13 1691 JNE CKRDY 
1632 * 1692 * 
16E2 F3 00 07 1633 SIOSNS sito K*O7* ge—* READ DIAGNOSTIC SENSE DATA | @ 176B 4C 09 15 1882 1693 mvC MSG(10eXRL) oNWRI TE MOVE WR INHIBIT "SG TO LOG 
1634 * 1694 * 
16ES OC 01 18FF 28C6 1635 MvC TIMER(C2) eNULLS INITIALIZE TIMER COUNT 1770 38 40 18FA 1695 TEN IND2 eROONLY BYPASS HALT TF 
¥636 + 1774 F2 10 40 1696 st LOGX PREVIOUS RD ONLY DETECTED 
16EB OD O01 OAO) OA0l 1637 cic P10( 29. IDADR GO TO SUPERVISOR 6 1697 * 
16F% CO O01 OAOA 1638 BNE ENTRY IF RUNNING SYSTEM TEST \ 1777 3A 40 18FA 1698 SBN IND2 eRDONLY SET READ ONLY INDICATOR ANDO 
1639 * | 1778 F2 87 2F 1699 J SETHLT GO TO SETUP FOR ERROR HALT 
16F5 O& O1 1SFF 18C8 16460 ERRXXC ALC TIMER(2 DoP1 WAIT FOR FALL OF @ 1700 * 
16FB CO AO 1712 2641 BOL ERRXXD ATTACHMENT 6USY | I77E 3D 40 196E 1701 CKRDY cul DOODF ox* 40" BRANCH If 
16FF C1 C2 16FS 1642 T10 ERRAXCeX*C2E OR TIMEOUT } 1782 F2 01 1A 1702 JNE LOGER OTHER THAN 
ids eae sp 1683 * | ts) 1785 3D 15 1975 1703 cur LODE +47 .x°15° NORMAL INTERVENTION 
1702 3a 01 18F9 SBN INDe SNSAVL SET SENSE DATA AVAILABLE IND 1789 F2 01 13 1704 JNE LOGER REQUIRED CONDITION Sa 
re * \ 1705 * 
i. ee =. = ee 1646 suns WORKN » X*CS* BRANCH IF READ S 17ac 4c 09 15 16A8 1706 mvc MSG (10 oXR19 eNROY MOVE NOT ROY MSG TO LOG ‘ 
2 1647 TAN WORKN.BIT7 DIAGNOSTIC SENSE 1707 * , : 
170F CO 10 1S5FB 1648 BT ERROF ENDED IN ADAPTER CHECK ' e 17961 38 80 18FA 1708 TEN IND2 eNOTROY BYPASS HALT TE PREVIOUS ; 
1649 « 1795 F2 10 1F 70 T 
1713 3e 20 18F9 2650 ERRXXD TEN IND. INTERR GO TO LOG ERROR | a6 * : igs OT READY NON en icee rer : 
¢ 1717 CO 90 1747 165! er LOGERR NOT INTERRUPT DETECTED ERROR | 1798 2A 80 16FA 1721 SON IND2 eNOTRDY SET NOT READY INDICATOR AND i 
‘a 1652 ¢ @ 179C F2 87 OE 1712 J SETHLT GO TO SETUP FOR ERROR HALT 
1728 3e 08 16F9 1653 TeN IND. TIOERR BRANCH IF 1713 * : 
- 71F CO 10 167F 2654 BT erric INTERRUPT PENDING FAILURE © 179F CO 87 O21E 1714 LOGER 8 UNPACK UNPACK i 
‘we 8655 ¢ 17a3 01 17a3 1715 oc tuiere ERROR t 
1723 38 10 18F9 1686 TeN INDs ORVERR BRANCH IF 17A4 18FD 17a5 1716 oc AL2CERRID) IDENTIFIER { 
eo 1727 CO 10 15DE 1ee eT ERROA UNIT CHECK | ® 17A6 188C AVA? IT1T pc AL2 (ERRNO) TO PRINT FIELO i 
“i 6se * : 
1718 * : 
esi 38 : ies — Ter ee cet eT 17a8 4C 09 15 1886C 1719 mvc MSGC10 oXRI 2 eERRNO COG ERROR IDENTIFIER =: 
' Ter “Le NO INTERRUPT \ 1720 * : 
1733 CO 10 15F3 1661 ov ERROE BITS IN ADAPTER STATUS | © 17AD 3A 40 18F9 1721 SETHLT SBN IND MLTSW SET ERROR HALT INDICATOR 
1662 « 1781 OC 00 1090 18FD 1722 mvc ERRHLT(1) eERRID SETUP ERROR HALT 
. 1737 39 10 192A 1663 TSF SNS eBITS BRANCH IF | 1723 * : 
~ ie 39 OF 1929 1664 Ter SNS<-1eX*OF® NOT ATTENTION © 1787 38 3F 18F9 1724 LOGX Ser INDoX? 3Fe RESET PROGRAM INDICATORS : 
172F CO GO 1687 vest : oF ERRIE INTERRUPT 1788 88 CO 00 1725 ser DIND( oXR2) eCEDM+LPSW RESEV DRIVE INDICATORS 
1726 * 
1743 CO 87 OFCD 1667 e @GNO1 GO TO RESET ATTENTION | @ 178E€ CO 87 1050 1727 8 NXORV GO TO TRY NEXT ORIVE 
1668 *¢ 1728 * . 
c le 
co \ 
te | @ 
ar 
- i@ 
OaTE A ? e ‘ ~ 
Ace oS ee phislialee PROG ID c1F-2 DATE OSAUG75 OSNCV7S O1 MARTE PROG ID CiFf=2 
PAGE 1? EC NO. 827779 827827 s27aer72 . PAGE 17a 
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17c6 


17CA 


LICE 
1702 
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ITET 
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34 
34 


30 


3@e 
F2 


35 
85 


=a 
38 
F2 
2c 
38 
38 
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38 
F2 


38 
2c 
39 


29 
Fe 


3A 
3A 


35 


co 


oe 
02 


cs 


ol 
10 


c2 
02 


10 
04 
10 


00 
oo 
02 
90 


e2 
S7 


oo 
oo 
oe 
90 


c4 
os 


210 


20 


02 


87 


1829 
1901 


1924 


192A 
ag 


1903 
o1 


192A 
18F9 
17 

17ED 
1929 
16F9 
27 


18F9 
04 


1BF9 
1608 
1929 
192A 
os 


1822 
16F9 


16F9 


16F9 


1901 


0000 


OSAUS 75 


e27779 


@- MOC 12 
ADDR STMT SOURCE STATEMENT 

1730 
i731 * 
1732 
1733 « 
1734 he ete ae ee eH Es a ae RE eH EH 
1735 * 
1736 DASDI st TASDIX43 eARR 
1737 st DAXR2 oXR2 
2738 * 
1739 DASDOO SNS SNS eX*CS*® 
1740 * 
1742 TEN SNSe LITT 
1742 JT DASDO4 
1743 =* 
17448 L ADRPT Re XR2 
1745 L 1CeXR2) oXR2]S 
1746 * 
1747 TEN SNS BITS 
1748 TBN INO eOQPEND 
1749 ST oOasool 
1750 * 

02 17S1 uve 465 SKMSKE 2eXR2) 
1752 TEN SNS—1 9 *-*# 
17S3 TBN IND e SKEND 
1754 JF 6ASDOS 
1755 * 

1756 SBF IND eSKEND 
1757 J DASDO 2 
1758 * 

1789 SASDO! SBF IND. OP END 
i760 * 

o2 1761 DASDO2 Mave #+6 DUC KMSKE 2 eXR2) 
1762 TeF SNS <1. #-*® 
1763 TeF SNS eBI TS 
1764 JF DasDdos 
1768 « 

1766 TIO DASBOS oX* C4t 
1767 SSN IND eo TIGERR 
1768 * 

-2769 DASDOS SBN IND ,DRVERR 
1770 * 

1771 OASDO4 SEN INO ce INTERR 
1772 * 

1773 CASODOS : DAXR2eXR2 
1774 * . 

1775 

1776 OASDIX 8 =e 

L777 *& 
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SETUP RETURN ADDRESS 
SAVE INDEX REGISTER 2 


SAVE SENSE BYTES 


BRANCH IF 
ADAPTER CHECK 


| 

| 
SETUP POINTER TO | 
DRIVE DEPENDENT WORK AREA : 


BRANCH IF 
EXPECTED OP END 
INTERRUPT OCCURRED 


GET SK INTRP MASK FROM ORV AREA 
BRANCH IF 
INTERRUPT IS 
NOT EXPEC TED 
RESET SEEK INTRP EXPECTED IND 
GO TO TEST FOR UNIT CHECK 


RESET OP END EXPECTED INDICATOR 


GET UNIT CK 
BRANCH IF 

UNIT CHECK GR 

NO-OP STATUS 


MASK FROM DRV AREA 


BR IF INTERRUPT PEMDINGes 
ELSE SET ERROR INDICATOR 


SET DRIVE ERROR INDICATOR 


i 
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SET ANY ERROR INDICATOR | 
RESTORE INDEX REGISTER 2 | 
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ERR LOC OBJECT CODE 


162A 
162B 
182C 


1834 
1835 
18326 
183€ 
1840 
184A 
1848 
184C 


1864 
1865 
1866 
186E€ 
1870 
1B7A 
1878 
187C 


1894 


1695 
1890 
189F 
18A7 
18A9 
1661 
1683 
1686 


DATE 
EC NOe 
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PART NOe 
PAGE 


4247621 
168A 


ARAAKKERERRAAASRHEKSARERSERSE KRESS BS 
* 


ERROR LOG AREA AND MESSAGE CONSTANTS * 


= 


eee ReheReOeSSRAEEAREREEES REREEE ERE CERES ARSE ESSERE AES EES SSeS SSS SSeS SS 


ADOR STMT 
1779 
1780 * 
1781 * 
1782 * 
1783 
1784 * 
182A 1785 ERRLOG 
1786 * 
€0 182A 1787 
08 182B 1788 
F3FBFEFO4O0D306C7 1833 1789 
1790 * 
80 1834 1791 LOG 
14 1838 1792 
C4D9C SE 5CS40F140 183F 1793 
6040 1793 
1849 1794 MSG 
40 184A 1795 
16 1848 1796 
1863 1797 OGSNS 
1798 * 
80 1864 1799 L0G2 
14 1865 1800 
CODSCSESC5S40F240 186F 1801 
6040 1801 
1879 1802 MSG2, 
40 187A 1803 
18 1878 1804 
1893 1805 DGSNS2 
1806 * 
FF 1894 1807 
1808 * 
DSDE40CSDSD9D609 189F 1809 NOERRS 
£240 1809 
DSDGEB40D9C5SC1C4 18AG 1810 NROY 
E840 1810 
DOC5C1C44006D5D3 1862 1811 NWRITE 
EB40 181i _ 
C5D9D940CB802E340 186C 1812 ERRNO 
ETE? 1822 
‘ 1813 * 
OSAUG7TS 0S NOV7S OMAR TS 
a27779 827827 a27872 


eau 


oc 
oc 
oc 


oc 
oc 
oc 


os 
oc 
oc 


DS 


oc 
oc 
oc 
os 
oc 
oc 
oS 
oc 
oc 
ec 
oc 


oc 


* 


xL1°80° 
TL1¢°e° 
CL8*2340 LOG*® 


xt_ieso* 
™L2°20° 
CLIO*ORIVE 1 - * 


cLio 

XL1° 40° 

TLic2a¢ 

xL24 

xL1*80° 

TL1e 208 
CLIO"DRIVE 2- ¢ 
CL10 

XL1°4@0¢ 

TL1¢268 

XL 24 

xXL1 *fFe 

CLIO®ENO ERRORS * 
CLIO* NOT READY * 
CL10*READ ONLY * 


CLIO*ERR HLT XK¢e 
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PAGE 19 & 
CciF2 3340 SYSTEM TEST MODULE -—- MOD 12 aor 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR Loc 
1815 RERKEEEAEEEE ES EE EEEREER EES RHEE EES REESE SEES SEES EERE EOE EEREEESEREDEE RD & 1913 
1816 * * 
1817 * CONSTANTS AND RESERVED STORAGE AREAS * 
1818 * * 3 1915 
LABLD RRKEKRAKREKEKKKAEEKEKKEKKEKEKSEEAETRAEBEAKEKKKEEKKEAKAEKESKAKEAEKKEKKKEKRERAREKKEE 
1820 * 
1621 * CONSTANTS \ e 191F 
1822 x : 
18BD 0000000000000000 18C6 1823 NULLS oc 10XL1°00* : 1929 
18CS 0000 1823 © 
2824 « 
1825 * 1928 
18C7 0001 18C8 1826 P1 oc Tu2¢2° i © 
18C9 0002 18C& 1827 P2 pc 1L2¢2¢ 
18CB 0004 18CC 1828 P4 oc IL2°as 
18CD 00000005 18D0 1829 P5 oc TLaese © 
1801 00000008 1804 1830 Pe oc ILaege 
18DS 0014 18D6 1831 P20 oc I1L2°20¢ 
18D7 00000100 18DA 1832 P256 oc 11L4°256° i ® 
1808 015D 18DC 1833 P349 oc IL2¢34a98 ; 192F 
- 1834 * 
18D0 FFFF 18DE 1835 Ni oc IL2¢=18 2] 1930 
1836 * 
18DF FRFFFFFF 18E2 1837 FFPTN ce QXL1* FFE SCAN TEST MASK 1931 
18E3 7777FFAA 18E6 1838 WCP TN oc XL4°T7777FFAA® WORST CASE TEST PATTERN. ¢ 1932 
1839 * 1933 
oe 18E7 1840 PATRN e€ou * 
oD 1887 18EA 1841 os xXL4 TEST PATTERN TEMPORARY STORAGE | ® 1934 
1642 * 1935 
18EB 196 16EC 21843 DGSNS® oC AL2¢€ DDDF) ADDR OF RD DIAG SENSE AREA 
% 18446 * @ 1936 
18E€D 1964 16EE 21845 DOCR ec AL? CDDCFD INITIAL DDCR INITIALIZATION VALUE 
: 1BEF 196E 18FO 1846 DODR oc AL2CDDOF) INITIAL DDDR INITIALIZATION VALUE : 193A 
8. 1647 * | @ io3e 
1848 %----------- + nn on nn nn en oe ee eee 193D 
c: 1849 * SVP INTERFACE CONTROL SYTES 193F 
ko 1850 « ! @ 1940 
18F1 2009 18F2 1851 SYSRST DC XL2* 20098 SYS RESET FLAG <--> xX REG : 1941 
s 1852 * 1943 
A 18F2 0003 18F4 1853 SVPREQ 1C¢ XL2°0003° SET SVP REQUEST | & 
1854 * | 1944 
# 18F5 C809 16F6 1855 CEMODE oc XL2°cs809° CE MODE INDICATORS <--> x REG 
an 1856 * ® 
18F7 0002 18F8 1857 SNS23 pc XL2°0002¢ SENSE ERROR BYTES 
. 1858 * : 
G 1859 Coen ineeeaawsem as tandntecswescerensen cena seweerecnnecencceeceecerescen @ 
1860 * COMMON INDICATORS AND WORK AREAS 
r 1861 * 1946 
"aaa! 18FS 00 18FO 1662 IND oc XL2I¢08° PROGRAM INDICATORS & 
18FA 00 18FA 1863 IND2 oc XLitoO® | 1947 
: 1864 « ; 
4 16F8 . 218FC 1865 LPCNT os ML 2 ROUTINE LOOP COUNTER | @ 1948 
1866 * i 1949 
Qe 18FD 18FD 1867 ERRID os xL1 ERROR IDENTIFIER TEMP STORAGE i 194A 
Nee? 1868 * | @ 
16FE 16FF 1869 TIMER os xL2 TIMER COUNT | 1948 
o 1870 « | 194¢ 
qe 1900 1901 1871 DAXR2 os xL2 XR2 STORAGE | @ 
1872 * | 194D 
a 1902 1903 1873 ADRPTR DS xL2 DRIVE SELECTION POINTER 
a 1874 @ 1921 
1904 1875 ADRTAL EQU- * 1952 
+ 1904 190C 1876 vs XL9 ORIVE SELECTION TABLE 1954 
Set 1877 « | @ 1956 
1900 190€ 1878 TDDCR os xL2 INITIAL DOCR VALUE | 1987 
3 190F 1910 :879 I1DDDR os xXL2 INITIAL DODR VALUE : 1958 
eu 18680 «¢ , i @ 1954 
1921 1912 1881 RDOCR Ds XL? RESIOUAL DDCR VALUE | 
| '@ 
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PART NOe 4247621. — IBM MAINTENANCE DIAGNOSTIC PROGRAM . PART NOso 4247671. 
PAGE 20: &. | PAGE’ 20a 
} 
ciFe2 3340 SYSTEM TEST MODULE <- MOD 12 ocr 2340 SYSTEM TEST MODULE -- MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1988 1864 198C 1980 LCG2a oc AL2 CLOG2) TOG AREA ADDRESS © 1965 ERAEKERERRAKES EESRAKESSESEAAREKEKEREREERE CHE SRKRASEAEREK TESS SERKASESRESKEKES 
1951 «* 1966 * * 
1952 theeenn wwe ne en one we ew en ee nn en oe oe ee en eee en ew wee ee ee ene 1967 * SYMBOL DEFINITIONS * 
1953 * eS 1968 * * 
1964 1954 ORG *€e1O0e0 &k* PROGRAM MAINTENANCE NOTE 848 1969 REKKKERREKERREREERRERSERAEAEEREEEEEKKEREEEERREEREARERERAE KE SE SRSHHSERSESBR OE 
1955 * ODCF AND DDDF MUST START i 1970 = 
1956 * ON EVEN ADDRESS BOUNDARY | ¢ 1971 * LCCAL STORE REGISTERS 
1987 = j 1972 * 
1964 1956 DOCF €0u * ODCF AREA 0001 1973 xXR1 eou xeo1¢ INDEX REGISTER 1 
1964 1960 1959 os XL1O ©} 0002 1974 XR2 Eau x*o2e INDEX REGISTER 2 
1960 * 1975 * 
o 196£ 1961 DDDF equ * ODDF AREA 0008 1976 ARR €aQu x*oae CURRENT LEVEL ADDRESS RECALL REG 
%, 196E 1A71 1962 os 260X1L1 © 1977 * 
1963 «x 1978 Re ee Oe oe Oe Oe 8 Oe Oe O08 oe © 08 6 8 OBOE OO & BOBO OOS OS OO BOS SHB OOOO OOO 
‘ 1979 * MESSAGE / HALT IDENTIFIERS 
NA ‘ © 1980 « 
C100 1981 HLTXX FOu x*C100° COMMON 3340 ERROR MALT 
oe 1982 * 
1984 * COMMON PROGRAM INDICATORS (IND AND IND2) 
gn 1985 * 
Rees & 0080 1986 BGNS# — EQU x aot PROGRAM RESTART INDICATOR 
0040 1987 HLTSW Eau Keane ERROR HALT AFTER TESTING ALL DRIVES 
“i 0020 1988 INTERR EQU x* 208 ERROR DETECTED IN 3340 INTERRUPT RTN 
Cc S@ 0010 1989 DRVERR EQu K*198 UNIT CHECK DETECTED IN INTRO RTN ; 
0008 1990 TIGERR EQU xX*08* TIO INTRP PENDING FAILED 
fo : 0004 1991 OPEND eau xt Oat OP END INTERRUPT EXPECTED 
a & 0002 1992 SKEND Eau x*"O2¢ SEEK COMPLETE INTERKUPT EXPEC TED 
: 0001 1993 SNSAVL EQU X*O1* READ SENSE DATA AVAILAQLE 
oe 1994 * 
Kee | @ C080 1995 NOTRDY Eau x*sor NOT READY DRIVE DETECTED ‘ 
0040 1996 RDCNLY EOU xa 08 READ ONLY DATA MODULE DETECTED 
& 1997 « 
1999 * DRIVE DEPENDENT INOICATORS (DINO? 
c { 2000 * ; . 
a @ 0020 2001 CEDM eau x*B08 CE DATA MODULE MOUNTED i 
0040 2002 LPSw fau x*aoe ORI VE LOOP INDICATOR . ‘ 
Mache off ce, 0008 2003 NOwR equ x*OBs ORIVE WRITE INHIBIT ITNDOICATOR Kee 
Pre es ee @ 0001 2004 Sw EQU xeore GENERAL PURPOSE PROGRAM INDICATOR f 
2008 * 5 
‘ i 2006 Beene ew wee ew oe 00 oo oe ee oe 080 0 08 BOO 8 6 Oe BOR HO BOO SO CET SOO DOO : 
ee @ 2007 « . \ BIT POSITIGN SYMBOLS : 
2008 * . : 
€ 0040 2009 BITt FQU x°aoe i 
‘ @ 0010 2010 BIT3" equ xe10¢ i 
0008 2011 BIT4 Fou x*ose : 
5 0004 2012 B1Tf Fou x*O4e 5 
* @ 0002 2013 BIT6 eau x*o2e 7 
0001 2014 BIT? fou xeore ¢ 
fe 2015 * 
2017 * DCP SECTION REFERENCE TABLE 
fr: 2018 * 
a @ 0212 2019 TEST EQu x*O212° CHECK FOR USER INTERVENTION 
| 0216 2020 LINK eau x*0216*8 TERMINATE SECTION 
ee O2Z1EF 2021 UNPACK eau X*O2Z1E° UNP ACK DATA - HEX TO EACDIC 
ws. eS 0222 2922 HALT EQU ¥*o222¢ HALT AND DISPLAY HALY IDENTIFIER 
- 2023 * 
c POD 0 ce ee 0 ee 00 ee SOF EPO SOE PE PLD DDL DLO DD A EO OD EP OY 
@ 2025 * OTHER REFERENCES EXTERNAL TO THIS SECT ION 
ae 2026 * : 
- | OA01 2027 IDACR eou X*OAOLE SECTION IDENTIFIER ADDRESS 
* @ OAOA 2028 ENTRY EQu X*OAOA® SUPERVISOR ENTRY 
2029 * 
f | g FFFF 2030 END 
Net 
: | & Bs 
DATE OSAUGTS OSNOVTS O1MART6 PROG 1D ciF-2| DATE OSAUG TS OSNOV7S 01MAR76 PROG 1D CiF<2 
FC NO. 827779 827827 827872 PAGE 20 e NO. 827779 827827 827872 . PAGE 20A 
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ciF2 2340 SYSTEM TEST MODULE <-- CD 12 core 2240 SYSTEM TEST MODULE OD i 


CROSSREF ERENCE 








CROSS-REF ER ENCE 
| €3 symeot 7 LEN VALUE DEFN REFERENCES 
SYMBOL T LEN VALUE DEFN REFERENCES | 
£ 64 
ADRPTR A002 1903 1873 oB04t 0819 O827% 0832" 1744 | e oe . a ns fae — 162 1631 1641 
ADRTBL A 001 1904 1875 o7s7 0802 0831 . ERRO oo a ee Wave 
ARR Cc 001 0008 1976 0748 0866 0878 0932 0972 0968 0996 1017 1054 1084 1096 1127 ERROC A aoe : ace aoee 
2141 1169 1188 1217 1227 1237 1259 1269 1283 1736 | C... ‘ 00 1SF3 pe ae 
BEGIN A 006 OFBS 0748 0041 0069 0099 0128 0166 0216 0269 0299 0356 0437 osie os95 eed t aoe tees on ene 
0654 0701 
? 414 
EBGNSw C001 0080 1986 037 O775 o78e5 pecans ; 1S aks Le abe 
RBGNXK -A 004 1059 0809 O755* 0853 je re en Geen. tase oo 
BGNO1 A 003 OFCD 90757 1667 | opto ces qeea. ceee ie 
Baits nee oan Gass you | Ke eRROS A004 159C 1439 1335 
BIT: € 001 0040 2009 0988 0498 0549 0570 9620 0635 | aaa . BGk aes rani ens 
BIT3 ¢C oct 0010 2010 1659 1663 1747 Co. Sie ees oace see 
pace ; oat Bb 6a nn be 1659 , ERROBA A 006 1586 1459 1446 1452 
1 ERROBP A004 158C 1461 14648 
BITS Cc 001 0002 2013 2108 1108 
BIT? C 001 ©0001 2014 0504 0527 0552 0576 0577 0642 1431 1612 1623 1647 1741 ©: erroac aA 003 1S5CD0 a atic 
BRANCH A 004 14CF 1343 2285* 1290 | eee. : oe ee apes Ree gas 
ccs i ace yeas seas a ERRIA A 004 1678 1584 0621 0634 
CEDM C 001 oo8c 2001 eess 1106 1725 | aS ' oct ne ee ee 
CEMODE A 002 18F6 18&5 O766 Gre Foe eae vqeie te 
CKRDY A 004 177E 1701 1689 1691 Soe ee cont ass Aa oo | 
? ‘ : 
ee ' ae ieee ese 1387 | .ERRIZ A 004 163C 1536 1518 
DASDIX A 004 1826 1776 1736% | &JserrR13 A 004 1642 1842 0489 OS550 0571 : 
DASDOO A 008 17CA 1739 | ERR14 A064 164A 1548 0486 0856 0499 0£47 0868 0618 0631 : 
S001 #004 17FE 1759 1749 | gm FRRIS A 004 1651 1554 04658 0464 0470 0477 : 
ba | £3 eerR16 A 004 1658 1560 0920 0961 0989 1045 1075 1217 3152 12177 #1208 «1249 ; 
DASDO2 A 0OS 1802 1761 1757 Bee cae ieca: acer eS 
DASDO3 A 004 “%81A 1769 1764 Ke ' 
0923 0952 0979 1631 1033 1070 1072 12120 6 12 
DASDOG A 004 181€ 177% 1742 «#1754 e A 004 1668 1572 ore eS 0328 92 a : 
DASDOS A 006 1822 1773 1766 ae : 
232 41€ 556 0561 0576 O€24 O637 nas 
DaxR2 A CO2 1901 1871 1737% 1772 = : oe. — ae 0191 0248 023 041 os! 
pocr A 001 1964 1958 1845 * ; 
cccr A 002 18€E 1845 o772 0848 FFPTN A 001 18E2 1837 0555 0560 0€23 
ODF a001 196E 1961 0397* 0398 0298* 0450* 0451 451% 06452% 0479% 0531* 0S$32 0832* 0533* FF2 A 001 29581 1942 ‘ . : 
534% 0535* 0540 0540 0555 0560 0573 0608 0609 0609% 0610% 0611* | ge, HALT = cc (008 0222 2022 pee acer Gh eee 
C 0623 0636 1503* 1504 1504" 1506* 1508+ 1509 1686 1688 1690 1701 ae , nee tee see 0915 
1703 1843 1846 | HH . ; : 
DOOR A 002 18F0 1846 o773 . 0849 | gee Set pe eet ee o0e3s 1721 
DGSNS A 024 1863 1797 0781% 0782 07682* 0782 1680* 1681 1681% 1666+ =: 
?v 1369 1637 
DGSNS® A 002 18EC 1843 1627 1630 | ia : oo once aoe 0769 0816 1287 1339 1363 1378 
DGSNS2 A 024 1893 1805 o7e83% ; . 
Co A asi 192F 1901 0227 0276 O30E 0367 0665 0793% 0799% O807*% O85! oasex 088s 1106* ' SP ropcen a 010 191E 1885 0922 1119 1305* : : 
| IpDcR A 002 190& 1878 0144" O7 72% 0848% 1207 1312 1395 1398 
ND2 A ©0Ol 1946 1929 ee ae IDDODR a 002 1910 1879 0050* 0145* 0188 0196 0197* 0245 0253 O254% 0330 ©0338 0339% 0374 ‘ 
a SL F A 002 1942 1919 ©0185 0242 0327 O379% 0955* 0978 0985 1001* 1008 1032 1039 1059 & 0329% 0395*% 0404% 0410% 0411 0421 O4228 0537 0552 OS76 0577¢ O773¢ : 
= 3 2122 2151 1176 1207 1248 : 
1134* 1148 11273 1202 — Beets ce ore. 0s83 1037 1074 110 ’ 
pevaoe : eel ros pe 1299 1282 1302 1622 @ ino -A 001 18F9 1862 0037% O775 O785* 0835 0838* 1327% 1332% 2335* 1347 1352 1392 1462 
fAvans a 001 1947 1931 = | 1474% 1511* 1520 1604 1664* 1650 1653 1656 1683 1721% 1724¢ 1748 
DEVERR C001 0010 1989 1656 17€9 | 1753 17568 1759 1767% 1769¢ 1771% : 
DRVWK &€ 001 192F 1895 0026 © ine A 001 18FA 1863 1695 1698 1708 17218 : 
pevwe1 A 001 192F 1859 0789 INTERR C 001 0020 1988 1392 1874 1604 1650 1771 : 
ORVwK2 A 001 1946 1927 0795 MP A 003 1408 1348 1286* 12898 
ENTRY C 001 OADA 2028 O7T70 O817 1364 1379 1390 1638 \ KL a 001 1940 1918 9984 1038 
EPRHLT 2 002 1090 O0841 17228 KL2 A 001 1957 1946 
ERRID A001 18FD 1867 1414% 1420% 1426 1439% 1445% 1451% 1457% 1471" 1481 1487% 1495 1501* t INK Cc 001 0216 2020 
N. 1523* 1530% 1536% 1542* 1548* 1554* 1560* 1566* 15722 1578 15842 1590* L110 A Bar eee oet sous Ness 
9896" 171E 1722 LOG A 
EPRLOG A 001 182A 1785 0021 . LOGS A ibe a oe eae a 
EPRPNO A O10 188C 18622 1717 «1719 : RPLOGER A 
97 1651 
ERRXX A 003 168F 1602 1393 1460 1476 1525 1531 1537 1583 1589 1555 1585 LOGERR A 003 1747 1678 1434 ee 1496 1513 1861 1567 1573 1579 3591 15 
ERFXXA A 004 1606 1612 1608 1608 eet a 004 1787 ave® 1696 1709 
' ERRXXE 2005 16C4& 1622 2616 LOG2 A 001 1664 1799 1950 
' ERRXXC A 006 16F5 1640 16482 LOG2@ A 002 195C 19890 
. e PROG 1D Cif <2 
DATE OSAUGTS OSNOVTS O1MAR TE PROG ID cC1iF-2 DATE 05 auG75 OSNOV7S O1MARTE oe be 
€C NO. 827779 827627 B27872 PAGE 21 : eo NO... 827779 827827 827872 . 
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PART NOs _1BM MAINTENANCE DIAGNOSTIC PROGRAM . PART NOe  424762° 
PAGE 22 | & j PAGE 22a 
CiF2 3340 SYSTEM TEST MODULE <-- “OD 12 , err 2240 SYSTEM TEST MODULE <-- MOD 12 
Ka 
CROSS -REF ERENCE | CROSS-REF ERENCE 
SYMROL T LEN VALUE DEFN REFERENCES 2 svweor 7 LEN VALUE DEFN REFERENCES 
- CoP A 006 10A2 0848 0058 0088 0117 0155 0205 0260 0347 0507 0583 0645 O73£ 6829 ie 0600 O€f6 0706 
Looex a 0o0& 1088 O855 0751% | €: evsusa A 004 1260 1112 1v91 2110¢ 
LPCNT A 002 18FC 1865 0039% 0057% 0214% O256% 0374% J39E 0410 O0413% 04164 0516% 0582* 0699% | ROSNSB A 003 12D7 1108 1105 
O714 O733% 0734 ~ RDSNSX A004 12FF 1122 1084% 1096 
tesw C 001 0040 2n02 0807 O8F1 oeS2 172 | &sRDVKD A 004 1262 1054 0683 
MSG & 010 1849 1794 O778% 1693*% 1706% 1719*% RDVKDX A 004 12AE 1079 1064*% 1061 1077% 
MSG2 A 010 1879 1802 O779" | oc A004 108C 0866 0045 0072 0103 0132 0170 0220 0275 0303 0360 0441 0522 0599 
NN a 001 1943 1920 O871* 0896" 0947% 0974% 1024 1028 1040% 1063* 1067 21132% 1166% 1170 3 0658 0705 
1171# 1195% 1199 1200% 1244% 1305 1308 RR A 001 193F 1917 0973% O981* 1004* 1023 1028% 1035 1062* 1067* 1071 1165% 12708 11948 
NN2 a Oot 198A 1948 ne, 1199% 1205# 12434 
NOERRS A 010 189F 1809 0778 0779 Geers A OC1 1956 1945 
NOTRDY C 001 0080 1995 1708 1711 RIN A 001 OAOZ 0028 
NOwR C 001 0008 2003 0227 O276 0306 O367 665 1110 - 4. RTNPFE 4 001 OAOD 0033 0020 
NRDY A 010 18A8 1810 1706 ; € Roa A 006 0D13 0434 0358 
NULLS A O01 18CE 1823 0535 0696 0871 OB89€ 0947 1001 1059 1132 1294 1358 1373 1459 ROAA £004 OD25 0441 
1607 1635 | an ROAB A&A 004 OD34 044€ 0438 
WWRITE A 010 1882 1811 1693 : &roaB1 A 004 Ope2 0488 0485 
WxORV A OOS 1050 0814 ooss 0083 0112 0150 0200 0228 0257 O277 O288 0307 0342 0368 | ROAB2 £8004 O098 0498 0495 
0425 0501 0580 0639 0666 0687 O727 0891 1727 _ROAC A 006 ODA4S Of03 0439 
NXORVX A 004 109E 0843 O7S2e case 7 ROB A004 ODB6 OF£16 
NxXDOl & 004 106A 0819 ROBA A004 oODpc2 0522 
NxG02 A 004 10862 0831 0822 . ROBE A006 ODDi 0529 0519 os7# 
NI A062 18DE 1835 1040 i rossi A 0O& ODFE 0542 0538 
OPEND C 001 0004 1991 1327 1232 1461 1620 1748 1759 PoRB2 A ODS OFOC O849 0546 case 
PA A 004 1939 1912 0925*% 0951 1133 1 gm ROBB3 A 006 OF29 0560 oss3. 
PATRN A001 I18E7 1840 0434% 0435% 0452 O£02 0503* 0504" C506 05924 0593* 0610 0641 0641* 3ROBB4 A 004 Of33 0563 0558 
0642 0644 ROBBS 4004 OF41 0570 0567 
eae A 004 19€0 1940 . ROBC A 006 OF63 0582 0520 
pec a 002 OAO? 0020 | ee ROC A 006 OF6D 0592 : : 
PID A 002 OAOI 0016 0698 0731 0769 0816 1287 1339 1363 1378 1389 1637 ROCA &£ 004 OCE?F 0599 3 
Pi aoo2 18Ce 1826 0057 0085 0114 0152 0202 0259 0344 0582 0733 6763 o899 1010 ROoCB A 004 OFSE 0606 0596 
1463 1640 ' GF rocet A 00a OFB4S 0626 0617 
P2 A 002 18CA 1627 1047 1077 #1179 «+1210 «#12E2 «#41366 «1382 i RocBe A 004 OED4 0633 0630 é 
P20 A 002 1806 18631 o9ce 0911 : =, RF OCC A 006 OFFA 0641 0597 : 
P256 A 004 18DA_ 1832 0185 0242 0327 0413 a ROD A008 OFFC 0654 ; 
P349 A 002 r8eDC 1833 o718 . RODA A 004 OFO04 0658 : 
PA a 002 :18eCcC 1828 0193 0250 o235 0418 | gr Roos A 003 OF12 O0€65 o6ss 2 
ps a 004 1800 1829 0379 ZROE A 006 OF3D 0696 06656 : 
2B A 004 18D4 1830 1134 ROEA A 004 OF5S3 0705 : 
a A 001 1934 1909 OREB* 08934 09348 0944% 0970% 0998% 1019% 1056*% 1066+ 1098% 1129% 1143% ,ROEAL A 002 OF61 0710 0696* O715 0729% 
L161% 1160* 1219% 1229% 1239% 12618 12718 1524 1329 FROEB A 004 OFE6E O714 0702 
a2 A001 1948 1937 ROEBiL A OCS OF7O0 O716 oT19 . 
R A 001 1935 19120 O869% 0894% 0935 0945% 0971* 0999*% 1020% 1057# 1087 1099% 1130 1144 ROEB2 A 002 OFSS O725 O715* O716% O717* O718 O7F729 
1162% 1162" 12208 1230% 1240* 1262* 1272* 1296 wR OEC A 006 OFS2 0729 o703 : : 
RDCKD A004 1108 0996 0141 0179 0182 0232 6229 O317 0324 0376 0672 ROI A 004 OALS 0039 0737 ; ; 
RDDCF A OO1 191F 12887 0193*% 0250% 0335* 0951 0978 1008 1030 1032 1069 1071 1148 1173 ROA A 00& OA25 0047 0042 : 
1202 R018 A 006 OA320 0057 0043 , ee 
RDDCEN £010 1928 1888 0922 1119 129€% Roe A 004 OA&7 0067 
RDpcR A 002 1912 188! T3IS* 1370% 1398 -ROZA & 006 OAS3 0073 0070 
%. RDODR A002 1914 1882 0389 0404 2915 0960 0988 1044 1076 1116 1151 1176 1207 1248 LF ROZAL A OO1 OAE3 0078 0067% 00BS* 0087 
1316” 1318 1321 371% ROZE A 006 OAGE 0085 0072 
ROHAE A 004 1156 0932 0075 0081 0110 0139 6177 6230 0283 0313 O570 0448 0529 0606 | R03 A 004 OA7TC 0097 , 
0668 O712 O725 i ROBA a 004 Oass 0103 0100 ; 5 
PDHAD A 004 1166 0942 0167 0286 ROBAL A 0O1 OADS C107 0097* O134% O116 : 
RDHADA A 005 1170 0947 0937 . RO3B A 006 OCASDF 0114 o1o2 ‘ 
ROHAOK A 004 1198 C6963 Ccs32e 09425 i ROO A004 OAAD 0126 
ROKD A 006 1208 1017 0400 0406 ROGA A 004 OABS 0132 
ROKDA A004 120F 1022 1222 .RO4B & 004 OAC1I 0135 0129 : : 
RDKDE A 003 1238 1038 1041 wei RO4B1 A OCL OACS 0136 0126* 01524 0354 . 
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146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
i171 
172 
173 
174 
175 
i176 
177 
176 
i79 
180 
1681 
182 
183 
184 
185 
186 
187 
1866 
189 
190 
i91 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 


OSNOV7S 


827827 


SBN 
8 


e 


cReBIT2 
txop 


CReBITT 


Vex" Bre 
uxoPe 


CReBIT?S 
txoe 


CRC1DeONE 


CReBIT2 
AL SLO 
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PAGE 2a 


BUILD *"SADI® MICRO-INSTRUCTION | 
EXECUTE *SADI*® INSTPUC TE ON 


SETUP ODD ALS ADDRESS 


SET ODD ALS LOCATIONS TO x*6F*® 
EXECUTE *SADI® INSTRUCTION 


BUILD *SABI® MICRG- INSTRUCTION 
EXECUTE *SABI*® INSTRUCTION 


ADVANCE ALS ADDRESS 


LOOP UNTIL ALL ALS LOCATIONS 
HAVE BEEN INITIALEZED 


INITIALIZE ZONE LOCAL STORAGE (ZS) 


* 

* 
“vi 
MVE 
avi 


ZLSLD 8 


tio 
tro 


t10 
t10 
¢ 


i wn ww oe ow OO OO 


* 

* 
ttc 
SNS 


cul 
BNE 


10 
19 
L110 
L110 
SNS 


cLrY 
BNE 


Cex*03° 
CRexX*B0? 
Vv ox*00° 
Lxoe 

CREF DCONE 


cr eBfLT2 
ZLSLO 


PVILO 
eszre 
MICRO—- INSTRUCTION 


EXECUTE *"SZI® INSTRUCTION 


ADVANCE ZLS ADDRESS 


LOOP UNTIL ALL ZLS 
LOCATIONS HAVE BEEN RESET 


we ww we ww ww ow ee oe ow @ oo ae ee eS ES 


ENITIALIZE INDEXe CSAR» AND ADDRESS COMPARE REGS 


CeO 
TRO 
Vex*KhFe 
Looe 


LALUD.x*cs?® 
LINDEX. X*CS & 


¥29 
cop 


LALUDe xecs?® 
LCSADReX* C5 * 


KOSex*CS* 
RSPCRX*CS* 


KX*DO® <--> OP REG C 

X°00® «<-> OPREG CR 

INDEX VALUE <--> OP REG Y 
LOAD OP REGISTER ——— 
Vv REG -=> A REG --> O REG 

O REG --> INDEX REG 


xX®008 --> OP REG ¥ 
LOAD OP REGISTER 


Vv REG <--> A REG -=-> D REG 
K*0000"% <--> CSAR E& ADDF COMPARE 


RESET K2 
RESET PCR LATCH AND X REG 


ee Td 


CHECK FOR SUCCESSFULL INITIAL T ZATION 


SIOLEXK*Cr® 
WORKNe X°C7® 


WORKN eX *F7® 
TOPERR 


KO2%eX*CS* 
SVACCoX*CS® 
KO34 oX* C5? 
SOTReX*CTe 
WORKNeX*CT® 


WORKNeX*A1® 
LOPERR 


SENSE IDOLE STATUS 


GO TO ERROR HALT IF 
INCORRECT I0OLE SENSE 


SET K2 (SERVICE MODE} 
SERVICE ACCESS CYCLE 

SET K3 (CLOCK RESET) 
SENSE ACCESS POINTER @EG 


GO TO ERROR HALT IF 
INCORRECT ACCESS POINTER 


PROG 10 Cc1i-t 


(PAGE 
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cri 

€re coc 
0697 
03 9R 
OROF 
oBaz 


ORA? 
08 ad 


oB81 
oses 


ose9 


oseFr 
oBcs3 


oBc7 
oscs 


oscr 
o0B05 


0809 


oeoFr 
OBES 


DATE 
€c NG. 


3340 CONTROL STORE 


OBJECT CODE ADDR STMT 
31 C7 1008 208 
20 C7 3334 209 
31° C7 1001 210 
30 C7 1136 211 
212 
OO O01 21135 10F3 213 
co 01 oosc 216 
215 
30 BF 1136 216 
co 01 008Cc 217 
2186 
219 
220 
221 
oc 02 1120 10F3 222 
223 
co 87 OF6S 224 
co 87 OF9B 225 
226 
38 20 1127 227 
co 10 OESF 228 
229 
00 O02 1120 1129 230 
co 01 opeCc 23: 
232 
O€ O2 112D 1103 233 
234 
36 420 1128 235 
co 90 OBARF 236 - 
237 
2% AUG75 OSNOV7TS 
627765 627827 


TEST - M00 12 


SOURCE STATEMENT 


* 


t10 
SNS 
ito 
SNS 


cic 
BNE 


cur 
BNE 


SALSHeX°C7®# 
WORKN=2—X*CT® 
SINDEXse X*C7e 
WORK NS X*C7® 


WORKN=2¢(2) NULLS 
TOP ERR 


WORKNe X*BF ® 
TOPPER 


| 
! 
| 


PART NO. 4247691 
PAGE 3 


SENSE ALSS 

SENSE ALSD & INDEX REG 

GO TO ERROR HALT TF 
INCORRECT MIAP VALUE 


GO TO ERROR HALT IF 
INCORRECT INDEX VALUE 


Bee Oe oe COW e © OO O68 0 OOS OO 26 OS © OOOO OO 6 BOO OSES OS COT BOS CSCS ODS OTS CRO eee ee 


TEST HICRO-PROCESSOR OP REG 


cic 


TBN 
BF 


OPREGC SP eNULLS 


Lop 
sop 


IOP INeBIT2 
INVERT 


OPREGC 3) 2 IT OPING2 
TOPERR 


OPREG(3)eX0801 


CeBrts 
opTsT 


INITIALIZE TEST PATTERN 


LOAD OF REG 
SENSE OP REG 


*OJUST FOR HARDWARE 
INVERSION OF OP REG BITS 


GO TO ERROR HALT IF 
O0> REG INCORRECT 


ADVANCE OP FEG TEST PATTERN 


LOOP UNTIL TEST PATTERN 
EXCEEOS OP REG SIZE 
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a 
: 
oe 


ay 


a, 


ae 


om cy t 


ot 


ro 


ee eS 


© 


® 


7 
Rod 


@ 


© 0 © 


OBET 
OBsED 


OBF! 
oBF7 


OoBFD 


ocoi 
oc 07 


ocoD 
ocii 


ocis 
ocis 


ociF 


oce3 
oc27 


oc2s 
oc 31 


oc3s 


oc36 
oc3F 


ocet 


oca7 
oces 


ocer 
ocs3 


ocs? 
ocsD 


océi 


0Cc67 
océ6e 


OCc6éF 


oc73 
oc77 


oc7a 
OCc7E 
 oca2 
ocsé 
ocea 
0c BE 
oc91 


DATE 
EC NOe 


3340 CONTROL STORE TEST - 


a 


° 
a 


co 


oc 
oc 


co 
co 


0D 
co 


3A 


co 
co 


oD 
co 


OE 


38 
co 


3a 


3a 
368 


co 
co 


oo 
co 


oe 


38 
co 


co 


39 
F2 


39 
co 
78 
co 
ce 
€2 


20 


o1 


oo 


o3 
3 


8? 


62 
o2 


87 
87 


02 
01 


sv 
87 


02 
01 


02 


40 
90 


01 


20 
20 


S87 
ST 


02 
o1 


o2 


20 
90 


e7 


os 
10 


oc 
90 
03 
20 
02 
o2 


o1 


ERR LOC GBIJECT CODE 


112F 
1126 


210c3 
1089 


ODES6 


1132 
1120 


JEOA 
o£e1E 


2120 
Ofe7 


1120 


OEOA 
OE LE 


1120 
cCze?7 


1120 


1128 
oc23 


1120 


1128 
1128 


OE OA 
OELE 


2120 
OeE?7 


2120 


11228 
oca?7 


OF6T7 


1125 
29 


31125 
0099 
112¢ 
0099 
1216 
o4 


112E€ 
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ADDR STMT SOURCE STATEMENT 


10F3 


1OFF 
1OFF 


10F3 
10F3 


1129 


1129 


ii2c 


1129 


1120 


oo 
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239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 

262 
263 
264 
265 
266 
2¢é7 
268 
269 
270 
271 

272 
273 
274 
275 
276 
277 
278 
279 
280 
2823 

282 
283 
284 
285 
286 
287 
288 
289 
290 
291 

292 
293 
294 
295 
296 
297 
298 
299 
300 
301 

302 
303 
304 

305 
306 
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SOKSEEEAEREKRE RE SEAREKERESERESEEKERESESERAEHEEEEEKERSERKSRSEARESAELARET SESE S SEES 


s 
* 
* 


& 


CONTROL STORAGE BIT PATTERNS TEST . e 


SSEKESSEAE SEEK ESEEESEEEEEEEESERESERERSEEESEEEEESSEEKESEKERAMEKSEAEKSERAAEEEE 


& 
SITEST avec 
* 
“vi 
e 
“ve 
avc 
* 
STsToi 8 


mvc 
mvc 


cic 

BNE 
s 

SBN 
s 
BYSTO2 8 


s 
cic 
BNE 


alc 


TEN 

BF 
s 

SBN 
* 
aTstTos3 SBN 
S8F 
* 


cic 
BNE 


ALC 


TBN 
BF 


TBF 
JT 


TSF 
eF 
TBN 
eT 
* 
La 
* 
DATACK LA 
s 


cic 


CSAR( 2) eNULLS 
REVSwe0 


LERWS( 4) eZEROS 
RERRS (4 34ZEROS 


LCSAR 


PATRN¢2(3) eNULLS 
OPREG(S DeNULLS 


wRCS 
Rocs 


OPREG(3) 2 OP ING? 
GENPTN 


¥eBIT7 


wRcs 
Rocs 


OPREG(3)e TOPPING 2 
GENPTN 


OPREG( 3) eOPREG 


CeBITi 
BTsTo2 


VeBIT7 


CeB1I T2 
CeBIT! 


wRCS 
ROCS 


OPREGC 39 e LOPING2 
GENPTN 


OPREG{ 39 eOP PEG 


CBI T2 
BYSTOS 


CKP TN 


INO+S8L4S6R 
ADRTST 


TNO eMBL468R 
CSERR 
INDeS@L+¢+SBR 
CSERR 
DTA TAL <—3 eXR2 
4( oXR]29eKR2 


CSARe 0020 XR2) 


INITIALIZE CONTROL STORE AaoDR 
RESET INOTCATOR FOR ADDR TEST 


INITIALIZE SINGLE 
BIT ERROR COWTERS 


LOAD CONTROL STOPE ADDR REG 


CLEAR EPROR PATTERN 
SETUP ALL ZEROS TEST PATTERN 


WRITE 
CONTROL STORE 


TEST PATTERN TO 
AND READ BACK 


GENEPATE ERROR PATTERN 
IF ANV CONTROL STORE ERROR 


SETUP FOR SHIFTING ONE PATTEPN 


WRITE TEST PATTERN TO 
CONTROL STORE AND READ BACK 


GENERATE ERP OR PATTERN 
IF ANY CONTROL STORE ERROR 


SHIFT TEST PATTEON LEFT 


LOOP UNTIL ALL BIT 
POSITIONS HAVE BEEN TESTED 


SETUP FOR SHIFTING ZERD PATTERN 


StT INVEV YT BIY 
RESET UNUSED AIT POSITION 


WRITE TEST PATTERN TO 
CONTROL STOPE AND READ BACK 


GENERATE ERROR PATTERN 
TE ANY CONTROL STORE ERROR 


SHIFT TEST PATTERN LEFT 


LOOP UNTIL ALL 8IT 
POSIT TIONS HAVE BEEN TESTED 


GO TO ANALYZE ERROR PAYTEON 


BRPANCH ITF NOD 
CONTROL STO@E ERROPS 


GO TO ERROR 
HALT IF ANY 
MUL TI-8IT CONTROL 
STORAGE FAILURE 
POINT TO DATA AREA ADDR TABLE 
ADVANCE POINTER 
GO TO EFROR HALT IF 
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PaGE as ; Pace aa 
ci1%1 2240 CONTROL STORE TEST - “00 12 fe Cill 3340 CONTROL STORE TEST -— MOD 22 
pw 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ‘ ERR LOC OBYECT CODE ADDR STMT SOURCE STATEMENT 
\ 
Zz 1 £ 
0c96 CO 82 0999 307 eu CSERR SINGLE BIT ERR IN DATA AREA {| 313 eee SeReRERESERERCREEEEE HO REE EESEEEERERES SESE RESERE SEESESEERESS EES SO ES 
OCGA 2D O1 112F 02 309 , ac CS4Re 2020 XR2) BRANCH IF ADDRESS IS 315 2 CONTROL STORAGE ADDRESSING TEST * 
OCOF CO 84 OC BE 310 6H DATACK NOT WITHIN MICRO-CODE AREA { & 316 * * 
31 ¢ 317 © ON FIRST PASS WRITE EACH CNTRL STORE LOC WITH ITS OWN ADDR = * 
e@ 318 * THEN ON SECOND PASS REVERSE LEFT AND RIGHT DATA evTres / * 
| 319 © TO OBTAIN UNIQUE PATTERNS IN LEFT BYTE WITHIN A BLOCK * 
‘ 320 * * 
: Q - 321 SRS ASEKEEAREREREERDECESREESEOEESSEEEES HOTS SEES SEERES SEES SSESE TES ESSE SSS 
_ 322 * 
/ OCA3S CO B87 ODES 323 aDRTSsT 6 LCSAR LOAD CONTROL STORE ADDR REG 
. . - 324 & 
c OCA? 30 01 1126 325 CLI = REVSWel BRANCH If LEFY & RIGHT 
; ocaB F2 01 OFC 326 JNE aTsTos DATA BYTES ARE NOT REVERSED 
327 *# 
C OcaE OC OO 112C 112F 328 wvc CR(19eCSARD REVERSE LEFT & PIGHT 
ocBe OC 00 1142D 112E 329 avC ¥C1)9 eCSARS DATA BYTES ON 2ND PASS 
os 330 * 
& OCcBA CO 87 OEOA 331 ATSTOS 8 wRCS WRITE CONTROL STOPE addR TO 
ocee co 87 OEIE 332 8 rocs CONTROL STORE AND READ BACK. 
oes 333 * 
A occ2 00 O02 1120 1129 334 cic OPREG(3) ef OPI N+2 BYPASS ERROR CORRECTION 
occs F2 61 O68 335 JE aTtsto2 IF NO CONTROL STORE ERROR 
ce 336 * 
Xu occB 3A 20 1128 337 SBN Ce8IT2 SET INVERT 817 ANDO 
OCcCcF CO 87 CEDA 338 8 wecs ‘ RE-wRITE CONTROL STORE 
fo" 339 * : 
Xe ocos OE 00 112F 10F5S 340 aTSTO2 acc CSARD(1)9 ONE ADVANCE CONTROL STORE ADDR 
341 
f ocoes 38 80 112F ' 342 TAN CSARD. BITO LOOP UNTIL ENTIRE 
es ocoo F2 90 11 343 JF aTsTos BLOCK HAS SEEN LOADED 
346 * 
f OcEO 38 80 112F 345 SBF CSARDBITO ADVANCE CONTROL STS pO eg ee 
NK. OCES OF 00 112E 105 346 ALC CSARBC 1} eONE ADDRESS TO NEXT BLOCK : 
: 347 © 
c , OCEA 38 20 112E 2748 TBN CSARB«BIT2 COOP UNTIL ALL 
See Sea ~ OCcEE F2 30 OC 349 JT ATSTO7 BLOCKS HAVE BEEN LOADED nn en 
350 * 
& OCF1 3D 01 1126 351 aATSTO6 cur REVSwWoel 1S THIS FIRST PASS? 
ocFs co O01 OBFD 352 BNE BTSTOI : GO “O BIT PATT TEST IF PASS 1 
OCcF9 CO 87 OCAS 353 8 AORTST OR CONTINUE WITH ADDRES TEST 
o. 358 ¢ 
€ OCED OC O01 112F 10F3 355 aTSTO? avec CSARC 2) eNULLS INITIALIZE CONTROL STORE ADOR 
356 & : 
€: e003 CO 87 ODES 357 ATSTO3 8 LCSAR LCAD CONTROL STORE ADDR REG 
r 358 * 
OD07 30 O01 1126 359 cur REVSWel BRANCH IF LEFT & RIGHT 
€. op0e F2 01 OC 360 JNE aTsTos DATA BYTES ARE NOT REVERSED 
* 361 * 
ODOE OC OO 112C 112F 362 mvc CRCI1) eCSARD REVERSE LEFT & RIGHT 
€. 0014 OC 00 1120 112€ 363 ave ¥C1)eCSARS DATA BYTES ON 2ND PASS 
: 364 ¢ 
o02a CO 87 OELE 368 aTSTO8 8 rRocs . READ CONTROL STORE . | 
= 366 * . 
© OD1E 38 20 1127 367 TBN TOPIN-eBIT2 ADJUST FOR HARDWARE INVERTED ° 
. , oo022 co 10 OEBF 368 eT INVERT OP REG BITS IF KEQUIRED 
ae ad 369 © a . 
© 0026 38 20 1127 370 SBF TOPIN.BIT2 IGNORE INVERT EIT 
: 373 @ 
. 2) OD2A OD 02 1120 1129 372 cic OPREG (39-4 TOPING2 BRANCH IF NO 
ea 0030 F2 81 OC 373 JE aTSTo4 CONTROL STORE ERROR 7 
{ , 374 4# 
} e 0033 CO 87 CEE7 375 8 GENPTN ‘ GENERATE ERROR PATTERN - 
oo037 CO 87 OF67 376 8 CKP TN SET ERROR INDICATORS 
i o.. 0038 CO 87 0099 _— 377 8 CSERR GO TO ERROR HALT 
@ 376% 
OO3ZF OL OO 1122F I0FS “379 ATSTO4 ALC CSARO(1 9 -ONE ADVANCE CONTROL STORE ADOR 
| 380 ¢ : 3 
1 
eee ie 
' 
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PAGE s . PAGE Sa 
c1it 3340 CONTROL STORE TEST - MOD 12 em 3340 CONTROL STORE TEST - MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
e04as 38 80 112F 361 TAN CEARD-BITO LOOP UNTIL ENTIRE | & ZQB EERE EEEREEEEEEREREEERS ERE SEEKS REESE EESSEAAERER ME EAES SEKREEKE SS SHETE 
0049 CO 90 90003 382 BF ATSTO3 CLOCK HAS BEEN TESTED 399 * * 
383 * ge 400 *# SUCCESSFULL END OF TEST * 
op4snm 38 B80 112F 38a ser CSARDeBITO ADVANCE CONTROL STG ‘ © e011 * - 
0D51 OF 00 112E 105 385 acc CSARB119.0NE ADDRESS TO NEXT BLOCK \ BOD SSO NH ESOS SEE EE EEEEE EERE RERESESEEREEEEEEEE ER EEEERERERESR SE SEREAERESEE ES 
386 * i fm 403 * 
0057 36 20 112€ 387 TaN = CSARB BIT T2 LOOP UNTIL ALL iS 9074 CO BF O23a 404 ENDYTST 8 PRINT PRINT MESSAGE 
oo5e CoO 90 0D03 3886 eF aTsTo3 BLOCKS HAVE BEEN TESTED ' OoD78 46 o07se 405 oc XL1*® 468 - *END CS TEST? 
369 * Gc <ooTs ao 0079 406 oc AL1 (MSGOBN-MSG0842) 
OOSF 3D 03 1126 390 CLI = REVSWel BRANCH YO ENO OF TEST ae OO7A 10C3 0078 %07 oc AL2 (MSGOBN) 
0063 F2 81 OF 391 JE ENDTST IF 2ND PASS 007C C100 0070 408 oc AL2( HL TOO) 
: 392 * o 809 
OD36 3C O8 12326 : 393 avi REVSWed SET DATA BYTE REVERSED ENO ss OO07E 0D 00 0232 OA00 410 euc UTAB(1D eO1D—2 PE-L OAD MICROCODE IF 
OD6A OC O01 112F 1OF3 396 wave CS AR(2 }e NULLS INITIAL YZE CONTRGL ADDR PEG 00R4 CO B21 ZCO2 411 se LoR+¢2 LOADING FROM 3360 
OD70 CO 87 OCA3 395 e AORTST REPEAT ADDR TEST ai2 ¢ 
396 * C opes CO 87 0236 413 8 LINK TERMINATE SECTION 
414 * 
© 
© 
° ey, 
DATE 21 AUGTS OSNOV7S PROG 1D Cii-1 pate 21aucTS OSNOV7S PROG ID cii-1 
€c nOe 827785 e27627 PAGE $ ec NO. 227785 027827 PAGE : Sa = 
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3340 CONTROL STORE TEST - M00 12 


ERP LAC OBJECT CODE 


oosc 
0090 
oo91 
or 92 
e094 


0096 


0099 
0099 


opao 
onaa 


ODA? 
obaB 


ODAE 
0962 


OORS 
0089 
ODBA 
oo8e 
O08O 


oDBF 


ooce2 
oDcé 
oo0Cc? 
oocs 
ODCA 


oocc 
ODcFr 
oDp03 
vDo04 
ODoSs 
oo07 


oo09 


ooo0c 
ODEO 


ope 2 


DATE 
EC NOs 


ADDR STMT 


CO 87 O21A 

cé 0090 

10 oo9t 

1027 eos 

e102 0095s 

F2 87 43 

ze oc 1125 

F2 310 2F 

38 08 1125 

F2 10 16 

38 04 1125 

F2 10 OT 

36 80 1125 

F2 10 OD 

co 87 O21A 

c6 oDBe9 

ic OOBA 

1043 oorc 

c101 ooBE 

F2 87 tA 

co 87 O21A 

c6 oocé 

18 ooc? 

10S5€ oocs 

c1i0% oocs 

F2 eF 00 

CO B87 O21A 

cé e002 

25 ooc4é 

10863 0006 

c101% oops 

©2 B87 00 

co 87 6222 

C101 ODE 1 

co 87 OATS 

21AUG7S OSNOV75 
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416 
ai7 
418 
419 
420 
421 
422 
423 
424 
425 
826 
427 
428 
429 
430 
431 
432 


' &33 


a3 
435 
a36 
427 
438 
439 
846 
443 
442 
443 
44a 
465 
446 
447 
448 
449 
“50 
452 
452 
453 
asa 
as5 
asé 
as7 
458 
459 
460 
461 

462 
463 
464 
465 
£66 
467 
468 
469 
a70 
471 

472 

473 
a7a 
a75 
a76 
a77 
478 


SOURCE STATEMENT 
cna necncsencesenenescceceeacstenseceregecceusnseuesseaceecstaneneeeeeoee: 
a : ; s: 
2 BUILD AND PRINT ERROR MESSAGES * 
s x 
« pecevagecaucnesccacesuuntusescensesesesrseeecaneceentsesaesesaneseneee 
* - 
* MICOROPROCESSOR INITIALIZATION ERROR DETECTED ! 
a : 
! 
1OPERR 8 PRINT PRINT 
oc XLI*C6° 200% ERZO® MESSAGE 
oc AL1 (MSGO3N-MSGO 341 1 
oc AL 20@SGO3N) 
oc AL2CHLTO2 D 
s 
J EPRHLT GO TO ERROR HALY 
Gwe ee en eee ww ew ee ee te te OO OO 
* CONTROL STORAGE ERROR DETECTED 
cd 
CSERR TAN IND eMBL4¢MBR BRANCH If MULTI-6IT ERRORS 
Jt MERR IN BOTH LEFT AND RIGHT CS 
s 
TON IND e¥8L BRANCH IF MULTI-8rT 
st LeRe ERROR IN LEFT CONTROL STORE 
t 
TAN IND ¢MBR BRANCH TF MULTI-8IT 
st RERR ERROR IN RIGHT CONTROL STORE 
s 
TEN IND oLEL BRANCH IF LAST SENGLE BIT 
JT LERR ERROR IN LEFTY CONTROL STORE 
£ 
RERR 8 PRINT PRINT 
oc XLE*° CS 1002 ERROR MESSAGE 
pc ALLE MSGOAN-MSG60S4 1) CONTROL STORE RIGHT 
oc AL2€MSGO4N) 
oc AL2CHLTOLD 
s 
J ERRHLT 
* 
LERR 8 PRINT. PRINT 
oc XLI°C6® 1003 ERROR MESSAGE 
oc AL 10MSGOSN-MSG0541) CONTROL STORE LEFT 
oc AL 2 (MSGOSN) 
oc AL2¢CHLTON?D 
c 
J ERRHLT 
= 
MERR e PRINT PRINT 
oc XLI*C6® 1004 ERROR MESSAGE 
oc AL 10 MSGOEN- MSG 064 1) 
pc AL 2(4SGO6N) 
oc AL2(CHLTOI? 
t 
J ERRHLT 
* 
Bee wom em mvr oes Comer oom www m Oe Oe OOS OBO OSE POS OOS OE OE 
* COMMON ERROR HALT 
s 
ERRHLT 8 HALT EPROR HALT O18 
oc AL2 (HLTO1? 
¢ 
8 BGNTST RESTART TEST 
* 
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e111 


ERR LOC OBJECT CODE 


~*~ 9 9 © 


ODEE 
os ODEA 
Se OvEE 

ODF 4 
¢ 

' OOF A 
f OOFE 
oe C2 
. OF O06 
A 

OEOA 
c 
‘ OE CE 
o o£12 
‘. OE 16 
c OEIA 

OFLE 
f" 

Me 0&22 

OE26 
c OF 2A 
“ OE2F 
“ 0€32 
XL 

OF 26 
¢ OE ZA 
*. OE3E 
C OE41 

” OF 45 
: OoF49 
Coca 
GS oe Ss! 
aEess 

C3 oese 
oESO 

OE61 
S 

DATE 
oEC NOo 


o 0 © 


ADDR STMT 
280 
283 
482 
£83 
664 
485 
486 
aay 
488s 
24 08 OFO9 469 
490 
ac 40 1128 491 
oc 00 112C 112€ a92 
oc 00 1320 1212F 493 
£94 
co 8? OEF6S 495 
496 
31 CS 10€F 497 
31 CS 100F 498 
499 
co 87 0000 500 
501 
502 
$03 
S04 
34 08 O£F10 505 
306 
CO 8? OF&6S SOT 
soe 
31 CS LOE? 509 
31 CS 10€B Si90 
Si 
co 87 0000 §i2 
513 
514 
$15 
$16 
3a 08 OESG si7 
S18 
31 CS 1002 $19 
31 C5 1003 $20 
31 cS 1005 $22 
31 CS 10E3 522 
s23 
co 87 0ES9B $24 
525 
39 20 12268 526 
39 20 1127 S527 
F2 10 oc 528 
529 
3e 20 1128 530 
38 20 1127 531 
co 90 OEBF $32 
§33 
co 87 0000 534 
535 
§36 
537 
$38 
34 08 OF64 539 
£40 
co 67 OF65S $41 
$42 
31 ¢€5 10C9 §43 
31 CS 10€0 saa 
$45 
co 87 6000 546 
547 
21AUG7S OSNOV 75 
627785 827827 


2340 CONTROL STORE TEST - MOD 12 


SOURCE STATEMENT 


PART NOe a247601 
PAGE 6A 


EREREEE REESE HER EREEREEEREEREEEREEE EEE EE ERED EERE EEE EERE EEE EEEERTER SES ES SS 


x 


* 


* SVP INTERFACE CONTROL SUBROUTINES * 


* 


SEEEEREESESEKEEERERETEEEERETEREEEEHE 


LCSAR ST 


mvt 
mvc 
mvc 


Lio 
Lio 
£ 
LCSARX 8 
* 


Pewmen one wwe coer eroorer eres 


WRITE CONTROL STORAGE 


wReS st 


8 


Lio 
iro 


Rocs - st 


Lio 
Lic 
tro 
10 


TAF 
TAF 
JIT 


TBN 
TBN 
RF 

* 

ROC SX 8 

* 


rr ra a a a a we OO 


Lxoe st 


tro 
LI1a 


UxOPX 8 


©@eee0e0e0e 


REREEEKESAKAELERAEEEESESATAEASE EERE ES 


LOAD CONTROL STORAGE ADDRESS REGISTER (CSAR) 


LCSARX4# 3sARR 
C20 
CRC 1) eCSARB 
¥(196CSARD 
Loe 


LAL UDsx*CS® 
LOCSAReX*CS? 


to 


WRC SX4+3 eARR 


LoP 


WRESL eo X*CS* 
WRESReXP CSS 


READ CONTROL STORAGE 


ROC SX4+3eARR 


LOPC ox*cse 
LOPCRe X*C§?® 
LCPyex*cs* 
CSACTeX*CSE 


soP 

CeBIT2 
LOPEN.BIT2 
PDCcSsx 
cCeBIT2 

10P IN. BITS] 
INVERT 


t—e 


SAVE RETURN ADDRESS 

K°0O® ==> OP REG C FIELD 
CSAR(B) VALUE <--> OP REG CR FLD 
CSAR(D) VALUE <--> OP REG Y FLO 
LOAD OP PEG 


OP REG Y --> A REG --> O REG 
CS ADDR --> CSAR 


RETURN TO CALLING ROUTINE 


ee ee ee OE OS OR OO OO 


SAVE RETURN ADDRESS 
LOAD OP REG 


WRETE CONTROL STORE LEFT 
WRITE CONTROL STORE RIGHT 


RETURN TO CALLING ROUTINE 


SAVE RETURN ADDZESS 


RESET OP REG C 
RESET OP REG CR 
RESET OP REG ¥ 
CONTROL STORE -—=-> OP REG 


SENSE OP REGISTER 
co TO 
EXIT ¢ 
NO ENVERT SIL TS ON 
AOJUST FOR 
HARDWARE INVERSION OF 
OP REG SITS IF REQUISEO 


RETURN TO CALLING ROUTINE 


Ow OO Ow OOOH OTE 


LOAD OP REG AND EXECUTE MICRO-INSTRUCTION 


tL XOP X43, ARR 


top 


K04 oX*CS! 
PROC e X*CS* 


*—-% 


SAVE RETURN ADDRESS 
LOAD OP REG 


RESET K2 (SERVICE MODES 
SERVICE PROCESS CYCLE 


RETURN TO CALLING ROUTINE 


PRIG 10 Cit-1 
PAGE GA 


recente emt nt 


~ 








SCCHCOSOCCECC CROC HOO OSC OSES OCC: @e@0ee 
& | eo | i e9eeede?8 @ 
. | ; oo ; — - : = - 


! 
| 
| 
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PART NOe 4247601 
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18M MAINTENANCE DIAGNOSTIC PROGRAM TBM MAINTENANCE DIAGNOSTIC PROGRAM 


2240 CONTROL STORE TEST - MOD 12 3340 CONTROL STORE TEST - MOD 12 


ciir o Cli 
mK - 


ADDR STMT SOURCE STATEMENT ERR LOC CBJECT CODE 


€RR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 








$a8 gene eee n nn ewe e ewe n nn nnn nn nnn nn en nnn nnn nn eee nnn en renee | eG 586 SERAREREREREESEREEESESEESESERESEES EE ES ESEREEEEEEES ESTE SE CERESERE SES SESS 
Sag & LOAD OP REGISTER 587 ¢ * 
S350 * CG 588 * DATA PROCESSING SUBROUTINES * 
“OF 6S 34 08 OCESA 551 toP st LOPX+3 ARR SAVE RETURN ADORESS : 589 * * 
$s$2 2 s90 CEERKESREDEEEEREREDEEESERE SEES ESESEEEEETESESES ESSERE SEES SEE SSS SESESSEES 
oF69 31 CS 10CB8 553 LI0 K024.x*CS* SET K& (SERVICE MODE) 591 * 
554 ¢ © 592 * ADJUST FOR HARDWARE INVERTED GP REG BITS 
OEF6D 3C 08 1136 555 uvi WORKNs K*08? BUILD SVP 593 * 
OF 71 OC 00 $135 11728 556 MvC WORKNH1 (196 € INTERFACE CONTROL ge OEBF 34 08 CEES 594 INVERT st IVR TX4¢3cARR SAVE RETURN ADDRESS 
OE7? 31 CS 1136 S57 Lt1o WORKNe X°CS* LOAD OP REG C C3 595 
: 558 * , OEC3 OC O2 1136 10FB 596 mvc WOPKNC 3) eNEGI 
: dE7B 3A 02 11236 559 SON WOPKNE BITE BUILD svP c OECS OF O2 21136 1129 597 SLC WORKN( 3) 0 LOPING¢2 RESTORE 
- - QGEVEF OC OG 12335 112C §60 mvc MORKN- 1229 2CR INTERFACE CONTROL oe OfCF 38 EO 1134 598 SBF wORKN—2 X* EO® HARDWARE 
oF ss 31 CS 1136 S561 L10 WORKNeX* C5S* LOAD OP REG CR OFD3 38 1F 1127 599 SRF IOC INS X*1F° INVERTED 
$62 OED? CE OO 1127 31134 600 ALC TOP INCE ) eWORKN=2 oP REG BITS 
OEFSO 3A OF 1134 563 SPN WORKN, BIT? BUILD svP OEDD OC 01 1129 1136 601 mvc LOPT N¢2 (2) eWORKN 
O£FBD OC OO 1135 1120 564 MVC WORWKN=9 (1 DV INTERFACE CONTROL 602 * 
OF93 31 CS 1136 565 Lia WORKN®K*CS?* LOAD OP REG Y - OEE3 CO 87 0000 603 IVRTX 8 oe RETURN TO CALLING ROUTINE 
a $66 Ce 604 *& 
0£97 CO B87 0000 567 LOPX e toe RETURN TO CALLING ROUT INE 605 gacennc cn cece wenccecre see nneeesc eset sneer ees eee nm enn wene eee en me een rr ae 
568 * sa. 606 * GENERATE ERROR PATTERN 
56S * Cc 607 * , 
B70 tae mann ne wn ww Ha nn nn rn rn ne OEE? 34 08 OF 66 608 GENPTN ST GENPX 43 ARR SAVE RETURN ADDRESS | 
S71 8 SENSE OP REG co 609 * 
s72 * % OEEB OC 00 OFOS 1128 610 MVC EQRIAS1(C170C BUILD C BYTE 
CESS 34 08 OEBE 673 SOP st SOPX4 3 ARR SAVE RETURN ADDRESS OEFI OC 00 OF OB 1127 611 mvc EOR1 841 (1 2 TOPIN. EXCLUSIVE OR 
574 4 r OEF? OC 00 OFOC 1128 612 MvC EOR 1041013 0C INSTKUCTION SEQUENCE 
OFOF 31 C7 1001 575 uro SOPC eX C7? SENSE OP REG C S. OEFD OC 00 OF 10 1127 613 mvc EOR1 04101)» IOPIN 
OEA3 30 C7? 1135 576 SNS WORKNSX*CT7® 6146 & 
OFA? 31 C7 1003 77 LIC ScCPCcRex*c7e SENSE OP REG CR AND Y¥ a OFO3 38 00 OF1O 615 EORIA ser EORID41— 8-*# GENE RATE 
OFAB 30 C7? 1128 578 SNS TOPING1 oX*C7* ( OF O07 38 OO OFOC 6236 ECRIS SBE EORI £41 - tt ERROR PATTERN 
: s7T9 oFOoReB 3a 00 21230 617 EORIC SBN PATRNe So8 FOR C PYTE 
OF AF OC 00 1129 1127 ' §80 wv TOPING2 (1 20 TOPIN MOVE VALUES SENSED - OF OF 3A OO 1130 618 EOPIO S®@N PATQN: #-% 
OER® OC 00 1127 1136 581 mvc TOP ING 1) ¢WORKN TO tNPUT WORK AREA € 619 * 
582 * OF13 OC OO OF ZC 132C 620 mvc EOR 244101) eCR BUILO CR BYTE 
o&86 CO 67 0000 583 SOPX 8 s~s RETURN TO CALLING ROUTINE -.  OF19 OC OO OF30 1328 621 MVC EFOR2841(1)0 L0PING1 EXCLUSIVE OR 
foster ee ee sea ¢ YY OFIF OC CO OF 34 1142C 622 vc EOR 2C41(13 CR INSTRUCTION SEQUENCE —_———— 
OF25 OC 00 OF38 1128 623 mvc EOR 204101) 0 IOPINGS 
a 624 * é 
X OF26 38 00 OF38 625 EOR2A ser EOR 2041 04-6 GENERATE 
OF2F 38 00 OF34 626 EOR28 sar EOR2C41.%-% ERROR PATTERN 
* OF33 3A OO 13231 627 EOR2C SAN PATRNG1 oB—8 FOR CR BYTE 
we OF 37 3A 00 1131 628 EOR20 SBN PATRN¢1et<# 
629 
oc OF328 OC 00 OFS& 1120 630 VC EORSZAF1 C1904 BUILD Y BVTE 
. ofa1 OC 00 OFSB 1129 631 mvc EOR 3841(1)- TOPING 2 EXCLUSIVE OF 
OF 47 OC OO OF SC 1120 632 mvc EORSC41 (1 eV INSTRUCTION SEQUENCE 
C OF4D OC 00 OFEO 1129 623 mvc EOR 3D41019 o LOPING2 
he? 634 % . 
OFS2 38 00 OFEO 635 EORIA SAF EOR3D+1 o#—& GENERATE 
a OF57 3B 00 OFSC 626 EOR38 ser EOR 3C +10 t= ERROP PATTERN 
\ OF 5B 3a OC 1232 637 EOR3BC SQN PAT RN+2e%—8 FoR ¥ BYTE 
OFSF 3a 00 1122 638 FOP 20 SBN PATRNG 29% -% 
C rs 639 * 
7 OF 63 CO 87 6000 640 GENPX 8 -8 RETJREN TO CALLING ROUTINE 
641 & 
; S 642 Rew eee Cee Bee OOO OO a he LAL AE ED TH OH SH DH Ee I YO IO WAN ED OO 
1S 643 & ERROR PATTERN ANALYSES 
1 644 & . 
! Q OF 67 34 08 OFDA 645 CKPTN sv CKPTNX 436 ARR SAVE RETURN ADDRESS 
ee 646 * 
i OF6B 38 OF 1125 647 sar IND e MAL 448R+ S8L+ SBR RESET ERROR INDICATOPS 
! @ 648 * 
OF6F OC O02 1134 1231 649 “vc WORK4102) ePATRNG! SEPARATE 
: OF7S OC 00 1135 1130 650 mvc WORK 4+2¢1 Ye PATRN LEFT /# RIGHT 
& OF7B OC OO 1136 1132 651 MVC wORK43 (1) ePATRNG2 ERROR PATTERN BITS 
; OF81 38 03 1133 652 SBF WORK eX*D3* 
; oF as 38 EC 1135 653 ser WORK42 eX" EC? 
? | & | 
DATE 21 auGc7s OSNOV75 PROG 16 Cli-1 DaTE 21AUG7S OSNOV7S PROG 10 clie-t 
e27765 827627 PAGE 7 827785 827827 PAGE 7a 


EC NOs 


© 


© © © 


EC NOe 





| 
1 
18M MAINTENANCE OIFAGNOSTIC PROGRAM PART NO. 4267601) 18M MAINTENANCE OTAGNOSTIC PROGRAM PART NO. 6247601 
PAGE 8 | PAGE ea 
C142 2340 CONTROL STORE TEST - MOD i2 | - cise 7340 CONTROL STORE TEST - MGD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE AODR STMT SOURCE STATEMENT 
654 * | 3 687 CSRS ERSHESEEREEEESEREEES EERE HEREEEREERESEREEEERERESEES SERERERE SES ES SS 
OF89 OF 01 3134 1134 655 CKPTNL ALC wWORK4102) eWORK42 SHIFT ERROR PATTERN LEFT | 686 2 * 
oferF F2 20 19 656 JNOL CKPTNR SKIP IF NO ERROR BIT FOUND | C3 689 * PRINT MESSAGES * 
657 * 690 *® * 
OF 92 06 30 10C3 2100 658 Az LERRS C4 9.01013 INCREMENT LEFT ERROR COUNTER | 691 pa aOeEtORHEESEDEEEEHESEESEEEEEEREREEEEREREEEEEREREEEESES EARS EERE SEE RES 
659 * | &% 692 * 
OFOS 3A 80 1225 660 SBN INO eLEL SET *LAST ERROR LEFT® INO Siow oFDB 693 “SGO1 equ 
661 © | OFDS EZESCIDSE3S0F3F3 OFF7 694 MSGOIN OC CL29*°START 2340 CONTROL STORE TEST? 
OF9C 36 O2 1125 662 TEN TINOeSAL CK FOR PREVIOUS SINGLE BIT ERR | 6 OFE3 F4°040C 30605E 309 694 
OFAO 3A 02 1125 663 SBN INDeSBL SET *SINGLE BIT LEFT® ENO * OFEB DED3I40E2ZE30609C5 694 
. OFAS F2 90 04 664 JF CKPTNR SKIP TF FIRST LEFY BIT ERROR | OFF3 406 3CSE2ES 694 
665 & : 695 * 
OFAT 3A 08 1125 666 SBN = TNDOeMEL SET "MULTE BIT LEFT*® IND | c OFFB 696 MSG602 €ou * 
667 * | OFFS D3DECIC4C9DSC740 100A 697 MSGO2ZN OC CLIG*LOADING SECTION C17° 
OFAB OF OF 1136 1136 668 CKPTNR ALC WORK43(2).WORKSS SHIFT ERROR PATTERN LEFT | ‘ 1000 €2C5SC3E3C9DEDS40 697 
OFB! F2 20 19 669 JNOL CKPTNN SKIP TF NO ERROR BIT FOUND | . 1008 C3FIF7 69°F 
670 @ , 698 *¢ 
OFB& 06 30 1089 1100 671 az RERRS(4)0D2 C1) INCREMENT RIGHT ERROR COUNTER | f 1008 699 4SGO3 eou * 
672 * l 1008 CSODQDO4OFIFOF OF! 1027 700 ™SGO3N OC CL29° ERR 1001 = ATTACHMENT FATLURE® 
OFBA 36 80 1125 673 SBF = INDeLEL RESET *LAST ERROR LEFT® END 1013 S06040CILE3E3CICS 700 
674 & | - 1018 CBED4C5D5E340CEC1 700 
oFBE 38 03 1125 675 TaN INDeSSR CK FOR PREVIOUS SINGLE 6IT ERR | . 1023 C9D3EaDSCS 700 
OFC2 3A 01 1125 676 SBN INDe SBR SET *SINGLE AIT RIGHT? TNO 7o1 * 
oFCc6 F2 90 04 677 JF CKPTNN SKIP IF FERST RIGHT BIT ERROR | + 1026 702 MSGO4 equ 
678 * ste 1028 CEDODISOFIFOFOF2 1043 703 MSGO&N OC CL26°ERR 1002 — CONTROL STG RIGHT® 
OFCO 3A O84 1125 679 SBN IND oMBR SET "MULTE BIT RIGHTS IND 1030 40604 0C3D605E309 703 
660 * | 1038 06034 0F 2E 3C 74009 703 
OF CD OD 03 1136 10F3 6B1 CKPTNN CLC wWORKE3(49eNULS LOOP UNTEL ALL | 1080 C9C7CBES3 703 
oF D3 CO O1 OF BS 682 BNE CKPTNL ERPOR BITS PROCESSED | 704 & 
: 683 * ” 1044 705 “SGOS eau # 
oFO7? CO &7 0000 684 CKPTNX 8 e-* RETURN TO CALLING POUTINE 1, § 1044 CSDOD940FIFOFOF2 105E 706 MSGOSN OC CL27*ERR 1003 —- CONTROL STG LEFT® 
685 * 104 406060C3D605E209 706 
ine 1054 DED340E2E3C74003 706 
[oR 105C CSC6E3 706 
707 © 
Ie oe 10S5F 708 “SG06 fou * 
eS Sage EE ee te << 1O5F CSDODOSOFIFOFOFS 1083 709 MSGO6N oc CL37°ERR 1004 = CONTROL STG LEFT AND RIGHTS SS Se ees 
1067 406040 3D605E 309 709 
i - 106F DED340E2=3C74003 709 
ee 1077 CSC6E340C105C 440 769 
| 107F D9COC7CBEF 709 
c 710 & 
| » 1084 711 MSGOS Eou 
| 1084 CSOSC4S40C3E240E3 1081 712 oc CLA6*END CS TEST - CORRECTABLE SINGLE GIT ERRORS =~ ° 
toe 108C C5E2E340604 0C306 712 
} > 1094 D9ODSC SC 3E3C1C 203 712 
109C CS540E2C90SC703C5 712 
f 10A4 4£0C2C 9E340C5D9D09 712 
ts 10AC DEDSE 2406040 712 
1062 DOC3EZ60E7ETETE7 1089 713 RERRS DC . CLB*ACS=XXXXE 
Mg? 108A 6840 1088 714 oc CL2%. ¢ 
poe 10BC D*CZEZENE7ETETE7T 1003 TIS LERRS oc CL EPLCS—XXKX? 
10C3 716 “SGO8N EQU  *-1 
co, 7317 © 
|G 
| & 
| 
‘ 
| © 
! 
i @ Rf 
DATE 21AUGTS OSNOV7S , PENG 1D Clie? DATE 21AUG7S OSNOVTS PENG ID Cii-1 
EC NO. 827785 827827 PAGE @ gg. fC NOe 827785 827627 PAGE BA = 


206 


ee sk cee oo a a oe 
®ee2e2eeeeeseeeneeeeenuseeseeee eee 08080 © 
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PAGE 9 he ; PAGE OA 


ei 3340 CONTROL STORE TEST - MOD 12 


ciii =340 CONTROL STORE VEST - MOD 12 


om 





ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT — ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT 
$ 
719 cane eeeeeeReReeeedesesse SEEESSEEEEREESESEEEERTESESSORS EEE SEEEEEESEESS, e 753 SEEKEKRERERE SESEREEREREESE SESE AEDES EEKEEEERERERPTREEE SERS ES ESETED SESE SES 
720 * 2! 754 * _ 
722 . f UBVOTEMEER ENCE Settee Qu encare . +) e 755 * . CONSTANTS ANO RESERVED STORAGE AREAS * 
2, 756 & : * 
723 eeseeedenesceeseecesesseneeanceeeseeaseaseeneesesenaeeers teneseeeseneess | 757 6S OEEEEEEEEEEEEEE EEE EESEEEREEEEREEEERESEEREREAERERE ESS SESEEFEHEETERSS 
728 « oe 758 * . 
10C4 0001 10cS 725 RSPCR oc xL2°00013* RESET PCR LATCH AND X REG & 10FO 60000000 10F3 759 NULLS oc 4xtL21°00* 
10€6 0002 10C7 726 RNMODE oc xL2°0002* RESET K REG CRUN MODE) i 10F4& 0001 10°S 760 ONE “oc w2ene 
10C7 727 STOLE eau RNMODE SENSE YIOLE STATUS : 1 10F6 0004 10F7 761 FOUR oc TL2°6* 
10C8 8802 19C9 728. KO4 oc xL2°8s8so02¢ SET KO AND K& (HALT 10P) ' €. 10F8 FFFFFEFF 10FS 762 NEG1I oc 1Lae-1° 
: 10CA a602 10c8 729 “024 oc xL2° aBo2* SET K2 (SERVICE MODE) | 763 
70CC 9802 10CO 730 KO34 oc xL2°9802° SET K2 SCLOCK RESET) ( " 2OFC FOFOF OFO 1OFF 764 ZEROS oc cCL4*0000° 
10CE 0005 : 10CF. 731 SPTR oc xL220005° SENSE ACCESS POINTER REG , a 2100 F323 1100 765 D1 oc CL1i°12° 
1000 0006 1001 732 LOPC oc xL2°0008* tLGAD OP REG C : 766 * : 
100% 733 soPCc Eou toec SENSE OP REG C owt 1101 000802 1103 767 X0801 oc XL3° 000802 ° OP REG TEST PATTERN GENERATOR 
1001 734 SINDEX Eau sopc SENSE INDEX REG €: 768 8 
10D2 OO0A 1003 735 LOPCR oc XL2*O00a® LOAD OP REG CR 1104 769 EXTeL FOU * EXTERNAL 
1003 736 SOPCR Eou 8 LoPCcR SENSE OP REG CR Ps 1104 2D80 1105 770 FYR oc XL2* 2080° REGISTER 
1004 ©0008 : 1005 737 LOPY oc xL2*°0008* LOAD OP REG VY Me, 1106 2D00 1107 771 oc .2°2D00* ADDRESS 
1006 OO0C 1007 736 LEXTAR oc xi 2°o00c ® -- Q3“RT --> EXT ADDR REG CEXTARS 1108 2F00 1109 772 SCN oc XL2*2F00* TABLE 
1008 010¢C 2009 739 LEXTZ oc xL2eoicce RO-RT <--> EXTERNAL ZONE REG i 210A 3300 1108 773 Oxc oc xt 2°3300° 
100a 0000 100B 740 SALSS oc xt2*ocope SENSE ALSB c 110C 2500 110D 774 FTG oc XL2*2500° 
100C 0200 1000 741 LEXT oc xL2°0200° C REG <--> EXTERNAL fEG V1i0& 23eF 110f 775 OST oc XL2°238F° 
100€ o80Dd 10DF 742 LOCSAR oc xt2*o080Dd® LOAD CSAR 7 1110 2300 2111 776 oc xt 2*2300° 
20EO0 OCOD 10F1 743 LCSADP oc xu 2°0C0D* LOAD CSAR AND ADOR COMPARE REG he 4112 2780 1113 777 FHE oc XL2°2780° 
10E2 OEOE 10€3 744 CSACC oc XL2°OEOE® CONTROL STORE <--> MP REG 1114 2700 1115 778 oc XL 2*2700° : 
10€4 SEOE 10&FS 745 svacc oc XL2* BEOE® SERVICE ACCESS CYCLE # 2316 3F00 1117 779 $80 oc xL2°3FO0*? he 
10E6 BBOE : 1O0E7 746 LINDEX oc XL 2°8S0E°* LOAD INDEX REG ie 2118 FF 2118 780 oc XL1 °FFe TERMINATOR , 
10€8 AE OE 10E9 747 WRCSL oc XL2° AEOE® WRITE CONTROL STOPE LEFT 781 *& 
10€A CECE 10E8 748 WRCSR oc XL 2°CEOE® WRITE CONTROL STORE RIGHT ~, 1119 782 OTAT8L EQU- «© DATA AREA DEFINITION TASLE 
10EC OOOF ZOED 749 PROC oc XL2°GOOF® SERVICE PROCESS CYCLE € 1119 002003FF 111C)0=— 783 oc M.4* 00200 3FF* INSTRUCTION AREA LIMITS 
10EE O20F 1OEF 750 LALLO poe XL2°O0 20F* OP REG ¥Y <--> A REG --> D REG 111D O60006FF 2220 784 oc XL 4° O60006FF®* INSTRUCTION AREA LIMITS 
751 * C 1121 OS00FFFF 1124 785 Dc XL4* ODOOFFFF® INSTRUCTION AREA LIMITS 
oe . 786 © | 
1125 00 112 787 IND oc XLiso*. PROGRAM INDICATORS : 
a. 1126 00 1126 788 REVS! oc XL1°O° OATA BYTES REVERSED IND 
meheet PLS le ee ie hee’ 789 
1127 790 IL0PIN E€ou s COMMON TOP SENSE 
€: 1127 1120 791 os xL4 DATA STORAGE AREA 
: 792 *% 
: 1328 112D 793 CPREG os xXL3 OP REG DATA STORAGE AREA 
! CG 1128 794 C Eou OPREG-2 OP PEG C BYTE 
: 112c 060795 CR EQU) OPREG-1 OP REG CR BYTE 
| 1120 796 ¥ Eou OPREG OP REG ¥ BYTE 
' C 797 * 
- 2122E 112= 798 CSAR os x2 CONTROL STORE ADDRESS 
112E 799 CSARB EaQu CSAR-1 CSAR BLOCK BYTE 
G 112F 800 CSARD eau CSAR CSAR DISPLACEMENT BYTE 
601 * 
1130 802 PATRN eou * 
G 1130 1132 803 os xU3 ERROR PATTERN STGRAGE AREA 
“ 804 * 
| 1133 805 wORK eou s GENEPAL PURPOSE 
: Cc 1133 1136 806 WORKN os xcs WORK AREA 
| Ree 807 * . 
, | 
|G 
| o 
| ©@ 
t 
i 
@ 
mEC NOs 827785 827827 Pace On = 
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PAGE 10: PAGE TOA 


c1ti 2340 CONTROL STORE TEST = MOO 12 citi 3340 CONTROL STORE TEST - MOD 12 


| 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


CROSS-REFER ENCE 
B09 necccccaceseacccccsseesseccseeeeneeees senses st #ESSeeSEEEESESSEES ELSES SS C symBOoL T CEN VALUE OEFN REFERENCES 
810 : . 
: Bil * SYMBOL DEFINITIONS *! f ADRTST A 004 OCA3 0323 0295 0353 0395 
B12 * * % aLSLO A 004 OAEB 0137 0154 
613 * ceanvgacscaesceceseaeaeesessasecesnns tee seseseeeeeenes sen eeeee essen es, AMOPID A 002 OALE 0030 
S14 * 1 gr ARR Cc 001 0008 0619 0489 0805 0517 0539 0551 0573 059% 0608 0645 
B15 *& LOCAL STORE REGISTERS : \. aTsto2 A 006 OC03 0340 0335 
B16 * ' ATSTO3 A 004 OD03 0357 0382 9388 
0001 817 XR1 €ou x°oie INDEX REGISTER 1 ' ¢ ATSTOS A 006 0D3F 0379 0373 
0002 816 xXR2 €0u x*o2¢ INDEX REGISTER 2 \ atsTosS a 004 OCBA 0331 0226 
. 0008 819 ARR eau xeose ADORESS RECALL REG (CURRENT LEVEL) ATSTO6 A 004 OCF2 0251 0343 
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13 * : OA3E 3C OA 2613 49 ROL MVI LPCNT,»10 LOOP THIS ROUTINE 10 TIMES 
0a00 14 orG x*0a0o* i 50 * 
15 * 0as2 CO 87 11F3 51 8 BEGIN PERFORM ROUTINE INITIALIZATION 
caco C122 OAa0l 16 PID DC XL2°C122¢ SECTION ID AND REVISION LEVEL 0AS6 OASE OA47? 86552 DC AL2(RO1A) ‘LOOP! SUBROUTINE RETUR. ADORESS 
- OAO2 00 oa02. 17 oc XLL*00* SECTION FLAGS : 0A48 0AG6 OA4S9 53 oC AL2(RO16) SeXDRV® SUBROUTINE RETURN ADDRESS 
0a03 O1 Qac3 18 RIN oc xL1*01° CURRENT ROUTINE NUMBER 54 * 
0A0« 0000 oao0s) 19 oc XL2*0000° RESERVED : OA4A CO 87 1304 55 8 RECAL RECALIBRATE 
O0A06 OA3ZA Oa0? 20 PFC oc ALZ(RTNO1) ADDRESS OF FIRST ROUTINE PREFACE t 56 ® 
OAOS FFFF oao09g)—s 21 pc XL2°FFFF* RESERVED OASE CO 87 16A0 57 ROLA B RDSNS READ DIAGNOSTIC SENSE DATA 
22 * 0aS2 CO BT 1688 58 8 RODLGG READ AND RESET BUFFERED LOG 
OAOA C14000 OAocc 8 =_.23.:«;UOTO oc XL3*C14000° 3340 UOT eo 59 * 
O0aoD 101000 QadF 24 UDT1 oC XL3*101000° 5471 UDT FOR AMOP LINK 0A56 3A O1 2623 60 SBN IDDDRe) START ODDF ON ODD STORAGE ADORESS 
25 8 ol * 
0410 @Ai8 26 os XL9 RESERVED t OA5A CO 87 16A0 62 ry RDSNS READ DIAGNOSTIC SENSE DATA 
27 * OASE CO 87 1688 63 8 RDLOG READ AND RESET BUFFERED LOG 
0a19 00 oai9 28 ~ COM DC XL1*00° 3440 PROGRAM COMMUNICATION AREA — 64 * 
OALA QAlA 29 oS xL1 RESERVED | =e OA62 CO 87 1203 65 8 NXORV REPEAT FOR EACH DRIVE BEING TESTED 
30 ® , 66 *# 
OAlB GaiC «=: 31: LORIO Ds AL2 MICROCODE LOR (C17) IN STG ENDICATOR OA66 OF 00 2613 252F 67 RO1B SLC LPCNTC1D5P2 DECREMENT LOOP COUNTER 
oaio OAlE 32 AMOPID DS AL2 AMOP (C19) IN STG INDICATOR ©: = ode CO 01 1328 68 BNZ LOOP REPEAT TEST 10 TIMES 
——— OalF Qa20 33 FAOID DS AL2 ATTACHMENT MICRO-CODE (FAO) IN STG © 69 * —_—_—_— 
34 * 0a70 CO 87 0216 70 8 LINK GO TO NEXT ROUTINE 
Oa2? Oa39 «6.35. SVPFC DS XL25 SECTION PREFACE STORAGE AREA © 71 * 
: 36 © 
| '@ 
| | @ 
i , @ 
| . ,e@ 
| Cc 
DATE 23auG7S OSRQvTS LOMARTS PROG 10 C12=-2 Ce 23AUGT5 OSNOV75 LOMARTG PROG ID C12-2 
EC MO. 827785 827827 827672 PAGE 1 c NO. 827785 827627 827872 PAGE 1A 
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Cl22 3340 FUNCTION TESTS - MOD 12 


ERR LGC OBJECT CODE ADOR STMT SGURCE STATEMENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


73 SREGRERERSEREREEEEEEEEEEREEEE CEEEEHEEERESTESS CES ESESESESEEE ESSE ECE SERSS t 


109 CERREEERELEKERERESESESERS EST EEEEESEESERESSESSSSESERESSSESESSES SOS SOSFE SS 
14 * *; 110 * . * 
75 * ROUTINE 02 - CYLINDER ZERO ACCESS TEST Woe Lll * ROUTINE 03 - CE CYLINDER ACCESS TEST * 
7% * eG. 112 * * 
TT C888 8698S OE 66S EEESEREEEEEEE SES SEREEEEEEEER EERE SRESEEEE SESS OSSERESEEESS 113 CERSEERREREREREEEEEESEESEEEREREEEEESERESESEESESERESSOSESSESSSSOSSSSED SS 
73 * 114 * 
OAT4 02 OATS 79 RINO2 oc xL1°02° ROUTINE NUMBER OAB1 03 OABL 115 RTNO3 cc XL1°03! ROUTINE NUMBER 
9a75 09 OA75 = 80 oc XL1*00° RGUTINE FLAGS CAB2 00 OAB2 116 DC XL1*00° ROUTINE FLAGS 
OA76 OABL OATT = 81 oc AL2(RTNO3) ADDRESS OF NEXT ROUTINE ; OAB3 OAEA OaBS 117 Dc AL2(RTNO4) ADDRESS OF NEXT ROUTINE 
82 * : 118 * 
OATS 3C 00 0A94 83 RO2 MVI  RO2A1,0 INITIALIZE HEAD ADDR TO O OABS 3C 00 OACD 119 RO3 MVI RO3ZA1L,0 INITEALIZE HEAD ADOR ¥O 0 
| 84 * ; 120 * 
OATC CO 87 11F3 85 B BEGIN PERFORM ROUTINE INITIALIZATEION t 0aB9 CO 87 11F3 121 8 BEGIN PERFORM ROUTINE INIT SALEZATION 
OABO 0A84 0a81l 86 oc AL2(RO2A) *LOOP* SUBROUTINE RETURN ADDRESS OABD OACL OABE 122 oc AL 2(RO3A) *LOOP® SUBROUTINE RETURN ADDRESS 
OA32 OAIF 0a83 = BT oc AL2(R02B8) ‘NXDRV® SUBROUTINE RETURN ADDRESS ; OABF OADB OACO 123 DC — AL2¢(RO3B) "NXORV® SUBROUTINE RETA “4 ADDRESS 
68 + € 124 * 
0A84 CO 87 1304 89 ROZA 8 RECAL RECALIBRATE OACL CO 87 1304 125 RO3A B RECAL RECALIBRATE 
0a88 CO 87 16A0 90 8 RDSNS DETERMINE DATA MODULE SIZE - .  OACS CO BT 16A0 126 B ROSNS DETERMINE DATA MODULE SIZE 
Oasc CO 87 14EA 91 8 ROHAE READ HOME ADDR AND RO COUNT EVEN ma 127 # . — 
92 * oac9 CO 8&7 13F8 128 B SEEK SEEK (3340 PHYSICAL ADDR 
0a90 CO 87 13F8 93 8 SEEK SEEK _  OACD OACD 129 RO3AL os IL1 HEAD O - ll 
OA94 OA94 94 RO2ZAl os 11 PHYSICAL HEAD ADDRESS e OACE 015D OACE 130 e pc 1L2'349° CYLINDER 349 
0A95 0000 0A96— 95 oc 1L2*0* PHYSICAL CYLINDER ADDRESS a - 43h ® anette ccveu 
96 * OADO CO 87 1L4&EA 132 8 ROHAE READ HOME ADDR AN! 
OA97 CO BT 14EA 97 8 ROHAE READ HOME ADDR AND RO COUNT EVEN € 133 © . 
98 ¢ 0aDS CO 87 12D3 134 8 NXDRV REPEAT FOR EACH ORIVE BEING TESTED 
0a9B CO 87 1203 99 8 NXDRV REPEAT FOR EACH DRIVE BEING TESTED 135 * 
100 * vs c OAD8 OE 00 OACD 252F 136 RO3B ALC ROSAL(1),P1 INCREMENT HEAD ADDRESS 
OAIE OE 00 CA94 252F 101 R028 ALC RO2ZA1(1)-P1 INCREMENT HEAD ADDRESS eu 137 * ne 
102 * er OADE 30 OC OACD 138 CLI ROBAL+12 LOOP UNTIL ALL HEA 
Pie Se Be Aaa Os eas Ae i see 103 ctl oad LooP UNTIL at a ENG OAE2 CO 82 1328 139 BL Looe HAVE BEEN TESTED 
9 CO 62 1328 104 BL Loop HAVE BEEN TESTED 140 * 
105 * OAE6 CO 87 0216 141 8 LINK GO TO NEXT ROUTINE 
OQaaD CO 87 0216 106 8 LINK GO TO NEXT ROUTINE : & 142 * 
107 © 
© 
i 
e 
| 
@ 
| 
| 
| 
@ 
| 
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, . €122 3340 FUNCTION TESTS - MOD 12 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


OAEA 
OAEB 
OREC 
OAEE 
OAF2 
OAFS 
OAFB 


OAFA 
OAFE 


OBO2 
OB06 
OB07 
0860S 


oBoD 
0811 


oBi2 
0816 


OBLA 
OBIE 


0822 
0826 


oB2Cc 
0B30 


0B34 


DATE 
EC NO. 


04 

00 
0838 
3c 00 
co 87 
0602 
0626 


co 87 
co 87 


co 87 
ceco 
co 87 


cG 87 
00 


3A O01 
34 O01 


co 8f 
CO 87 


co 87 
OE O00 


3D OC 
co 82 


co 87 


23AUGT 
827785 


0806 


L1LF3 


1304 
16A0 


13F8 


14EA 
US7E 
27621 
2623 


14FD 
153C 


1203 
0806 


0606 
1328 


0216 


5 


252F 


OSHOVT 
827827 


OAEA 
OAEB 
OAED 


OAFF 
OAFS 


aos 


0808 


OBLE 


5 


{ 
} 


aN AMM 


144 KRAREREEERERERERERSEEREREEREEERERERSRSESR EERSTE CSRS SSEREOERER SS OS EREEES 
145 * *) 
146 © ROUTINE 04 - CYLINDER ZERO READ DATA TRANSFER TEST *| 
147 * 
148 EREREREEERAERERERES BEEERERESAREEREEELEASSERERRSEEREAEESRSSHOERE SSE ESE ESE 
149 * i 
15C RTNO4 Doc XL1°0O4'° ROUTINE NUMBER 

151 DC x_1°CO0!* ROUTINE FLAGS 

152 pc AL 2¢(RTNOS) ADDRESS OF NEXT ROUTINE 

153 2 

154 RO4 MVI RO4B 120 INITIALIZE HEAD ADDR TO 9 

i155 + 

156 B BEGIN PERFORM ROUTINE INITIALIZATION 

157 pc AL2(R04B) *LOOP® SUBROUTINE RETURN ADDRESS 

158 DC AL 2(RO04C} *NXDRV® SUBROUTINE RETURN ADDRESS 
159 © 

160 ROGA 8 RECAL RECALIBRATE 

161 B ROSNS DETERMINE DATA MODULE SIZE 

162 * 

163 RO4B 8 SEEK SEEK (3340 PHYSICAL ADDRESS) 

164 RO481 Ds ikl HEAD O - 11 

165 oc IL2¢*o* CYLINDER 0 

166 # 

167 8 ROHAE READ HOME ADDR AND RO CGUNT EVEN 

168 * 

169 B ROCKD READ COUNT-KEY-DATA 

170 oc Icitot RECORD O (EVEN) 

171 * a 

172 SBN YODCRs»1 CHECK AGAIN USING 

173 SBN TODOR yl ODD STGRAGE ADDRESSES 

174 2 

175 6 RDHAO READ HOME ADDR AND Re COUNT ODD 

i76 B RoROO READ KEY-DATA RECORD O OCD 

177 * 

178 8 MXDRY REPEAT FOR EACH DRIVE BEING TESTED 
179 © 

280 RO4C ALC ROSB1i(1),P1 INCREMENT HEAD ADDRESS 

i861 # 

182 CLI RO4B1,12 LOOP UNTIL ALL HEAOS 

183 BL Looe HAVE BEEN TESTED 

184 2 

185 8 LINK GO TO NEXT ROUTINE 

186 * 
1SMAR76 PROG ID Cl2-2 
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0838 
0839 
OB3A 
083C 
0B40 
OB44 
OB46 


OB48 
OB4&C 


0850 
0854 
{ OB55 
0857 
0858 


{ oBSF 
0B63 


€. 0864 


_  0Be8 
€ —s oBec 


0860 
OB72 


eo 


0B76 


OB7A 
OBTF 


0883 
0889 


oesD 
oB91 
oB9s 
0899 
os90 


OBA3 
OBAT 


fou 


osas 
€: 

¢ 
G 
C 


OATE 
EC wO. 


ad 


05 
00 


OBAF 


3c 


co 


00 


87 


oB50 
0B9D 


co 
co 


co 


87 
87 


87 


Oi5D 


co 
co 


Cu 
co 


co 


co 
01 


80 
co 


35 


40 
Co 


OF 
co 


38 
3A 
co 
co 
OE 


30 
co 


co 


23AUG75 
827785 


87 
87 


87 


87 
87 


02 


‘01 


01 


03 
ol 


ol 
01 


01 
02 
90 
87 


00 


82 
87 


0B38 
0839 
0838 
0854 
11F3 
0845 
0B47 


1304 
L6AGD 


13F8 
0854 
OBS6 
1¢EA 
18666 


157E 
OB63 


1866 


157E 
oBeC 


14 2543 
1830 


2623 


03 2551 
1840 


263A 2533 
OB7A 


2623 
2623 
0857 
1203 
0B54 252F 


0854 
1328 


0216 


OSNOV75 
827827 


188 EERRERERAEEEEERESEEESOESEEEEEESEEEESSEESSEEREEEEERSSE SESS SETESESO SESE SSS 


189 * * 
190 * ROUTINE 05 - CE CYLINDER READ DATA TRANSFER TEST * 
191 * * 
192 EKEHREREEREOHERESESARERRESEREREESERS SEREESTESERESES ESTEE SHES S SESSSSSE SS 
193 * 

194 RTNOS OC XL1"05" ROUTINE NUMBER 

195 pc XL1*00* ROUTINE FLAGS 

196 oc AL2(RTNOG) ADDRESS OF NEXT ROUTINE 

197 * 

198 ROS MVI - R05B1,40 INITIALIZE HEAD ADDR TO 0 

199 

200 B BEGIN PERFORM ROUTINE INITIALIZATION 
201 DC AL2(RO5B) *LOOP® SUBROUTINE RETURN AODRESS 
202 oc AL2(ROS5C) SNXDRV® SUBROUTINE RET PN ADDRESS 
203 * 

204 ROSA B RECAL RECALIBRATE 

205 B ROSNS DETERMINE DATA MODULE SIZE 

206 *- 

207 ROSB B SEEK SEEK (3340 PHYSICAL ADDRESS) 

208 ROSBL OS itl HEAD 0 - 11 

209 oC 1L2*349° CYLINDER 349 

21c * ; , 

211 RO5SB2 8 RDHAE READ HOME ADDR AND RO COUNT EVEN 
212 % 

213 8 ORTENT TRACK ORIENTATION DELAY 

214 = 

215 B RDBCKD READ COUNT-KEY-DATA 

216 DC IL1¢0° RECORD O (EVEN) 

217 

218 8 ORIENT TRACK ORIENTATION DELAY 

219 

220 B RDCKD READ COUNT-KEY-DATA 

221 Dc IL1°1° RECORD 1 

222 * 

223 CLC DL € 39 XR2) 2P 256 GO TO ERROR EXD IF 

224 BNE  ERR1B RESIDUAL KL/DL INCORRECT 

225 * 

226 L IDDDR» XRE POINT TO RESIDUAL DDOF 

227 * 

228 ROSB3  «- «CLE 4 oe XRD SWCPTN GO TO ERROR END IF 

229 BNE  ERR19 RESIDUAL DOOF IS INCORRECT 
230 * 

231 SLC - RODCF 48 (2) 9 P4 LOOP UNTIL ALL OF 

232 BNZ  ROSB3 RESIDUAL DODF HAS BEEN CHECKED 
233 * 

234 TSN IDDDR»2 READ AND CHECK | 

235 SBN  IDDDRel RECORD 1 AGAIN 

236 BF  ROSB2 USING ODD STORAGE ADDRESS 
237 * 

238 B NXDRV REPEAT FOR EACH DRIVE BEING TESTED 
239 * 

240 ROSC ALC ROSB1E1),P1 INCREMENT HEAD ADDRESS 

241 * 

242 CLI R05B1512 LOOP UNTIL ALL HEADS 

243 BL Ss LOOP HAVE BEEN TESTED 

244 *& 

245 8 LINK GO TO NEXT ROUTINE 

246 * 
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ERR LUC OBJECT CODE 


OBAF 
oBBO 
08B1 


06 
00 


OBB3 3C 
OBB? 
O8BB 
OBBD 


co 


OBSF 
oBCc3 


co 
co 


oBCT 
OBCB 
OBCC 


co 


OsceE 
o8ol 


68 
co 
oBDs CO 
oeo9 CO 


oBo0d 
OBE1 


co 
ol 


OBE2 CO 
OBE6 
OBEA 
OBEB 


co 
02 
00 
OBEC CO 
OBFO 
OBF4 


co 
02 


OBF5 
OBFA 


80 
co 
OBFE 35 


oca2 
eco? 


4D 
co 


oc os 
ocil 


oF 
co 


ocis 
OC1¢ 
ocibd 


38 
3A 
co 
oc21 co 


oc25 
oc 28 


OF 
co 


oc2F CO 


DATE 
EC nO. 


; : ; . . . . 
@eeeoeeoeeoeoeeeeeetseeVeaeeeedteceoeeeoedgeedge ee ee ee @ @ 


0C33 


OA 


87 


OBCE 
oc25 


87 
87 


87 


0150 


08 
10 


87 
87 


87 


8T 
87 


3T 
87 
02 
ol 
Gi 


Q3 
Gi 


01 
01 


ol 
al 
90 
87 


oo 
07 


37 
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ADOR 


OBAF 
OBBO 
0aBb2 
2613 
11-3 
oBBC 
OBBE 


13046 
1640 


13F8 
oBcB 
oecod 


00 
1203 


14EA 
1866 


157E 
OBE1 


1866 
1743 
OBEA 
OBEB 
1866 


ISTE 
OBF4 


14 2543 
1830 


2623 


03 2551 
18460 


263A 
oca2 


2533 


2623 
2623 
OBCE 


1203 


2613 
1328 


252F 


Q216 
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PAGE 4 


RERREEEREREELEREREAEREERE SEE SEEEERESERES SEE ETESEREREESE FEES TER SEEETE SS 
x, 


ERERERAERSHESKESHEREKESESAHESSEREKESERAKSHES LEE KHL RK 


XL1*°0O6° 
XL1*00* 
AL2¢RTNOT) 
LPCNT.10 
BEGIN 
AL2(RO6B) 
AL2(RO6C} 


RECAL 
ROSNS 


SEEK 
ILL*or 
1L2°349° 


DIND(,XR2)}_eROWR 
NXDRV 


ROHAE 
ORIENT 


ROCKD 
triti' 


GRIENT 
WRCKO 

IL1*2¢ 
IL1*O* 
ORIENT 


ROCKO 
IL1*2¢ 


OL (3, XR2)2P256 
ERR1B 


IDDOP. »XR1 


304,XR1)eHCPTN 
ERRI9 


RDODCF+8(2)2°4 
RO6B2 


IDDOR, 1 
IODORs1 
R06 
NXDRV 


LPCNTCLE SPL 
Loop 


LINK 


STMT SOURCE STATEMENT 
248 

249 

250 * 

251 * 

252 

253 * 

254 RTNOG6 oc 
255 pc 
256 oc 
257 * 

258 RO6 MvI 
259 * 

260 8 
261 oc 
262 oc 
263 * 

264 RO6A 8 
265 8 
266 * 

267 8 
268 oc 
269 oc 
270 * 

271 RO6B TBN 
272 BT 
273 * 

274 8 
275 * 

276 8 
277 

278 RO6BL B 
279 oc 
280 * 

261 8 
282 * 

283 8 
284 DC 
265 oc 
286 # 

287 8 
288 * 

289 8 
290 oc 
299i * 

292 cic 
293 BNE 
294 & 

295 L 
296 * 

297 RO6B2 cLc 
298 BNE 
299 * 

300 SLC 
301 BNZ 
302 * 

303 TBR 
304 S8N 
305 OF 
306 * 

307 8 
308 * 

309 RO6C SLC 
310 BNZ 
311 # 

312 5 
313 # 

LOMARTE 
827872 


ROUTINE 06 — WRETE DATA TRANSFER TEST * 


* : 


ROUTINE NUMBER 

ROUTINE FLAGS 

ADDRESS OF NEXT ROUTINE 
LOOP THIS TEST 10 TEMES 
PERFORM ROUTINE INITIALIZATION 


*LCOP* SUBROUTINE RETURN ADDRESS 
"NXDRV® SUBROUTINE RETURN ADDRESS 


RECALIBRATE 
DETERMINE DATA MODULE SIZE 


SEEK (3340 PHYSICAL ADDRESS) 
HEAD 0 
CYLINDER 349 


KMG 
BYPASS DRIVE IF KMG 
WRITE INHIBITED KMG 


REAL HOME ADDR AND RO COUNT EVEN KMG 
TRACK GRIENTATION DELAY 


READ COUNT-KEY-DATA 
RECORD 1 


TRACK GRIENTATION DELAY 
WRITE COUNT~KEY-DATA 
RECGRD 2 
NN = 00 
TRACK OREENTATION DELAY 


READ COUNT-KEY-DATA 
RECORO 2 


GO TO ERROR END IF 
RESIOUAL KL/DL INCORRECT 


POINT TO RESIDUAL DOOF 


GO TO ERROR END IF 
RESIDUAL DDDF IS INCORRECT 


LOGP UNTIL ALL OF 
RESIDUAL DDOF HAS BEEN CHECKED 


WRITE AND CHECK 
RECORD 2 AGAIN 
USING ODD STORAGE ADDRESS 
REPEAT FOR EACH DRIVE BEING TESTED 


LOGP THIS TEST 10 TIMES 


GG TO NEXT ROUTINE 


PROG ID 


Cl2-2 


\ 
SERKEKTLESS LESS LSKE KES | 


en emanate eons a ne 


eoeeeeeeee 
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ERR LOC OBJECT CODE 


oe, 


0C33 
0C34 
oc35 


oc37 
oc 38 
6c30 


OC 3F 
OC&2 


0C46 
OC4A 


wy 


OC4E 
{ 0C52 
0c53 


oy 


0c55 


0c59 
ocsD 


on 
: 


océl 


0C65 


£ 


DATE 
EC NO- 


@ © 


07 
00 
0C69 


CoO 87 
OC 3F 
0C65 


68 
co 


os 


co 
co 


87 
87 


co 
06 
0150 


e7 


co 87 


co 87 
CO 87 


CO 87 


co 87 


11F3 


co 
12D3 


1304 
16A0 


13F8 


14EA 


L6FT7 
14F0 


12D3 


0216 
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ADOR STMT 


315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
32S 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 


0C33 
0C34 
0C 36 


oc 3C 
OC 3E 


0052 
0C 54 


OSNOVTS 
827827 


SOURCE STATEMENT 


REKEAEREEREEESEAERERSESEERSERESESEESSSSEEHESEE SESS SE 


* 
+ 
* 


REKKAKTLESSEKAK SHECKERE SEEKS 


* 
RTNOT oc 
oc 


oc 


B 

oc 

oc 
* 
ROTA TBN 
eT 


B 
B 


6 
oc 
oc 


LOMART6 
827872 


XL1°OT* 
xL1*0O* 
AL2(RTNOB) 


BEGIN 
AL2(ROTA) 
AL2(RO7B) 


DIND(,XR2),NOWR 
NXDRV 


RECAL 
ROSNS 


SEEK 
FL1°O* 
1L2°349° 
RDOHAE 


WRHAG 
RDHAO 


NXDRV 


LINK 





PART NOw 
PAGE 


ROUTINE 07 - WRITE HOME ADORESS TEST 


EREAEKSRHERSEREES SOSSRERERESESESSSS SERSTRES 


ROUTINE NUMBER 
ROUTINE FLAGS 
ADDRESS OF NEXT ROUTINE 


PERFORM ROUTINE INITIALIZATION 
‘LOOP SUBROUTINE RETURN AODRESS 
"NXDRV* SUBROUTINE RETURN ADDRESS 


BYPASS DRIVE IF KG 
WRITE INHIBITED KEG 
RECAL IBRATE KG 


DETERMINE DATA MODULE SIZE 

SEEK (3340 PHYSICAL ADDRESS) 
HEAD O 
CYLINDER 349 

READ HOME ADDR AND RO COUNT EVEN 


WRITE HA ANDO RO ODD 
READ HA AND RCO COUNT ODD 


REPEAT FOR EACH ORIVE BEING TESTED 
GO TO NEXT ROUTINE 


PROG 
PAGE 


10 


4247603 
4A 


SHSHRSESSSKSSHESEASSSOSSS 


cr2-2 
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3340 FUNCTION TESTS — MOD 12 


ERR LOC OBJECT CODE 


ADDR STMT 


SOURCE STATEMENT 


| 


PART NO. 


| 
4247603} 
PAGE 5 
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. C122 


” ERR LOC OBJECT CODE 


ADOR STMT 
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SOURCE STATEMENT 


coves eeeceeeocoeeoooeoecooseeooneoneoee®S 


PART NO. 4247603 
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349 *eao% €:: 414 eeaaeaseaseseeresansssseeesaseasessseseesssseesseseeses senses sees see see 
350 * 7 + 415 * —— 
: aes : ROUTINE 08 — HEAD WRITE/READ TEST : eo 416 *# ROUTINE 09 — WRITE KEY-DATA TEST : 
; o 417 * 
353 EREEREREOERESERSEEESESNSESEESESESSESSESESSEREESSSERECESE SESEE ES ES ESESSS | = 418 REeaEReSSOESSSEERSEEEESESESERSSESSESESESECSSSSSSSSSOSSSSS SES SOS OSSS OSES 
t 354 * 419 * 
0C69 08 0C69 355 RTNOB OC ~~ XL1*08! ROUTINE NUMBER / €. — oCE9 09 OCE9 420 RTNO9 OC ~~ XL1°09° ROUTINE NUMBER 
OC6A 00 OC6A 356 pc =: XL" 00° ROUTINE FLAGS | OCEA 00 OCEA 421 DC XL1*00° ROUTINE FLAGS 
OC6B OCES océc ed : oc ALZ(RTNOD) ADDRESS OF NEXT ROUTINE lag OCEB 0094 OCEC 422 oc AL2(RTNOA) — ADORESS OF NEXT ROUTINE 
; +t 423 * 
oC6eD 3C 00 OCéC 359 ROS MvI = =R088120 INITIALIZE HEAD ADDR TO ZERO OCED CO 87 11F3 424 ROO B BEGIN PERFORM ROUTINE INITIALIZATION 
360 * : OCF 0004 OCF2 425 pC =—s-_ AL 2 ROSB) *LOOP* SUBROUTINE RETURN ADDRESS 
i oc71 CO 87 11F3 361 8 BEGIN PERFORM ROUTINE INITIALIZATION t. OCF3 0090 OCFS 426 oc AL2¢RO9C) *NXDRV® SUBROUTINE RETURN ADDRESS 
0C75 OC8l OC76 362 DC = AL2( ROBB) *LOOP® SUBROUTINE RETURN ADDRESS 427 * 
oc77 OCcd7 oc7s 363 oc AL2(RO8C) *NXDRV® SUBROUTINE RETURN ADDRESS ae OCES CO 87 1304 428 RODA B RECAL RECALIBRATE 
} 364 * 6 OCF9 CO 87 16A0 429 8 ROSN DETERMINE DATA MODULE SIZE 
0C79 CO 87 130% 365 RO8A B RECAL RECAL IBRATE ne ; a0 * ig 
: OC7D CO 87 16A0 oe Be 8 RDSNS DETERMINE DATA MODULE SIZE aah € OCFD CO 87 13F8 431 8 SEEK SEEK (3340 PHYSICAL AODRESS) 
0D01 00 0001 432 oc IL1*0* HEAD 0 
0C81 BS 08 00 368 RO8B TBN DIND(¢XR2Z} ~NOWR BYPASS ORIVE IF KHG! oD02 0150 0003 433 DC 1L2*349°* CYLINDER 349 
0C84 CO 10 1203 369 BT NXDRV WRITE INHIBITED KNG| ¢ 434 * KNG 
370 * i €- OD04 BB 08 00 435 RO9B TBN DIND(eXR2) »NOWR BYPASS DRIVE IF KMG 
3 meee CO 87 13F8 aoe an ea o SEEK SEEK (3340 PHYSICAL ADDRESS) KG. ~ - gp07 CO 10 1203 436 BT NXDRV. : WRITE INHIBITED KMG 
‘ 08 D IL1 HEAD O - 11 oe 437 * | 
OC8D 0150 Oc8E 37 DC 1L2*349° CYLINDER 349 ; €>  opeB CO 87 14EA 438 8 ROHAE READ HOME ADDR AND RO COUNT EVEN KNG 
; 439 * oe 
OCeF CO 87 14EA = ‘ 8 RDHAE READ HOME ADDR AND RO COUNT EVEN C ODOF CO 87 1718 £40 8 WRROO WRITE RECORD ZERO CNT-KEY-DATA GDD 
| 441 * 
0C93 CO 87 1718 a — 8 WRROG WRITE RECORD ZERO CNT-KEY-DATA O00 0013 OC 01 2613 2623 442 MVC —s LPCNT(.2). IDDOR SAVE INITIAL ODDR VALUE 
. &o3 * : 
O0C97 CO 87 I57E 379 RO8B2 8 ROCKD READ COUNT-KEY-DATA | € OD19 CO 87 IS57E 444 
a ree : B RDCKO READ COUNT-KEY-DATA 
0C98 01 0c9a 2u0 3 oc 1Laeie RECORD 1. 0D01D 01 0010 445 oC IL1"1¢ ‘RECORD 1 
. 446 * 
OC9C CO 87 1743 382 8 WRCKO WRITE COUNT—KEY-DATA teé 
ocAd 02 ocao aes ae isa areGaG So | €- ople BC 02 14 2537 i . MVC DL(34XR2) PS SET DATA LENGTH = 5 
e e 
Al oe < oc 111°20 NN = 20 C muss co 87 1743 re 449 8 WRCKD WRITE COUNT-KEY-DATA 
27 450 #2¢ 
OCA2 CO 87 157E 386 8 ROCKO READ COUNT-KEY-DATA 0028 14 0028 451 oC 1L1*20* ce 20" 
OCA6 15 OC Ab ae) 7 DC TL1*21° RECORD 21 C - 452 * 
| €° 0029 Co 87 17E2 453 - 
OCAT 8D 02 14 2543 389 CLC OL (3. XR2) 2 P256 GO TO ERROR END IF “ - op2D 02 0D2D 454 De ieee “aoe 
OCAC CO 01 1830 ase , BNE  ERRIS RESIOUAL KL/DL INCORRECT | Cc OD2E 04 OD2E 455 DC ILL¢ae NN = @ 
OCBO 35 01 2623 = : L IDDOR sXR1 POINT TO RESIDUAL ODODF | O02F OC 01 2623 2627 as7 MVC —- TODDR( 2) eRODOR ADVANCE INITIAL DODR VALUE 
0CB4 4D 03 03 2551 394 RO8B3 CLC 3(4,XR1),WCPTN GO TO ERROR END IF le anes | 
" QD35 CO 87 LTE2 459 8 WRKD WRITE KEY-DATA 
ocB9 & 
89 CO O01 1840 =e < BNE ERR1O RESIDUAL DDDF IS INCORRECT | 0039 06 0039 460 pc 1L1*6? RECORD 6 
ocao o1 2638 2533 397 SLC RDDCF +812) .P4 LOOP UNTIL ALL OF i€ aaa or one; * aes aS 
oe ene BOBS RESIDUAL ODDF HAS BEEN CHECKED {| ~ 0038 OC 01 2623 2613 “ea MVC —- IDDOR(2) eLPCNT RESTORE INITEAL DDDR VALUE 
OCCT? 38 O1 2623 400 TEN =: TDDDR» WRITE AND CHECK it 64 * . 
OCES 3A OL 2022 401 SBN = IODOR +} RECORD 21 AGAIN C Opes OC 2C 26CF 2600 see MVC DDDF #49145) sDDDF*50 CUREAD AREA 
OCCF CO 90 0C97 ene : BF = ROBB2 USING GDD STORAGE ADDRESS ¢ 467 * ; 
0CD3 CO 87 1203 404 8 NXDR ite ODS 0 Sa 2508 468 8 ROKD READ KEY-DATA 
a oak v | REPEAT FOR EACH DRIVE BEING TESTED ooer a OD4F 469 oc IL1*2° RECORD i 
| OCD7 OE 00 OCB 252F 406 Root ALC = ROBBIE 1) »P2 INCREMENT HEAD ADDRESS Ea Wee eae ie ee Ree es weeS 
{ * : 
ocop 30 op acec 408 Sig: “keeeteal cas fac, oaie a 0051 OC 01 2623 2627 oie . HvC ID0DDR(2)-RDDOR ADVANCE INITIAL ODOR VALUE 
Roe eat; . LOOP HEADS HAVE SEEN TESTED i 0057 co 87 1507 as 474 8 RDKD READ KEY-DATA 
OCES CO 87 0226 411 BLINK ar ays ees ator 
412 @ GO TO NEXT ROUTINE : OD5SC 04 oDpsc e : oc IL1*4* NN = & 
OD50 OC 01 2623 2613 478 MYC «= "DDDR(2) eLPCNT RESTORE INITIAL DDDR VALUE 
C: 0063 35 01 2623 a1 - L IDODR»XR2 POINT TO RESIDUAL DDDF 
0067 OC 01 2613 2543 481 MVC. LPCNT(2).P256 SETUP LOOP COUNTER 
DATE  23AUGTS  OSNOV7S = 19MARTC P c¢ , | | ace 
. R _ 
EC NO. 827785 827827 027872 eice 1D Ghee DATE 23AUGT5 OSNOV7S 1LOMART6 | PROG ID €12-2 
| EC NO. 827785 827827 827872 P sa 
lS e. AGE SA 


1 : t ; ig % ‘ : . ; 





IBM MAINTENANCE DIAGNOSTIC PROGRAM 


£122 


3340 FUNCTION TESTS ~ MOD 12 


ERR LOC OBJECT CODE 


oD6D 
odT2 


OD76 
od7C 


0080 
0084 
obe8 
opec 


0D90 


‘DATE 


CC NO. .827785 


: i ; ee : F ug se ; ot am Po ee gE 
' 


4D 
co 


OF 
co 


38 
3A 
co 
co 


co 


03 
Ol 


ol 
o1 


O1 
Ci 
30 
87 


87 


03 2551 


1840 


2613 
o06D 


2623 
2623 
0004 
1203 


0216 


23AUGTS 


2533 


OSNOVTS 


82782? 


482 * 
483 RO9B2 
484 

485 & 
486 — 
487 

488 * 
489 

490 

491 

492 * 
493 

494 & 
495 ROSC 
496 * 


- LOMARTS 
' 827872 


cLC 
BNE 


SLC 
BNZ 


TBR 
SBN 
BF 
8 


ADDR STMT SOURCE STATEMENT 


344_XR11 HCP IN 
ERRLD 


LPCNT(21,P4 
ROSB2 


IODOR «1 
IDDDRe 1 
RO9B 
NXORV 


LINK 


PART NO. 4247603 
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18M MAINTENANCE DIAGNOSTIC PROGRAM 


| €122 3340 FUNCTION TESTS - MOD 12 


PART WO. 4247603 


PAGE 6A 


ERR LOC GBJECT CODE ADOR STMT SOURCE STATEMENT 
e. 4593 KERERERSESRREERRERESORERSE ES EEEEESRESERERSERESS SSE SSE SSOOSSSESES SES ODES 
GO TG ERROR END IF 499 * . * 
RESIOUAL DDOF IS INCORRECT are 500 * ROUTINE GA - SCAN FF DETECT TEST * 
im 50i * * 
LOOP UNTEL ALL OF { 502 EEREERSEREREREARERESAESSERESSEERSSNORSRE SEL ESSERE STRESSES FESESS SESE SOSSS 
RESIDUAL DDOF HAS SEEN CHECKED ; 503 * . 
i § 0094 OA 0094 504 RTNOA pc XL1L*OAS ROUTINE NUMBER 
WRITE AND CHECK | 0095 00 0095 505 DC XL1"00* ROUTINE FLAGS 
AGAIN USING GDD , ~ 0096 OEST OD37 506 DC =—- AL2(RTNOB?} ADDRESS OF NEXT ROUTINE 
STORAGE ADDRESS i ¢ 507 * 
. 1 0098 OC 03 2555 2551 508 ROA MVC =- PATRN#3(4) »WCPTN INITIALIZE 
REPEAT FOR EACH DRIVE BEING TESTED iz OD9E 3C FE 2553 509 MVI - PATRN#+1,XtFE* TEST PATTERN 
{ 510 * 
GO TO NEXT ROUTINE | ODA2 CO 87 L1F3 511 8 BEGIN PERFORM ROUTINE INITEALE ZATION 
to ODA6 ODBS ODA? 512 oc AL2(ROAB) ®LOOP* SUBROUTINE RETURN ADDRESS 
Pes ODAB OE41 opas 513 DC AL2(ROAC) *NXDRV® SUBROUTINE REGURN ADDRESS 
i 514 * 
_ ODAA CO 87 1304 515 ROAA 8 RECAL RECALIBRATE 
ae ODAE CO 87 16A0 516 B ROSNS DETERMINE DATA MODULE SIZE 
| 517 * 
Log op62 CO 87 13F8 518 — B SEEK SEEK (3340 PHYSICAL ADDRESS? 
i. oDB6 00 ODB6 519 oc IL1*0* HEAD 0 
| 0087 015D oes 520 Dc 1L2°349! CE CYLINDER 
o , 521 # 
| €*  ODB9 CO 87 14EA 522 ROAB B ROHAE READ HOME ADDR AND RO COUNT EVER 
523 * 
| € ODBD CO 87 1866 524 8 GRIENT - TRACK ORIENTATION DELAY 
. 525 * 
| ODC1 3C FF 2790 526 MVI  DDDF4+255,X"FF* SETUP SCAN 
e ODC5 OC FE 279C 2790 527 MVC = DDDF +2541 255) »DDDF+255 ARGUMENT IN 
| & -  ODCB OC 02 26A0 2554 528 MVC ODDF+2(3) ePATRNGZ DODF AREA . 
529 © aa 
| ..  ODDI CO 87 17F6 530 8 ‘SCANE SCAN EQUAL 
| €);  oD0S O1 0005 531 oC ILi‘it RECORD 1 
| oDD6 00 ODD6 532 oc IL1*0*- NN = 00 
533 * 
| €>  o0p07 €1i.c3 1800 534 TIO  ERR15,X*C3* ERROR IF SCAN HIT 
535 © ; 
c: OODB CO 87 1866 536 ORIENT TRACK ORIENTATION DELAY 
© 537 © 
| ODDF CO 87 180A. 538 8 SCANH SCAN HIGH OR EQUAL 
| ODE3 01 ODE3 539 oc miei RECORD 1 
| G  oves oo ODES 540 pC OC«édCLAL ¢ 8 NN = 00 
541 * 
| e ODES Ci C3 1800 542 TIO = ERR159X*C3* ERROR IF SCAN HIT 
| & 543 © 
| ODES CO 87 1866 544 ORIENT TRACK ORIENTATION DELAY 
545 © 
| €© ovED Co 87 183E 546 B  —- SCNRE SCAN READ OR EQUAL 
ODF1 01. OOF1 547 OC TLL°1°¢ RECORD 1 
|.  ODF2 00 ODF2 548 DC IL1*°0* NN = 00 
i-€ 549 © 
ODF3 Ci C3 1600 550 TIO ERR15,X*C3° ERROR IF SCAN HIT 
a 551 * 
. G& opr Co 87 186 552 GRIENT TRACK ORIENTATION DELAY 
553 * 
/.  OOFB CO 8&7 1852 554 8 SCNRH SCAN READ OR HIGH OR EQUAL 
'€:  OOFF o1 ODFF 555 pC IL1*L* RECORD 1 
0£00 00 Q£00 556 DC IL1*0* NN = 00 
ae 557 * o 
' €¥ ~e€01 C1 C3 1800 558 TIG ERR15,X*C3* ERROR IF SCAN HIT 
559 * 
Cc OE0S CO 87 1866 560 | 8 ORIENT TRACK ORIENTATION DELAY 
1 Re 561 * . | 
OE09 3C TT 209F 562 WVI | ODDF+1,X*77' “CHANGE DDDF TO CAUSE SCAN HIT 
2 563 © 
: €3$ oe0D Co 87 180A : 564 8 SCANH SCAN HIGH OR EQUAL 
; OE11 O01 O£11 565 oc ILitie RECORU 1 
PROG ID Ciz-2 DATE 23AUG75 OSNOV75 LOMARTS ae PROG ID 12-2 
PAGE 6 _EC NO. 827785 -827827 


1 


p27e72,— . . ‘PAGE “6M 


comet 


Be : > cee oe ° : am | eee . i 


. ee ecg 
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Eis ee eee Cae OE ieee cease Spartans coated eR Se eS ee Se eS secege 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 
C122 3340 FUNCTION TESTS - MOD 12 
ERR LOC OBJECT CODE ADDR STHT SOURCE STATEMENT 
0£12 00 0E12 566 Dc 1L1*0° 
567 * 
0E13 Cl C3 OELB 568 TIO ROAB1»xX*C3" 
OE17 CO 87 1804 569 8 ERR14 
570 * . 
0£16 38 40 2630 571 ROABL TEN «= SHS, BIT 
OE1F CO 90 1AFB 572 BF ERRI3 
573 * 
0E23 CO 87 1866 574 8 GRIENT 
575 * 
0E27 CO 87 1852 516 8 SCNRH 
OE2B8 01 0E28 577 oC IL1e1¢ 
O£2C 00 0E2C 578 DC IL2°0° 
579 * 
OE20 C1 C3 0E35 580 TIO ROAB2,x"C3* 
0E31 CO 87 1804 581 B ERR1S 
582 * 
0E35 38 40 2630 583 ROAB2 TEN ss SNS» BIT1 
0E39 CO 90 1AFB 584 BF ERR13 
585 * 
OE3D CO 87 1203 586 8 eXDRV 
587 * 
0E41 O& 00 2553 2553 588 ROAC ALC PATRNGL( 1), PATRNGL 
0E47 3A O1 2553 589 SBN  - PATRN¢1,B1T7 
590 * : 
0E4B 3D FF 2553 591 CLI PATRN+1.X*FF® 
OE4F CO OL 1328 592 BNE LOOP 
593 * 
0&53 CO 87 0216 594 8 LINK 
595 * 
DATE 23AUG75  OSNOVTS LOMARTE 
EC NO. 827785 827827 827872 


NN = 00 


ERROR IF 
NQ SCAN HIT 


ERROR IF NO 


PART NO. 
PaGE 


SCAN EQUAL CONDITION 


TRACK ORIENTATION DELAY 


SCAN READ OR HIGH OR EQUAL 


RECORD 1 
NN = 00 


ERROR IF 
NO SCAN HIT 


ERROR IF NO 


SCAN EQUAL CONDITION 


| 


4247603 
7 


REPEAT FOR EACH ORIVE BEING TESTED 


SHIFT TEST PATTERN 
BYTE LEFT GNE BIT POSITION 


LOOP UNTIL ALL 


BIT POSITIONS HAVE BEEN TESTED 


GO TO NEXT ROUTINE 


PRoG ID 
PAGE 


C 


mo 


om 


f 


amy 


fm 


. am 


t 


om 


Aaa © eA A oO O 


Ci2-2. 
7 = 


ee 


a) 


- 


SD 


1BM MAINTENANCE OLAGNOSTIC PROGRAM 


C122 


ERR LOC OBJECT CODE 


OE57 
0E58 
0E59 


OE58 
OESF 
OE63 
OE65 


OE&6T 
OE6B 


OE6F 
OE73 


OET4. 


OET6 
OETA 


OETE 
OE82 
OE88S 
OES8E 
O£94 


OE9A 
OESE 


OEA1 
O£AT 
OEAB 
QEAC 


O£aD 
OE81 


OEB5 
OEB9 


OEBD 
OECL 


OEC4S 
OECA 


OECE 


OED2 
OEDS 


OEODC 
OEEO 
GEES 
OEES 


OEES6 
OEEA 


DATE 
EC NO. 


OB 
00 


OFIE 


3c 


co 


OA 


87 


OE76 
OF 10 


co 
co 


co 
00 


87 
87 


87 


015D 


co 
co 


3c 
oc 


oc 
oc 


F2 


co 
Ol 
00 


cl 
co 


38 
co 


38 
F2 


oo 
co 


co 


oD 
co 


co 
co 
ol 
00 


cl 
co 


87 
87 
FF 
FF 
03 
01 
01 


61 
90 


05 


87 


c3 
87 


40 
90 


oi 
10 


03 
01 


87 


03 
01 


87 


87 


c3 
87 


2613 


LiF 3 


1304 
1640 


13F8 


14EA 
1866 
279E 
2790 
2644 
26AL 
269F 


2623 
G6 


26A5 


17F6 


OEBS 
1804 


2630 
1LAFB 


2623 
OE 


2648 
1840 


vEDC 


26A9 
1B40 


1£66 


183€ 


OEEE 
1B04 


23AUG7T5 


827785 


279€ 
2551 
2551 
2528 


26A4 


2540 


254D 


3340 FUNCTION TESTS - 40D 12 


ADDR STMT 


OE57 
0£53 
OES5A 


OE64 
GE66 


0&73 
OET5 


GEAB 
OEAC 


OEES 
OEES 


OSNOVTS 
827827 





SRAARESERESSESRERSESES SRE 


LeeeeEheORESeESESSSESSESERSSESEESESESSSS SESS SSS S SONS 


XL1°OB° 
XL1*00° 
ALZ(RTNOC) 


APCNT 210 


BEGIN 
AL 2‘< ROBB) 
AL2 (ROBC) 


RECAL 
ROSNS 


SEEK 
IL1*O* 
IL2* 3498 
RDHAE 
ORIENT 


DODF4256 »X* FF 


DDDF+ 2551256) eDDDF +256 


DODF+6(4) NCP IN 
DDDF 4312) ,WCPTN 
DODFe1(2),NULLS 


IDDDRBITT 
RO3B1i 


DDOF+7 (6) » DDDF+6 
SCANE 
IL2°L? 
1L1°0* 


ROBB2,X*C3° 
ERR1S 


SNS,BIT1 
ERR13 


IDDOR -BITT 
ROBB 


DDDF4+10( 4) oF FPTN 
ERR1I9 


ROBB4 


DODF+11(4) ,FFPTN 
ERRIG 


ORIENT 
SCNRE 

riei' 
{L1*0° 


ROBBS»X*C3°* 
ERR14S 


SOURCE STATEMENT 
597 

598 * 

599 * 

600 + 

601 

602 * 

603 RTNOB oc 
604 oc 
605 Dc 
606 * 

607 ROB mvI 
608 * 

609 8 
610 oc 
611 oc 
612 * 

613 ROBA 8 
614 B 
615 * 

616 8 
617 oc 
618 DC 
619 * 

620 ROBB 8 
6zi * 

622 B 
623 * 

624 MVI 
6z5 MVC 
626 MVC 
627 MVC 
628 MVC 
629 * 

630 TBN 
631 JF 
632 * 

633 MVC 
634 * 

635 ROBB1 8 
636 DC 
637 * oc 
638 * 

639 TIO 
640 B 
641 * 

642 ROBB2 TBM 
643 BF 
644 * 

645 TBN 
646 sT 
647 * 

648 CLC 
649 BNE 
650 * 

651 8 
652 * 

653 R0B83 CLE 
654 BNE 
655 * 

656 ROBB 8 
657 * 

658 B 
659 DC 
660 DC 
661 * 

662 T10 
663 8 
664 * 
LOMART6 
627872 


enseaseesessecesesesessseeseseseseses es sees 


ROUTINE OB - SCAN EQUAL TEST 


ROUTINE MUMBER 
ROUTINE FLAGS 


PART WO. 
PAGE 


SEKSSROSSSSSSSSESES 


ADDRESS OF NEXT ROUTINE 


Loop THIS TEST 10 


PERFORM ROUTINE IM 


*LOOP® SUBROUTINE 


*HXDRY* SUBRGUTI«c RETURN 


RECALIBRATE 


TIMES 


ITIALIZATION 
RETURN ADORESS 
ACORESS 


DETERMINE DATA MODULE SIZE 


SEEK (3340 PHYSICAL ADDRESS? 


HEAD O 
CE CYLINDER 


READ HOME ADDR AND RO COUNT EVEN 


TRACK GREENTATION 


SETUP SCAN 


DELAY 


ARGUMENT IN 


DBDOF AREA 


SKIP IF DOOF IS 
ON EVEN ADDRESS 


BOUNDARY 


4247603 
TA 


238 


s 
e 
= 





SHIFT SCAN ARGUMENT FOR ODD BOUNDARY 


SCAN EQUAL 
RECORD 1 
NN = 00 


error IF 
NO SCAN HIT 


error IF NO 


SCAN EQUAL CONDITION 


SKIP 1F DOOF IS 


ON ODD ADDRESS BOUNDARY 


ERROR IF RESTOUAL 


DDDF IS INCORRECT 


REPEAT TEST FOR SCAN OR EQUAL 


ERROR IF RESIDUAL 


ODDF IS INCORRECT 


TRACK ORIENTATION 


DELAY 


SCAN READ OR EQUAL 


RECORD 1 
ne = 00 


ERROR IF 
NO SCAN HIT 


PROG ID 
PaGE 


Cl2-2 


TA 


C122 
ere LOC 


OEEE 
OEF2 


OEF6 
OEFC 


OF OO 
OF04 
OFO8 
OFOC 


OF 10 
OF16 


OFLA 


PATE 
EC 60. 





IBM MAINTENANCE DIAGNOSTIC PROGRAM 


3340 FUNCTION TESTS - BOD 12 


OBJECT CODE ADDR STMT SOURCE STATEMENT 
38 40 2630 665 ROBBS TAN = SNS» BIT 
CO 90 LAF 666 BF ERR13 

667 * 
GD 03 26A8 2551 668 CLC DDDF 41014) ,WCPTN 
CO. 01 1840 669 BNE ERR19 

670 * 
38 01 2623 671 TBN I PDOR»BITT 
3a O1 2623 672 SBN: 1DDORe BIT? 
CO 90 OET6 673 BE —s- ROBB 

674 * 
Co 87 1203 675 8 NXDRV 

676 * 
OF 00 2613 252F 677 ROBC SLC LPCNT (1) 5P2 
CO 01 1328 678 BNZ LOOP 

6719 * 
Co 87 0216 680 8 LINK 

681 * 
Z3auGTS _ OSNEVTS —«- 1 SMARTS : 
e27785 27827 etek 


_ -aeTeT2 


PART NO. 
PAGE 
ERROR IF NO 
SCAN EQUAL CONDITION 


ERROR IF RESIDUAL 
DDOF IS INCORRECT 


REPEAT 
TEST USING OOD 
MAIN STORAGE BOUNDARY 


4247 


603 


REPEAT FOR EACH DRIVE BEING TESTED 


Looe THIS 
TEST 10 TIMES 


GO TO NEXT ROUTINE 


PROG ID 
RAGE 


> 


L272" 
8 


€: 


wn 


mo Oo O 


{3 


O 


oe cee cane nn at cee tet teens 
Ste Ps 
ey e Abin? 


e €4 


| 
| 
| 


Oo ® 


| @ 
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@ & oe 


| 
; 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


c122 


OFIE 
OF LF 
OF26 


OF 22 
OF28 


OF 2c 
OF30 
OF32 


OF34 
OF38 


oF 3C 
OF40 
OF41 
OF43 
OF47 
OF4B 
OF4F 
OFSS 
oFss 
OFSF 
OF63 
OF64 


OF65 
OF69 


oFred 
OFT1 


OF7S 
OF78 


OF TF 


oFs3 


OF8T 


-OF388 


oFs9 
OFSD 


OF91L 
OFSS 


OF99 
OF OF 


OFA3 


OFAT 
OFAD 
OFB1 
OF8S 


DATE 
EC NO. 


@ @ & ee oe ee ene ee : Fae hie, 


PART NO. 
PAGE 


4247603 
A 


3340 FUNCTION TESTS —- MOD 12 


683 caceaseusecesansnerasteneesesteesoGeheseOsesenesneeeene eeesees SSe0C ST" 
684 * e 
685 * ROUTINE OC - SCAN HIGH OR EQUAL TEST 2 
686 * o 
687 + caeeseneesentetteasesehese@GntSHeeeReeseee esse eeeee ees ee sees eee ee? 
688 * 
oc OFIE 689 RTNOC oc XL1*OC* ROUTINE NUMBER 
oo OFLF 690 oc XL1*O0* — ROUT INE FLAGS 
OFBD OFZi 691 oc AL2¢RTNOD) ADDRESS OF NEXT ROUTINE 
692 * 
oc 03 2555 2551 693 ROC MvC PATRNO3(4) gWCPTIN INITIALIZE 
3C FE 2554 694 VI PATRNG2 eX" FE’ TEST PATTERN 
695 * 
CoO 87 1L1IF3 696 8 BEGIN PERFORM ROUTINE INITIALIZATION 
OF43 OF31 697 oc AL2¢R0CB) *LaaPp* SUBROUT EXE RETUEN ADDRESS 
OFAT OF33 698 oc AL2¢ROCC) eNXDRV?® SUBROUT INt RETURN ADORESS 
699 * 
CO 87 1304 700 ROCA . 8 RECAL RECALIBRATE 
CGO 87 16A0 701 B RDSNS CETERMINE DATA MODULE SIZE 
7Oo2 * ; 
CO 87 13F8 703 —C- 8 SEEK SEEK (3340 PHYSICAL ADDRESS} 
00 OF40 704 oc IL1¢*O° HEAD 0 
0150 OF42 T05 oc IL 2° 349* CE CYLINDER : 
706 * : 
CO 87 14EA 707 ROCS 8 ROHAE REAO HOME é£DDR AND RO COUNT EVEN 
708 * 
CoO 87 1866 709 8 ORIENT TRACK GRIENTATION DELAY 
710 * 
3C FF 2799 Fill MVI DDDF+4 2552X° FF * seTtue SCAN 
oc FE 279C 2790 Ti2 MVC DDDE+ 2541255) ,DD0DF+255 ARGUMENT I” 
ac 063 26Al 2555 7143 MVC CODF4+3 (4), PATRNTS ODOF AREA 
3C FF 26A2 714 “vi DODF+4  X* FE 
715 * 
CG 87 1LSOA T7716 8 SCANH _ §CAN HIGH GR equa 
au OF63 T1T oc TL2AEL*. gecoRD 1 
oo OF64 718 oc 11.1*0* nw e 00 
719 ¢ : 
Cl ¢c3 OF6D 720 Tio ROCB1 2 X*C3° _ gERRor IF 
CO 87 1804 T2i 8 ERRI4E MO SCAN HIT 
722 * : 
38 40 2630 723 ROCBI TBN SNS,BIT1 error IF 7 
CO 10 1650 124 pT . ERRIA SCAN EQUAL CONDITION | 
725 * : ; ‘ 
0D G3 26A7 2540 726 cLc  PDDESOC4) -FFRTN error fF RES TOUAL 
Co O02 1840 T27 BNE ERRIOD poor 1S INCORRECT 
: 7z8 # 2 
CO 87 1866 729 8 GRIENT TRACK GRIENTATION BELAY 
730 * yo ; 
co 87 1852 731 8 SCNRH SCAN READ OR HIGH OR EQUAL 
ol OFS7 732 oc IL1°1¢ RECORD i 
06 oFss 733 oc 1L1*0* NN = 00 
734 © | : 
Ci C3 oFgol 735. T18 ROCB2,xK*C3* eReoe IF 
Ce B87 1804 - 736 8 ERRLS NO SCAN HIT 
737 * 
38 40 2630 738 ROCcB2 TSN SNSeBIT1 ‘ERROR IF 
Co 10 18656 393 st ERRIA SCAN EQUAL CONDITION 
T40 * 
oD 03 26AT 2551 Fi eLc DDOF+9( 4) »WCPTM error IF RESTOUAL 
CO O01 1840 F4a2 BNE ERR1O poor IS INCORRECT 
143 # 
CO 87 12D3 Th 8 MXDRY REPEAT FOR eEaCH DRIVE BEING TESTED 
745 * . . 
QE 00 2554 2554 746 ROCC ALC PATRN42 (1) sPATRNCZ SHIFT TEST PATTERN 
3a 01 2554 347 . SBM PATRN+2,B1 TT : BYTE LEFT QNE BIT POS IT IGN 
; 748 * 
3D FF 2554 F449 cil PATRNC2 9 X*FF* LOOP UNTIL ALL : 
CO 61 1328 750 SNE LaeP eit POSIT TONS HAVE BEEN TESTED 
2aauGTS  OSNOVTS —-19MARTS PROG 10s CR2=2 
ez7res = s2Ta2T)=— BZ TET2 en 


ERR LOC OBJECT CODE 


ADOR STMT 


SOURCE STATEMENT 


PAGE 


4 
t 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


Cl22 


3340 FUNCTION TESTS - MOD 12 


ERR LOC OBJECT CODE 


OFB9 CO 87 0216 


OATE 
EC NO. 


23AUG75 


827785 


751 * 

752 

753 * 
OSNOVTS ISMARTS 
827827 827872 


ADDR STMT SOURCE STATEMENT 


LINK 


om i 


STMT SOURCE STATEMENT 


Ceoeeeeeseeeeeeoecseeeseeeeeoseeneeseoe 


PART NO. 


4247603 
PAGE 9 


A 


755 gadthEREESEEESESEESESEESEEESESESESERERTEESEESEOSSSSESESERGESSSSSOSSESSS 


759, S¥SHESEESESEERE 


CG 
PART NO 247603 18M MAINTENANCE DIAGNOSTIC PROGRAM 
PAGE 9. ¢. 
_ €122 3340 FUNCTION TESTS - MOD 12_ 
i 
ERR LOC GBJECT CODE ADDR 
1 &: 
GO TO NEXT ROUTINE Le 756 * 
. 757 @ 
€: 758 * 
160 * 
{.  oFBD oD OFBD 761 RTNOD 
OFBE 00 OFBE 762 
OF BF 1006 OFCO 763 
at 164 * 
OFC1 CO 87 11F3 765 ROD 
_. _ OFCS OFDB OFCE 766 
€ ofc? 1002_— OFC8 767 
: 768 * 
_ OFC9 CO 87 1304 769 RODA 
{>  OFCD CO 87 16A0 770 
771 * 
OFD1 CO 87 13F8 772 
€  OFDS 00 OFDS 773 
OFD6 0150 FD? 774 
775 * 
€.  oFds 88 08 00 776 RODB 
OFDB CO 10 1203 777 
2 178 * 
€: oFDF Co-87 146A 779 
780 * 
x, OF E3 CO 27 1718 781 
1 ¢ 782 2 
OFE7 CO 87 157E 783 
OFEB Ol OFEB 784 
Ee 785 * 
. OFEC CO 87 1743 786 
OFFO 02 OFFO 787 
| & ~~ oorri 13 OFF1L 788 
789 + 
OFF2 CO 87 1798 790 
| E} oFF6 02 OFF6 791 
OFF? 13 OFF7 792 
aad _ 793% 
i €  oFFs CO 87 163A 79% 
OFFC 02 OFFC 795 
lf: OFFD 13 OFFD 796 
€ 7197 © 
OFFE CO 87 1203 798 
: 799 ®& 
€35 1002 co 87 0216 800 RODC 
801 ¢ 
le 
© 
'@ 
| 
| 
| © 
} 
{ 
: © 
\ 
! 
i 
| @ 
i¢& 
PROG ID Cl2-2: “pate 23AUG7S OSNOV7S  $19MART6 
PAGE 9 | EC NO. 827785 827827 


G 
© 


_ 


827872 


oc 
oc 
oc 
B 


oc 
oc 


oc 


TBN 
8ST 


ROUTINE OD - WRITE REPEAT / READ VERIFY TEST * 


XL1*OD* 
XL1°00* 
AL2(RTNOE) 


BEGIN 
AL2(RODB) 
AL2(RO0C) 


RECAL 
ROSNS 


SEEK 
111°O°* 
3L2°349° 


DIND(.XR2) »NOWR 


NXDRV 
ROHAE 
WRROO 


ROCKD 
mitit 


wWRCKD 
It1*2°* 
1L2°19°* 


WRREP 
ILi'2® 
1L1°19° 
RDVKD 
IL1*2° 
IL1°19° | 
NXORV 


LINK 


e. 


2 


¢804000848604084484485FES4SS2ESETEEESESESSESES SESESSS SESS SES 


ROUTINE NUMBER 
ROUTINE FLAGS 
ADDRESS GF NEXT ROUTINE 


PERFORM ROUTINE INITIALIZATION 
*LOOP* SUBROUTINE RETURN ADDRESS 
*NXORV® SUBROUTINE RETURN ADDRESS 


REC ALIBRATE 
DETERMINE DATA MOOULE SIZE 


SEEK (3340 PHYSICAL ADORESS! 
HEAD 0 
CYLINDER 349 


KaG 
BYPASS ORIVE IF KRG 
WRITE INHIBITED KNG 


READ HOME ADDR AND RO COUNT EVEN KAG 
WRITE RECORD ZERO CNT-KEY-OaTA GOD 


READ COUNT-KEY~-DATA 
RECORD 1 


WRITE COUNT-KEY-DATA 
RECORD 2 
um = 19 


WRITE REPEAT KEV-DATA 
RECORD 2 
aN = 19 
READ VERIFY KEY-DATA 
RECORD 2 
NN = 19 
REPEAT FOR EACH DRIVE BEING TESTED 


GO TO NEXT ROUTINE 


PROG ID ci2z-2° 
PAGE Sa 


a 


' 
i Cc: 





IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO- 4247603 IBM MAINTENANCE DIAGNOSTIC PROGRAM es PART NO. 4247603 
PAGE rob f PAGE 10A 
C122. 3340 FUNCTION TESTS - NOD 12 ~ €122 3340 FUNCTION TESTS - MOD 12 
k 
ERR LOC OBJECT CODE ADOR STM¥ SOURCE STATEMENT " ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
803 FECSESESELEESESEEEEEEESSSSESEEESESEEEESSESEESSEEESESE SES 8EEEEEEEEETSESE. € 855 FSEEAEAEESER ELSES SE ESESESE SEES EESES ESS SETESEEEEREESEESEEESOOEOEESEEEEERTE 
80% + + 856 * * 
805 * ROUTINE OF ~ CYLINDER SEEK TEST +1 857 + ROUTINE OF = READ IPL TEST * 
806 * *! a 858 * * 
807 FECSTRCESERSESEELESSESESERE EERSEAEESEREK SEES SEGCEERKEHSERTSES EKEERSEEKE LER 859 SESRERESSSEKSSEKSSSESESEESAETAKCKLE FEEEERERESESTEEDOEESSEEEESEOETCESEEERES 
808 + A 860 * 
1006 OE 1006 809 RTNOE oc XL1*OE* ROUTINE NUMBER £1077 OF _ 1077 861 RTNOF oc XL2°OF* ROUTINE NUMBER 
1007 00 1007 8610 oc xt1*00o8 ROUTINE FLAGS 1078 00 1078 862 DC XL1*O00* ROUTINE FLAGS 
1008 1077 1009 811 oc AL2(RTNOF) ADDRESS OF NEXT ROUT INE hs 1079 2117 107A 863 oc AL2(RTNLO? ADDRESS OF WEXT ROUTINE 
812 + C 864 @ 
100A OC 01 102E 2528 $13 ROE MVC = ROEA14.2) »NULLS CYL ADDR = 000 FOR FIRST SEEK 107B 39 10 0208 865 TBF SBYTE3,SSW18 KMG 
B14 + : 1O7F 39 46 020A 866 TBF  SBYTE2,SSW11 BYPASS THIS ROUTINE IF 
1010 C2 01 OAOl 815 LA PID, XR1 INITIALIZE PSUEDO ~&° 1083 CO 90 1112 867 BF NORMN DRIVE 1 IS NOT BEING TESTED 
1014 34 01 2613 816 ST LPCNTsXR1 RANDOM NUMBER GENERATOR 868 * 
B17 * 2, 1087 38 20 OA19 869 S8F = COM» MPLELG RESET MICRO~PROGRAM LOADE? INDICATOR 
1018 CO 87 11F3 818 8 BEGIN PERFORM ROUTINE INITEALEZATION € 870 * 
101C 1033 101D 819 oc AL2(ROEB) "LGOP* SUBROUTENE RETURN ADDRESS 1088 CO 87 1F42 871 8 REGRST RESET ATTACHMENT REGISTERS 
LOLE 105F 101F 6820 Oc AL2¢ROEC) "NXDRV® SUBROUTINE RETURN ADDRESS © 872 * 
821 * : &  106F CO 87 10C9 873 B SAVRST GO TO STORE A RESTART ADOR 
1020 CO 87 13D4 “822 ROEA 8 RECAL RECALIBSRATE : 1093 31 C4& 255F 87% LIG DDOR,X*C4? LOAC ODDR 
1024 CO 87 16~A0 823 8 ROSNS DETERMINE DATA MODULE SIZE c 1097 CO 87 1E22 875 . 8 RSTOR GO TO RESTORE LOCATION 0 
826 * : 876 ¢ 
1028 CO 87 13F8 825 B SEEK SEEK (3340 PHYSICAL ADORESS} 1098 38 80 25FA 877 TEN IND HUNG ERROR END IF 
102C 00 102C 826 oc IL1*0¢ HEAD 0 LO9F F2 10 52 878 JT ERR30 ; L10 HANGS IN REJECTION LOOP 
102D 102E 827 ROEAL os rL2 CYLINDER O — 3469 eS 879 & 
828 * 10A2 CO 87 10C9 880 B SAVRST GO TO STGRE A RESTART ADDR 
102F CO 87 14EA 829 8 ROHAE READ HOME ADDR AND RO COUNT EVER —_ 1LOAG F3 C4 OL 881 S10 = K*OR*® eX "CAS - READ IPL 
630 * ~&> 10a9 CO B! 1€22 882 8 RSTOR _ GO TO RESTORE LOCATION 0 
1033 35 O01 2613 831 ROEB t LPCNT,XR1 GENERATE 883 © s 
1037 OC 01 1056 102€ 832 MVC =ROEB2(21ROEAL SIMULATED Do 1040 38 80 25FA 884 TBN IND, HUNG ERROR END IF 
103D LE 01 1056 O06 833 ROEBL ALC ROEB2 (29,0, XR1} RANDOM eS LOBL F2 10 40 885 JT ERR3O - SIO HANGS IN REJECTION LOOP 
1062 38 FE 1055 834 SBF = ROEB2-1,X* FE CYLINDER 886 ¢ Cie eee at ere: 
1046 OB 01 1056 2545 335 CLC =ROEB2(2),.P349 ADDRESS — 1084 OC 02 2661 2562 887 MVC 3 =—s- WORKIN. 3), TIM3S INITIALIZE TIMER 
106C CO 84 103D 836 BH ROEBI | i: 868 * 
837 + 1OBA OF 02 2641 252F 889 ROFA ALC WORKN(3?,P1 INCREMENT ATT BUSY TIMER 
1050 CO 87 13F8 838 8 SEEK SEEK (3340 PHYSICAL ADDRESS) ok 10CO CO AO 1OFe 990 80L  ERR30 ERROR END If ATTACHMENT 
1054 00 1054 839 oc ILatce HEAD 0 '€>  10ce Ci C2 108A 691 TIO «ROFA,X*C2* BUSY FAILS TO GO OFF 
205 1056 840 ROEB2 os iL2 CYLINDER 0 - 349 , 892 * 
641 « { 10CB 30 C& 2627 _ 893 SNS RODDReX*C4*t SENSE RESIDUAL DDOR 
1057 CO 87 14EA 842 8 ROHAE READ HOME ADDR AND RO COURT EVEN i €: 8o4 * 
843 + LOCC 35 OL 255F 895 . DODR » XR1 CALCULATE KRG 
1958 CO 87 12D3 B44 "8 NXDRV REPEAT FOR EACH DRIVE BEING TESTED 2 __ LODO 36 01 2547 896 a P1200, XR1 FIRST EXPECTED KKG 
BAS ¢ i €3 1004 36 OL 263F oT ST  —- WORKN-2,yXR1 DDDR RESIDUAL KMG 
105F OC 61 102E 1056 846 ROEC MVC =, ROEA1(2) ,ROEB2 . SAVE CYLINDER ADDR FOR ERR RECOVERY . 898 *¢ 
847 + 1008 36 01 253F 899 A P80,XxR1 CALCULATE SECOND KMG 
1065 G£ 01 2613 252F 848 ALC LPCNT(2),P1 LOOP UNTIL | €} 100€ 36 01 2661 900 st WORKN,» XR1 EXPECTED ODDR RESIDUAL KMS 
1068 3p OC 2612 849 CLI LPCNT-1,Xx*0C® 512 CYLINDER 901 * KMG 
LO6F CO O1 1326 850 BNE LOOP SEEKS HAVE BEEN PERFORMED 1OEO OD O1 2627 263F 902 CLC RDOOR(2) eWORKN-2 GO TO RE-LOAD MECROCODE IF KMG 
851 + i € = 10€6 Co 81 1108 903 BE RELOAD FIRST RESIDUAL DOOR IS CORRECT KMG 
1073 CO 87 0216 852 8 LINK GO YO NEXT ROUTINE ; 904 ¢ KG 
853 ¢ es LOEA OD O01 2627 264) 905 CLC RDDDRE 2) -WORKN GO TO RE-LOAD MICROCODE IF KMS 
' €3 10FO CO B21 1108 906 BE RELOAD _ SECOND RESID DDDR IS CORRECT KNG 
; 907 * 
C 10F4 CO 87 1F42 908 ERR30 8 REGRST RESET ATTACHMENT REGISTERS 
2 909 + : 
1GF8 CO 87 O21A $10 8 PRINT PRINT 
: LOFL Cé 10FC 911 oc XL1"C6* ERRGR 2030 MESSAGE 
| &  10F0 18 10FD 912 OC = AL 1 EM3ON-EN3002) 
1OFE 2521 10FF 913 OC AL2(ENSON) 
_ 42100 Cr01 1101 914° DC AL2CHLTOL? 
me 915 
1102 CO 87 9222 916 8 HALT - ERROR 
© 1166 C101 1107 927 OC AL2(HLTO1) HALT 01 
i @: re 918 * 
1108 OD 00 0232 0Aa00 919 RELGAD CLC UTABI1),P 10-1 RE“-LOAD MICROCODE IF 
m 110E CO 61 1E86 920 BE PL RUNNING FROM 3340 7 
ae - : 921 F . e F . 
; 1112 €oO 87 022A 922 WORMM 8 Load - TERMINATE SECTION 
DATE 238675 OSNOVTS L9MARTS Z PROS ID C12-2. © are | 23AUGT7S OSNDVTS 1 SMARTO | , PROG 1D C1i2—2 
_ $C 0. G27785  B2782t  e27e7T2 - - PAGE . 10 
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PART NO. 4247603 1BM MAINTENANCE DIAGNOSTIC PROGRAM PART NO« 4247603 
PAGE Li. PAGE L1A 
C122 3340 FUNCTION TESTS - MOD 12 C122 3340 FUNCTION TESTS - MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1116 00 1116 aca ‘ oc XL1°00* €. 926 eeaeegeaReeEAESNOESAEHOSEEESSEEEESSEESEEEEESSSSERSSSSSSSS SE SSESOSSRSSO® 
927 * * 
C 928 * ROUTINE 10 - CE CYLINDER RESTORE * 
s 929 * 2 
: 930 « ceeaeaeeeeesedeseeeeeaeeeeeeEeesestESEReeesesseeessesss esses esessseses 
931 * 
€- 1117 10 1117 932 RTN1O DC XL1°10° ROUTINE NUMBER 
1118 00 1118 933 OC XL1*00° ROUTINE FLAGS 
1119 FFEF 111A 934 oC XL2°FFFF? LAST ROUTINE 
€ 935 * 
1118 3C 00 1151 936 R10 MMVI —-R1081,0 INITIALIZE HEAD ADDRESS 
937 * 
‘ 111 CO 87 11F3 938 8 BEGIN PERFORM ROUTINE INITIALIZATION 
1123 1127 1124 939 DC AL2(R1OA) *LOOP* SUBROUTINE RETURN ADDRESS 
C 1125 11£0 1126 940 oc AL2(RLOF) CNXDRV® SUBROUTINE RE1TJAN ADDRESS 
941 * 
(1127 3D FF 2619 942 R10A CLI ADRTBL4+2,X*FF? ALLOW ONLY ONE 
— (1128 F2 81 17 943 JE R108 DRIVE TO BE SELECTED 
& : 944 *% 
112€ F3 C4 TE 945 SIO —- XK" TE X#C4* RESET AND DISABLE 3340 INTERRUPTS 
. 946 * 
€- 1131 CO 87 021A 947 8 PRINT PRINT MESSAGE 
1135 46 1135 948 oc XL1"46° SELECT ORIVE 
«1136 4E 1136 949 oc ALL(MSGOAN-MSGOA41) TO BE INITIALIZED 
€ —s- 1137 210€ 1138 950 oc AL2(MSGOAN) 
1139 CLES 113A 951 oc ALZ(HLTES) 
| 952 * | 
€ 34138 Co 87 0222 953 8 HALT UNCONDITIONAL HALT E4 
113F C1E4 1140 954 DC AL2CHLTE4) 
- ak . 955 * 
: €2 1141 Co 87 1118 956 8 R10 RESTART ROUTINE 
957 * a a ac RIEL 
. 1145 CO 87 13D4 958 R10B 8 RECAL RECALIBRATE 
€: 1149 CoO 87 16A0 959 8 RDSNS DETERMINE DATA MODULE SIZE 
960 * 
: 1140 CO 87 13F8 961 8 SEEK SEEK (3340 PHYSICAL ADDRESS) 
1151 1151 962 R1081 DS Itl HEAD 0 - ll 
1152 0150 1153 963 DC 1L2*349° CYLINDER 349 
964 * 
C: 115 88 01 00 965 YBN ——dDEND( 9 XR2) > SW GO TO READ HA ODD 
1157 £2 10 17 966 - gt R100 IF READ HA EVEN FAILS 
- 967 * 
€: 115A BA 01 00 968 R10C SBN  DIND( »XR2), SW SET ODD/EVEN CONTROL INDICATOR 
1150 8A 20 00 969 SBM DIND(»XR2),HAEDEF SET HA EVEN DEFECT INDICATOR 
- 970 * 
€ 1160 Co 87 14EA 971 8 ROHAE READ HOME AODR AND RO COUNT EVEN 
972 * 
; --1164 BB 01 00 973 SBF  DIND( »XR2)eSW RESET ODD/EVEN CONTROL INDICATOR 
' €} 1167 8B 20 00 974 SBF -DIND(,XR2),HAEDEF RESET HA EVEN DEFECT INDICATOR 
975 * 
1164 88 10 00 976 TBN  DIND(,XR2),HAQDEF GO TO WRITE OOD 
€: 1160 Co 10 16F7 977 BT WRHAO HOME ADDRESS IF DEFECTIVE 
978 * 
_- 1171 8B 01 00 979 R10D SBF  DIND( »XR2) SW RESET CDD/EVEN CONTROL INDICATOR 
€ 1174 Ba 10 00 980 SBN DIND(,XR2),HAQDEF SET HA ODD DEFECT INDICATOR 
: 981 * : 
¢€ 1177 CO 87 14FD 982 B RDHAO READ HOME ADDR AND RO COUNT 00D 
é 983 * ; 
1178 BA 01 00 984 SBN —DIND( »XR2).SW SET ODD/EVEN CONTROL INDICATOR 
€ 117€ 88 10 00 985 SBF DEND(4XR2) sHAODEF «RESET HA ODD DEFECT INDICATOR 
a 986 * 
1181 88 20 00 987 TBN DIND(,XR2),sHAEDEF SKIP IF EVEN HOME 
¢ 1184 F2 90 08 928 JF R1OE ADDRESS HAS BEEN VERIFIED 
» & 989 * 
1187 CO 87 16E4 990 8 WRHAE WRITE EVEN HOME ADDRESS 
G 1188 CO 87 115A 991 B R10C GO TO VERIFY EVEN HOME ADDRESS 
i: 992 * 
118F 88 01 00 993 R10E SBF - DEND 1 » XR2), SW RESET ODD/EVEN CONTROL INDICATOR 
DATE 23AUGT5 OSNOVTS LOMARTO . PROG ID 12-2 ae 23AUGT5 0 : 
| SNOVTS LOMARTS PROG ID C12-2 
EC NO. 827765 827627 827872 PAGE 12 oe NO. 827785 827827 827872 PaGE lA 


* © 


































Cl22 


1192 
1197 


1190 
11Al 
1LA2 


11A3 
LLAT 


LLAS 
L1AC 


1180 
1184 


1iBA 
11LBF 
11C2 
1ics 


11¢cc 
11D1 
1105 
11D6 


1107 
atin ahdie ae 1108 
120C 
LLEO 


11€6 
LEA 


1LLEE 
LiF2 


DATE 
EC NO. 


3340 FUNCTION TESTS - MOD 12 


8C 
oc 


co 
00 
00 


co 
00 


co 
co 


35 
oc 


4C 
D2 
OF 
co 


6c 
co 
01 
00 


co 
oi 


co 
CE 


30 
co 


co 
oo 


23AUGT5S 
827785 


ERR LOC OBJECT CODE 


02 
O7 


87 


87 


87 
87 


01 
01 


03 
OL 
ol 
ol 
02 


8T 


87 


87 
990 


oc 
82 


87 


14 2538 
26A5 2528 


1743 
LIAL 
11A2 


157E 
11A7 


17:8 
153€ 


2623 
2641 2543 


03 2551 


04 
2641 2533 
118A 


14 2543 

1743 
1105 
1106 


15S7E 
1108 


1203 
1151 252 


1151 
1328 


O22A 
11F2 


OSNnOV7S 
82T82T 
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994 
995 
996 
997 
998 
999 
1000 
1001 
1902 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
kO020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1629 
1030 
1031 
1032 
1633 
1034 
1035 


* 


RiOEL 


® 


R10F 
a 


& 


= 


19MAR 76 


827872 


MVC 
MVC 


MVC 


SLC 
BNZ 


MVC 


ADDR STMT SOURCE STATEMENT 


DL(3,XR2)5P8 
DODF+71.8) eNULELS 


WRCKO 
IL1*o8® 
TLi¢o¢ 


RDCKD 
IL1*0o* 


wRROG 
RDROO 


IODOR,. XRi 
WORKN(2},P256 


304eXR1) -KCP TN 
4(9XR1),XRi 
WORKN( 2) »P4 
R1OEL 
DL(3,XR25 »P256 
WRCKD 

ILi¢1¢ 

Iz1*of 


RDCKD 
IL‘. 


NZAORV 
R10B101),9% 


R1061-12 
Loop 


toad 
XL1°O00* 


5 


{ 


z 


ERR LOC OBJECT CODE 


PART NO. 4247603 _ 
PAGE wz é. 
e122 
G 
SETUP RO 
KL» OL, AND DATA e 
WRITE COUNT—KEY-DATA o7~. 
RECORD ZERO (EVEN? : 
NN = 00  €& 
READ COUNT-KEY-DATA _ oLLF3 
RECORD ZERG (EVEN) wet 
WRITE CNT-KEY-DATA RECORD ZERO ODD  ——_11FB 
&. 1200 
READ KEY-DATA RECORD ZERO ODD 
_ 1205 
POINT TO DDDF AREA C 1208 
SETUP BYTE COUNTER 
120 
MOVE WORST ze 
CASE PATTERN 120€ 
TO DDDF AREA 7 1213 
i ~ 1237 
SET DATA LENGTH TO 256 ie 1218 
tes 
WRITE COUNT-KEY—DATA 121F 
RECORD 1 2 1223 
MN = 00 € 
1227 
READ COUNT-KEY-DATA «1228 
RECORD i Le 
122F 
END OF INITIALIZATION FOR ONE TRACK | C 1235 
INCREMENT HEAD ADDRESS / 4238 
LOOP UNTIL ALL (€2 1241 
TRACKS HAVE BEEN INITIALIZED 
1245 
TERMINATE SECTION .€ 1249 
124D 
'€> 1250 
1254 
le 1257 
| 125A 
-€& = 1250 
1261 
~~ 
: © 1264 
_ 1267 
{> =1268 
126 
€: 1272 
1276 
c 1279 
"1 27¢ 
€S 12Te 
{ 1283 
| 1286. 
i 
€ 
PROG ID C12-2, DATE 
PAGE 12. EC NO. 


eed 


ei 
~ 4 
ayef 


34 
35 


1c 
ic 


b2 
34 


F3 


38 
co 


38 
co 


31 
31 
3c 


oc 


C2. 


39 
F2 
c2 


74 
b2 


38 
F2 


BA 
39 
39 
F2 
c2 
74 
02 
BC 


38 
2 


os 
01 


ol 
01 


ol 
01 


C4 


01 
i90 


20 
90 


c5 
cs 


oo 
FO 


o1 
ol 


03 
O1 
10 
40 
90 
02 
o2 
ol 


oo 


90 
os 


20 


20 
90 


02 
1 
Go 


20 
90 


08 


2641 
2641 


1371 
132A 


04 
1202 


TE 


OA19 
1€30 


OA19 
1E86 


2591 
2574 


25FA 
2614 


2621 
2623 


2600 
2617 
02068 
020a 
17 
2642 
02 
00 


o20C 
03 


00 
e208 
O20A 
17 
2658 
02 
00 


o2cc 
03 


00 


23AU6TS 
827785 


ADDR STMT SOURCE STATEMENT 
1037 KEEREREREERRECRREERRESEAERERSESRESSRESEREREEESEREREESSEEES SESRESSE ESET ESE 
1038 * * 
1039 * INITIALIZATION AND LOOP CONTROL SUBROUTINES * 
1040 * * 
1041 ESERESEEREEAKEEREERESESESEESRESEESESERECERREE EES ESE SERESLESKS CES HESES SES 
1042 * 
1043 * ROUTINE INITIALIZATION 
1044 * 
1045 BEGIN ST WORKN, ARR POINT TO SUBROUTINE 
1046 L WORKN ,XR1 CALL PARAMETERS 
1047 * 
ol 1048 MVC LOOPX4¢302),1(,XR1) SETUP *LOOP? SUBROUTINE RETURN 
03 1049 MVC NXDRVX43(2) 230 —XR1) SETUP *NXORV! SUBROUTINE RETURN 
1050 # 
1051 LA 4(,XR1)-¢XR1 SETUP *BEGIN® 
1052 ST BGNX43.XR1 SUBROUTINE RETURN 
1053 * 
1054 8GNO1 SI0 X*7TE*,x*C4? RESET AND DISABLE 3340 INTRPS 
1055 * 
1056 TBN COM, AMOPSW BRANCH IF AMOP 
1057. BT AMOPLK WAS ABNORMALLY TERMINATED 
1058 * 
1059 TBN COM, MPLFLG LOAD MICROCODE 
1060 BF MPL IF REQUIRED 
1061 * : , 
1062 LIO CEMODE .X'C5* SET CE MODE 
1063 Lio SVPREQ,X*C5* INDICATORS 
1064 * 
1065 MVI IND,O RESET PROGRAM INDICATORS 
1066 MVI ERRCNT.C*O* INITIALIZE ERRGR RETRY COUNT 
1067 * 
2550 1068 MVC IDOCR(2},00CR INITIALIZE ODCR 
255F 1069 MVC 1GDDR (2) ,DDOR AND ODDR VALUES 
1070 * 
0200 1071 BGNO2 MVC SSWSV (4) -SBYTES SAVE SECTION SENSE SWITCHES 
1072 * 
1073 La ADRTBL»XR1i POINT TO DRV WORK AREA ADDR TBL 
1074 *. 
_ 1075 TSF SBYTE3.SSwW1B KMG 
1076 ’ Jer SBYTE2,.SSwWil BRANCH IF ORIVE 1 
1077 ' JSF 6GNO3 TESTING 1S INHIBITED 
1078 * 5 : 
1079 LA ORVWK1 2 XR2 STORE ORIVE 1 
1080 ST 14 9XR1),XR2 WORK AREA ADDRESS I® TABLE 
1081 LA .2¢_XR2LD eXR1 AND AOVANCE TABLE POINTER 
1082 * 
1083 MvI DIND( »XR2)20 RESET DRIVE DEPENDENT IND 
1084 * ; 
1085 TBN SBYTE4 + SSW21 SKIP IF WRITE 
1086 JF 8GN03 ALLGWED GON ORIVE 1 
1087 * , 
1088 SBN DIND(,XR2) »NOWR INHIBIT WRITE TESTING 
1089 * 
1090 BGNO3 TaF SBYTE3,SSWIA KMG 
1091 TBF SBYTE2¢SSW12 BRANCH IF DRIVE 2 
1092 JSF BGNOG6 TESTING IS INHIBITED 
1093 * : 
1094 LA DRVWKZ » XR2 STORE DRIVE 2 
1095 ST 10 9XR1) -XR2 WORK AREA ADDRESS IN TABLE 
1696 LA 24 oe XR1})eXR1 AND ADVANCE TABLE POINTER 
1097 = 
1098 MMVI DIND( »XR2),0 RESET DRIVE DEPENDENT IND 
1099 * . 
1100 TBN SBYTE4,SSW22 SKIP IF WRITE 
1101 JF BGNO6 . ALLOWED GN ORIVE 2 
1202 * 
1163 ' SBN DINDC ¢XR2) sNOWR INHIBIT WRITE TESTING 
1104 * . 
CSNOV7T5 LOMARTG PraoGc Id C12-2 
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PART NOw 4247603 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO» 424760: 
PAGE 13 PAGE LBe 
C122 3340 FUNCTION TESTS -— MGD 12 C122. 3340 FUNCTION TESTS — MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
ram 
1289 7C FF OO 1105 BGNO6 MVI OL pXR1DD A XPFFS MOVE TERMINATOR TO ADDR TABLE | ¢ 1173 * 
1106 * 1316 38 40 25FA 1174 TBN  IND,HLTSW CONTINUE TESTING IF NO 
128C C2 Ol 2617 1107 LA ADRTBL eXR1 POINT TO START OF ADDRESS TABLE 131A F2 90 OA 1175 JF NXDRVX PERMANENT ERROR OCCURED 
1290 34 O1 2616 1108 ST ADRPTReXR1 INITIALIZE ADORESS TABLE PTR 1176 * 
1294 75 02 O01 1109 L 1(yXR1) 9 XR2 FIRST DRIVE WK AREA ADOR TO XR2 1310 CO 87 0222 1177 8 HALT ERROR HALT 
1110 * fer 1321 C101 1322 1178 DC AL2(HLTOL) 
1297 7D FF 00 Lill cL! Ol eXR1) eX* FFP GO TO START TEST IF . € 1179 # 
129A F2 O1 14 1112 JNE  8GNO7 VALIO SENSE SW SELECTION 1323 3B 40 25FA 1180 SBF IND,HLTSW RESET PERMANENT ERR INDICATOR 
1113 * 1181 * 
129D CO 87 021A 1114 B PRINT PRINT MESSAGE 1327 CO 87 0000 1182 NXORVX B ee RETURN TO CALLING ROUTINE 
1ZAl 46 12Ai L115 oc XL1*46? INVALID SETTING 1183 * 
12A2 2A 12A2 1116 pc AL1(MSGO4N-MSG041) OF SENSE SWITCHES 1184 ce ahs Se eet err 
12A3 1FFA 12a4 1117 Dc AL2UMSGO4N} 11-12 OR 1A-16 KkmG © 1185 * SETUP TEST LGOP ADDRESS 
12A5 CLE2 12A6 1118 Dc AL 2¢HLTE2) 1186 * 
1119 * 132B OC 01 2621 2550 1187 LOOP MVC  IDDCR(23,DDCR RE-INITIALIZE 
12A7 CO 87 0222 1220 B HALT UNCONDITIGNAL HALT E2 1331 OC 01 2623 255F 1188 MVC 10DDR(2),DD0R DDCR AND DDOR VALUES 
12A8 CLE2 12AC 1121 oc AL 2(HLTE2) 1189 * 
1122 * 1337 OD 03 2600 0200 1190 CLC —- SSWS V0 4) e SBYTES BRANCH IF ANY 
12A0 CO 87 1238 1123 8 BGNO2 GO TO CHECK SENSE S®S AGAIN 1330 CO O1 120C 1191 BNE  BGNOL SECTION SNS SW CHANGES 
1124 * 1192 # 
1281 BA £0 OO 1125 8GNO7 SBN DIND&,XR2}eLPSW SET ORIVE LOOP INDICATOR 1341 38 O7 25FA 1193 SBE IND, QPEND+SKEND*+SNSAVL RESET INTERRUPT AND 
1126 * | 1345 38 30 25FA L1iS4 SBE INO, IHTERR+ORVERR ERROR INDICATORS 
12B4 OC O1 2630 2528 1127 MVC = SNS(.2) »RULLS CLEAR SENSE AREA 1195 * 
1128 * ae 1349 CC O01 2630 2528 1196 MVC = SNS(.23 e NULLS CLEAR SENSE AREA 
128A 31 C5 2564 1129 LIG SVPSEQ¢1,X*C5* FORCE € L197 * 
12BE 31 C5 2578 1130 LIO  Kel,»x*C5* ADAPTER CHECK 134F 31 C5 2564 1198 LIO SVPSEQ4+1.x'C5* FORCE 
12C2 31 C5 257A 1131 L1G RUNMP,X‘C5* TO TEST INTERRUPT ENABLE : 1353 31 C5 2578 1199 LI10 K+l,x*C5* ADAPTER CHECK 
1132 * 7 1357 31 65 257A 1200 LIQ  RUNMP,X?C5°* TO TEST INTERRUPT ENABLE 
12C6 00 FF 12C6 12C6 1133 CLC} 0 #£256)5* 800 USEC DELAY , 1201 * 
1134 * 2 1358 OD FF 1358 1358 1202 CLO (256) 0% B00 USEC DELAY 
vedaele _ 12CC £3 C4 80 22135 SiO X*BO*,X*C4! ENABLE 3340 INTERRUPTS 1 & 1203 * 
1136 # | 1361 F3 C4 80 1204 SIG = X*®BO%,K*C4? ENABLE 3340 INTERRUPTS 
12CF CO 87 0000 1137 BGNX 8 *— + RETURN TO CALLING ROUTINE — 1205 * 
1138 ¢ me 1364 88 40 00 1206 TBN DIND(,XR2),LPSW TEST DRIVE LOOP INDICATOR 
1139 goth Se iateee eee eee ee 1367 BA 40 00 1207 SBN -DIND(»XR2),LPSw RESET INDICATOR 
1140 # REPEAT TEST ON NEXT ORIVE 136A CO 90 12CF 1208 BF BGNX BRANCH IF IND WAS OFF 
il4i * H 1209 * 
1203 F3 C4 7E 1142 NXORV SIO. X°TE*X*C 48 RESET AND DISABLE 3340 INTRPS 136E CO 87 0000 1210 LoOPX B ++ RETURN TO CALLING ROUTINE 
1143 * 1211 * 
12D6 30 FO 2614 1144 CLE = ERRCNTeC #08 BRANCH IF NO ERROR | & 1212 * So eee ere 
12DA F2 81 12 1145 JE NXDOL RETRIES WERE REQUIRED 1213 2 ERROR RETRY PROCEDURE 
1146 * P seats 1214 % 
12DD OC OO 200b 2614 Misi MVC = MSGO54 1601) sERRCNT MOVE RETRY COUNT TO PRINT MSG € 1372 £3 C4 TE 1215 RETRY SIO -X*7E*»X*C4* RESET AND DISABLE 3340 INTRPS 
* 1216 2 
12E3 CO 87 O2i4 1149 8 PRINT PRINT | 1375 30 00 25FC 1217 SNS  SWSrd % ANOP * SENSE DATA SWS 
L2E7 B86 12E7 1250 oc XL1*86° "RECOVERED ' € 1379 30 83 25F8 1218 CLI LINKID»X*°83* * LINK * AND GO TO AaMOP IF 
12E8 19 12E8 115i oc ALL(MSEO5N—-MSG05+4 2) AFTER X RETRIES* 1370 CO 61 1£30 1219 BE AMOPLK * *§3? SWS 1 & 2 CONTAIN *83° 
12E9 2013 12EA 1152 oc AL2(MSGO5N) 7 1220 * 
1153 3 € 1381 3D FO 2614 1221 CLI ERRCNT»C?70° PRINT ERROR 
12E8 3C FO 2614 ae MVI  ERRCNT,C*O® RESET ERROR RETRY COUNTER 1385 CO 81 1C4F 1222 BE ERRPRT MESSAGE IF FIRST ERROR 
* i. 1223 ® 
L2EF 35 O1 2616 res nKpO! L ADRPTR,XR1 GET ADDRESS TABLE POINTER \ €.- 1389 BB CO OO 1224 SBF -d DEND( py XRZ2} eLPSWSCEDM RESET DRIVE INDICATORS 
1225 * 
1263 70 FF 02 1158 CLI =. 2k oe XRLVOX*FFE BRANCH IF ALL ORIVES 138C 39 05 2630 1226 TBE SNSeBITS¢BIT7 FORCE SYSTEM RESET IF 
12F6 F2 81 OE .s . JE NXDO2 HAVE BEEN TESTED R 1390 CO 90 1ECB 1227 BE SYSRST OM ATTENTION OR ADAPTER CK 
1228 * 
12F9 75 02 03 1161 L BU gXR1LI—e KR2 POINT TO NEXT DRY WORK AREA 1394 38 01 2630 1229 TEN SNSeBITT TERMINATE SECTION IF 
1162 # € 1398 F2 10 22 1230 JT ABEND MICRC-PROCESSOR WON'T START 
12FC D2 01 02 1163 LA 2¢eXR1),XR1 ADVANCE ADDRESS 1231 * 
12FF 34 O1 2616 aie. : ST ADRPTReXR1 TABLE POINTER . 1398 06 00 2614 252C 1232 AZ ERRCNT(1),0101) INCREMENT ERROR RETRY COUNT 
t 1233 * 
1303 CO 87 1328 1166 8 Looe GO TO TEST NEXT DRIVE 13Al 3D F3 2614 1234 CLL  ERRCNT,.C*3? GO TO RETRY COMMAND SEQUENCE 
1167 * ‘ 13A5 CO 04 1328 1235 BNH LOOP 1— COUNT NOT YET EXHAUSTED 
1307 C2 61 2617 1168 NXDO2 LA ADRTBLe XR1 RE-INITIALIZE c 1236 * 
1308 34 01 2616 1169 ST ADRPTR»XRL ADDRESS TABLE POINTER AND - 13A9 CO 87 O21A 1237 8 PRINT PRINT 
130F 75 02 O1 1170 L 1 yXR1P eXR2 POINT 10 FIRST DRIVE AREA j 13AD 86 13AD 1238 Dc XL1°B6* PERMANENT 
1171 # 7 € 13AE 1C 13AE 1239 oc AL 1(MSGOTH-MSGOT+L} ERROR MESSAGE 
1312 CO 87 0212 1172 B TEST CHECK FOR USER INTERVENTION 13AF 2061 1380 1240 pc AL2(MSGO7N)} 
C 
DATE 23AUGT5 OSNOV75 1OMART6 PROG ID Cl2-z DATE 23AUGT75 O5NOV75 19MART6 PROG 10 C12-2 
EC NO. 827785 827827 827872 PAGE 13 a NG. 827785 827827 927872 PAGE 13A 
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ERR LOC OBJECT CODE 


1381 3C FO 2614 
1385 3A 40 25FA 
1389 CO 8&7? 1203 


1360 CO 87 021a 
13C1 86 

13C2 32 

1303 2045 

13C5 3B 20 CA19 


13C9 CO 87 0222 
130 C101 


13CF CO 87 022A 
1303 40 


‘DATE 
EC NO. 


234UGC75S 
827785 


3340 FUNCTION TESTS ~ MOD 12 


ERRCNT »C*O® 
IND sHLTSW 
NXDRV 


PRINT 

XL1°86° 

ALL CMSGO6N-MSG0641} 
AL2(MSGO6N) 


COM» MPLFLG 


HALT 
AL2CHLTOL) 


LOAD 
XL1"40* 


ADOR STMT SOURCE STATEMENT 

1241 * 

1242 MYVI 

1243 SBN 

1244 B 

1245 * 

1246 ABEND B 
13C1 1247 oc 
13C2 1248 oc 
13C4@ 1249 DC 

1250 * 

1251 SBF 

1252 * 

1253 8 
13CE 1254 oc 

- 1255 € 

1256 8 
2303 1257 oc 

1258 * 

Oosnoyv7s LOMART6 
827827 B27B72 


et 

y, 
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£ LZ26C SHEKESSERSSKSKASEASSSSERERLSKKE SSS KEKE SSKSEKEKERSEOSKAMSSTS STEELS ERERTKSSKEKSE SESS 
RESET ERROR RETRY COUNTER 1261 * e 
SET PERMANENT ERROR INDICATOR 1262 * 3340 COMMAND EXECUTION SUBROUTINES * 
GO TO TRY NEXT DRIVE e" 1263 * * 
1264 FXKRERHSLASKSSEESLAKKAKEKRKEESEKKEKESAKSESKTSERSESSESKSSEASETCKKAESKAKKAEEKSKESTKKEKSE SESE 
PRINT oe 1265 
TERMINATION MESSAGE : & 1266 * RECALIBRATE COMMAND 
1267 * 
. 1304 34 98 I4ES 1268 RECAL ST SEEKX4+3,ARR SAVE RETURN ADDRESS 
{ 1269 * 
RESET MICRO-PROGRAM LOADED IND 13D8 OC 04 2605 214F 1270 MVC) = CMD. 5} e MRECAL SETUP *CMD* FIELD FOR PRINTOUT 
e ei - pee ai wae ae oe Pee Cre ee 
ERROR HALT 01 £ 13DE BC 00 06 1272 MVI =—s- Qe XR2) 9 X* 008 SETUP Q AND R 
13El BC 01 07 1273 MVI =s- RU gp XRZDEXCOLE BYTES FOR $10 CONMAND 
: 1274 * 
TERMINATE SECTION é 13E4 8C 09 15 2528 1275 MVC NN(10_,XR2),NULLS CLEAR DOCF AREA 
1276 * 
13E9 OC 06 260C 214A L277 MVC = CYL( 7) »REZERO SETUP CYLINDER AND 
i L3EF OC 04 26118 2149 1278 MVC HD(5),REZERO-1 HEAD VALUES FOR PRINTOUTS 
1279 * 
wee 13F5 F2 87 D2 1280 . J SEEKA GO TO EXECUTE COMMAND 
ae 1281 * 
1282 %*--~-—....—. ed ee ee ee ee me A a le 
ar 1283 * SEEK COMMAND 
€ 1284 ¢ 
; 13F8 34 08 2641 1285 SEEK st WORKN, ARR SETUP POINTER TO 
ioe 13FC 35 O1 2641 1286 L WORKN,XR1 SUBRTN CALL PARAMETERS 
i & 1287 * 
| 1400 OC 04 2605 2154 1288 MVC = CMD. 5) »MSEEK SETUP *CMD* FIELD FOR PRINTOUT 
; 1289 * 
€: 1406 1C 02 2640 02 1290 MVC WGORK#2,2(3.XR1) MOVE PARAMETERS TO WORK AREA 
i 1291 * SS 
Bet) 140B OC 06 260C 214A 1292 MVC CYL(7),REZERO SETUP CYLINDER AND 
i &: 1411 OC 04 2611 2149 1293 MVC = HD( 5) pREZERO-1 HEAD VALUES FOR PRINTOUTS 
: 1294 * : 
are 1417 OF 01 2640 2549 1295 SKOO ALC WORK42(2),N1 CONVERT CYLINDER 
/€ > 441i F2 82 OA 1296 JM SKOOA ADDRESS TO DECIMAL 
; 1420 06 20 260C 252C 1297 Az CYL(3},D1i01) AND SAVE FOR PRINTOUTS 
ge 1426 CO 87 1417 1298 8 $K00 
Nees’ "1299 
142A OF 00 263E 2549 1300 SKOOA - ALC WORK(1),N1 CONVERT HEAD 
és. 1430 F2 62 OA 1301 JM SKOOB ADDRESS TO OEC IMAL 
is 1433 06 10 2612 252C 1302 Az HD(2).D1(01) AND SAVE FOR PRINTOUTS 
1439 CO 87 142A 1303 8 SKOCA 
fn sti 1304 * 
| €2) 1430 1c 02 2641 02 1305 SKOOS MVC WORK43,2(3,XR2) MOVE PARAMETERS TO WORK AREA 
1306 * 
& 1442 3C 08 263£ 1307 MMVI WORK,11 SETUP MULTIPLIER FOR 12 HEADS 
: €2 1308 * 
| 1446 B& 80 00 1309 TBN DIND(.XR2)eCEDM BRANCH IF NOT 
on 1449 F2 90 08 1310 JF SKOl CE DATA MODULE 
ae 1311 * 
i 144C 3C 01 263£ 1312 MVI WORK,i SETUP MULTIPLIER FOR 2 HEADS 
: 1313 * ; 
'€> 1450 70 o1 00 1314 CLI. Of oXR1idel BYPASS TEST IF HEAD 
1453 CO 84 1203 1315 BH NXDRY ADDRESS ¥S GREATER THAN 1 
Pass 1316 # 
/ & 1457 BC 00 06 13217 SKO1 MVI  Q€eXR23,x*00" SETUP Q AND R 
1454 8C 00 07 1318 MVI  =—- R4 g XRZ7_X*008 BYTES FOR SIO COMMAND 
: 1319 # 
C: 145D 8C 0S 15 2528 1320 NVC NNC1OsXR2),KULLS CLEAR DDCF AREA 
1321 + 
2 1462 1& O1 2641 02 £322 SKOo2 ALC WORK¢3,2(2,XR1? MULTIPLY PHYSICAL 
_ 4&2 1467 OF 00 263 252F 1323 SLC HORKO1D, PL CYLINDER ADDRESS 
146D CO 01 1462 1324 BNZ SKO2 BY NUMBER OF HEADS 
1325 * 
| €& = 1478 OF 01 2641 263F 1326 ALC #GRK43(2) ,WORK+1 ADD HEAD ADORESS | = 
1327 * 
¢ | 
PROG ID Cl2~2 DATE 23AUG75 OSNOV7S LOMART6 PROG iD €12-2° 
PAGE 14. e” NO. 827785 827827 827872 PAGE 144 
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PAGE 15 & 
C122 3340 FUNCTION TESTS — MOD 12 _€122 3340 FUNCTION TESTS - MOD 12 
Cc. 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
1477 D2 01 03 1328 La 3¢,XRiD,XR1 SETUP 1396 * 
147A 34 OL 14E9 1329 ST SEEKXe3,XR1 RETURN ADDRESS 1527 D2 01 09 1397 LA —- 91g XR1LD 9 XRL 
1330 @ _- 152A 34 01 2641 1398 ST  WORKN,XR2 
147E C2 01 0000 1331 LA sO XR DIVIDE BY 20 ( 1399 * 
1482 0D 01 2641 2530 1332 SKO3 CLO WORK 3122, P20 TO GET CYLINDER 152E OD 01 2641 2627 1400 CLC WwWORKN(21,RODDR 
1488 F2 62 OD 1333 JL SKO4 SEEK ARGUMENT IN 1534 CO 01 1816 1401 BNE ERR16 
1488 D2 01 O1 1334 LA s-1 RR19 9 XRI INDEX REGISTER 1 22:0 f 1402 * 
148E OF 01 2641 2530 1335 SLC WORK#3(22.°20 HEAD SEEK ARGUEST 1538 CO 87 0000 1403 ROHAOX 8B +--+ 
1494 CO 87 1482 1336 B SKO3 IN WORK AREA “3 1404 # 
. 1337 * C3 1405 #-——----- a 
1498 84 O1 OE 1338 SKO4 ST CCL XRZI9 XRD STORE SEEK 1406 * 
1498 8C Gl 10 2663 1339 MVC «HH »XR2) pWORKO3C2) ARGUMENT IN ODCF ae 1407 * 
co a 1340 * -€- 153 34 08 157D 1408 ROROO ST RDROOX3eARR 
14a0 34 01 263F 1341 ST  WORK+1,XR1 MOVE CYL ADDRESS TO WORK AREA 1409 * 
| 1342 9 _. 1540 OC 04 2605 2163 1410 MvC - CMD(5) »MRDKOO 
14A4 OE 01 263F 2569 13463 SKOS ALC WORK#1(2).NI CONVERT CYLINDER i 1411 * 
148A FZ 82 0A 1344 JH SKC6 ADDRESS TO DECIMAL 1546 BC 01 06 1412 MVI Qe XRZD2X°018 
14AD0 06 20 2608 252 1345 AZ —- CYL-4€39,0103) AND SAVE FOR PRINTOUTS 1549 BC 08 07 1413 MVI —- RU XRZD9X*08" 
1483 CO 87 1484 1346 8 SKOS vs 1414 
1347 8 154C 8C 00 113 1415 MVI- RRL XR2990 
14B7 OE O2 2641 2549 1348 SKO6 ALC = WORK#3(2),N1 CONVERT HEAD _-«:154F BC OO 15 1416. MVI NN eXR2) 0 
14BD F2 62 OA 1349 JM os SEEKA ADDRESS TO DECIMAL oe 1417 
14CO 06 20 260E 252 1350 AZ  - HD-3 03) D102) ANO SAVE FOR PRINTOUTS 1552 CO 87 187A 1418 i> 6 XEQ 
14C6 CO 87 1487 1351 8 SKO6 1419 * 
| 1352 €. 1556 8D 08 14 263A 1420 ROROOA CLC 0L(9,XR2),RDDCF+E 
14CA CO 87 187A 1353 SEEKA 8 XEQ GO TO EXECUTE COMMAND 155B CO 01 1630 1621 BNE ERR18 
1354 * : 1422 * 
24CE OD 01: 2623 2627 1355 CLC 100DR12),RDDOR GO TO ERROR END IF '€:  155F ec 00 11 1423 MVI BRE eXRZP20 
2404 CO 01 1816 1356 BNE ERR16 RESIDUAL DOOR IS INCORRECT 1424 © 
1357 * / $62 35 01 2623 1425 L IDDOR, XR2 
1408 0D 69 2632 2638 1358 CLC 1DDCFN(10) »RDDCEN GO TO ERROR END IF , €. 1566 86 OL 12 1426 A KL(,XR2) pXR2 
14DE CO 02 1830 1359 BNE ERRLE RESIOUAL DDCF IS INCORRECT 1569 B6 01 14 1427 A DLC ,XR2) eXR1 
7 1360 © | 156C 34 01 2641 1428 ST  WORKN,XR1 
24£2 &C 03 08 10 | 1361 MVC PAL 49 XR2) HH XRZ) SAVE CURRENT PHYSICAL ADDRESS | € 1429 ¢ 
1362 * 1570 OD 01 2641 2627 1430 CLC WORKN(2) »RDDDR 
24E6 CO 87 0000 1363 SEEKX 8 ed RETURN TO CALLING ROUTINE . 1576 CO OL 1616 1431 BNE €RR16 
1364 * i © 1432 * 
1365 6---— - —------ 157A CO 67 0000 1433 ROROOX 8 o-¢ 
1366 & READ HOME ADDRESS AND RECORD ZERO COUNT EVEN | 1434 * 
1367 @ i) 1435 
16ER 34 06 1538 1368 RDHAE ST RDHAOX?3, ARR SAVE RETURN ADDRESS | 1436 READ COUNT-KEY-DATA 
| 1369 © 1437 * 
ASEE OC 04 2605 2159 1370 HVC CRD(5) »MRDHAE SETUP "CMD* FIELD FOR PRINTOUT | €3 157 34 08 1570 1438 RDCKD ST  ROROOX+3.ARR 
} 18 | 1439 * 
14F4 BC 01 06 1372 MVI 6p XR2),X*01° SETUP © AND R oO 1582 OC 04 2605 2168 1440 MVC = CMD( 53 »MROCKD 
14F7 BC 01 07 1373 MVE |—-REOXRZDOX*01° BYTES FOR SIO COMMAND i & 144) @ 
| 1374 * | 1588 BC 01 06 1442 MVI QU XR2)eX*O1" 
14FA £2 87 10 1375 ’ ROHADA GO TO EXECUTE CONNAND | 1588 8C 02 07 1443 MVE @U yo XR2)9X*02¢ 
1376 © € 1444 * 
4377 e-————--——- - 158E 6C 03 14 2528 1445 NVC «OL 1.4) XR2) SNULLS 
1378 ¢ READ HOME ADDRESS AND RECGRD ZERO COUNT ODD eae 1446 © 
| 1379 * | '€> 1593 35-03 1570 1447 L ROROOX+3 »XR1 
14FD 34 08 1538 “seo ROHAQ ST RDHAOX+3,ARR SAVE RETURN ADDRESS 1597 9C 00 11 00 1448 MVC «—- RRC 1) XR20900, XRD) 
. ial ¢ 1449 © 
1501 OC 04 2605 215E 1382 MVC CHDC 5) »MROHAO SETUP *CND® FIELD FOR PRINTOUT €3} 1598 CO 87 187A 1450 8 XEQ 
1383 1451 ® 
1507 8C 01 06 1384 MVI QU) XR2D.X*O1° SETUP Q AND & 159F 8C 02 24 263A 1452 MVC DLC. 3. XRZ} -RODCF +S 
150A 8C 09 07 1385 MVI—-ROeXR22,X*09" BYTES FOR SIO COMMAND G 1453 * 
1386 * | 1544 OF 01 157D 252F 1454 ALC  RDROOX€3(2)2P1 
150D 8C 09 15 2526 1387 RDHA MVC «NN 10,XR2) eNULLS _ CLEAR DDCF AREA 1455 * 
| 1368 ¢ €> ss. 15aa Co 67 1556 1456. 8 ROROOA 
1$12 CO 87 287A 1389 8 XEQ GO TO EXECUTE COMMAND 1457 * 
1390 * 7 1458 —-------— 
1516 2D 03 2636 OB 1391 CLO RODE F 6414) PAL XR2} GO TO ERROR EXIT IF — .: & 1459 + 
1518 CO O02 1830 - 1392 ONE ERRIA HA READ IS INCORRECT | 1460 * 
| 1393 | _ | 1SAE 34 08 157D 1461 RDDGN ST  RDRODX*2, ARR 
151F 35 01 2623 1396 | L -- 1DOOR, XR SAVE RESIDUAL ODOF © 1462 * 
1523 9C 08 14 08. (1355 MVC —- OLA 99 XR27 9G 0 oXR1?I FOR USE IM NEXT ODCF 1582 OC 0% 2605 2160 1463 MVC  CHD(.5) sHRODGN 
DATE  23AUG75  OSNOV7S 19MARTE PROG ID 12-2 DATE  23AUG7S5 OSNOV75  19MAR76 
EC NO. 827785 827627 827872 PAGE 15 | EC NO. 827785 827827 827872 











rte en a cee et ree Roesch eer eee 



























o 


ce nen ee het nn RRR RINE rg seats 
: Ene mR A — renner 
: ‘ : os ienatatainstmeattnen tts tea iamtentaememed vane eae meiatamenmmmmmenas 











a a 


~ 
ss 


be 


4247603 
15A 


PART NO. 
PAGE 


CALCULATE EXPECTED 
RESIDUAL ODDR 


GO TO ERROR END IF 
RESIDUAL DDDR IS INCORRECT 


RETURN TO CALLING ROUTINE 


en A SI I AS SD AAD AL A AD AY ED SA SE I SP ITO ETS I 


READ RECGRO ZERO KEY-ODATA OOD 





SAVE RETURN ADDRESS 
SETUP "CHD® FIELD FOR PRINTOUT 


SETUP Q AND R 
BYTES FOR Si0 COMMAND 


CLEAR OOCF RR FIELC 
CLEAR DOCF NN FIELD 


GO TO EXECUTE COMMAND 


GO TO ERROR END IF 
RESIDUAL DOCF IS INCORRECT 


CLEAR RR FIELD 
CALCULATE 


EXPECTED 
RESIDUAL DOOR 


60 TO ERROR END IF 
RESIDUAL ODDR 1S INCORRECT 


RETURN TO CALLING ROUTINE 


SAVE RETURN ADORESS 
SETUP *CMD*? FIELD FOR PRIMTOUT 


SETUP Q AND R 
BYTES FOR S10 COMMAND 


CLEAR Ki» OL, ANO AN FIELCS 


MOVE RECORD 
NUMBER TO DOCF 


GO TO EXECUTE COMMAND 

SAVE KEY AND DATA LENGTHS READ 
SETUP RETURN ADDRESS 

GO TO CHECK RESIDUAL VALUES 


A ED PT ATT LLP LE IOI IED I ETS 


READ COUNT-KEY—-DATA OIAGNOSTIC 


SAVE RETURN ADDRESS 
SETUP *CMD* FIELD FOR PREMTOUT 


©12-2° 
154A. 


PROG 10 
PAGE 





Cl22 





ERR LOC OBJECT CODE ADDR STMT 
1464 * 
1588 BC 01 06 1465 
1588 BC 04 07 1466 
1467 ¢ 
15B8E BC OO 15 1468 
1469 * 
15C1 35 01 1570 1470 
15C5 SC 00 11 00 1471 
1472 * 
15C9 CO 87 187A 1473 
1474 © 
L5CD OF O1 1570 252F 1475 
1476 * 
1503 CO 87 1556 1477 
1478 ¢ 
1479 
1480 
1481 * 
15D? 34 08 1639 1482 ROKD 
1483 * 
15DB OC 04 2605 2172 1484 
1485 # 
15E1 BC 01 06 1486 
15E4 BC 00 O07 1487 
1488 * 
15E7 35 O1 1639 1489 RDKDA 
15€B 9C 00 11 GO 1490 
1SEF 9C 00 15 O1 1491 
1492 * 
15F3 CO BF 187A 1493 
1494 © 
15F7 AE 00 11 15 1495 
1496 ® 
LSFG 3D FF 2638 1497 
L5FF CO OL 1836 1498 
1603 8D 08 14 2634 1499 
1608 CO O1 1830 1500 
1501 © 
160C 8C OO li 1502 
1503 @ 
160F 35 02 2623 1504 
1613 86 O1 12 1505 RDKOB 
1616 86 O01 14 1506 
1619 8E 00 15 2549 1507 
LOLE CO 02 1613 1508 
1509 # 
1622 34 01 2641 1510 
1626 OD O21 2641 2627 1511 
162C CO O1 1816 1512 
: 1513 © 
1630 GE O01 1639 2531 1514 
1515 © 
1636 CO 87 O0C0 1516 RDKOX 
1517 « 
1518 
1519 @ 
1520 * 
163A 34 O08 1687 1521 RDVKD 
1522 # 
163€ OC 04 2605 2177 1523 
1524 * 
1644 8C 01 06 3525 
21667 BC 93 O07 1526 
1627 ®@ 
166A 8C G2 14 2528 1528 
1829 « 
264F 35 01 1687 1530 
1653 SC 00 12 00 1531 
DATE 23auCTS . GSnOVTS. LIMARTE 
€C NO. 827785 


— coke ® te sot ae Deut 
@9ee ee ee 2 bie ane, oe, oe ‘ i ee. | ~~ a 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


3340 FUNCTION TESTS - MOD 12 


SOURCE STATEMENT 


Qe weer ee 


Goren ae a TT OO LT Te IS 


READ VERIFY KEY-DATA 


827872 


MvVI 
MVI 


MVI 


t 
MVC 


8 
ALC 
8 


st 

Myc 
MVE 
MVI 


aVC 
MVC 


ALC 
cul 
BNE 
cic 
BNE 


RVI 


ALC 
BNM 
st 

cic 
BNE 
ALC 


8 


St 
K¥C 


MVE 
avi 


MvCc 


MYC 





Qt eXR2)-X*O1* 
Ree XRZ) 2 X°04" 


NN( »XR29-0 


RDROOX43- XP1 
RRCL,XRZ2},06 eXRL) 


.XEQ 


RDROOX43(2},P1 
ROROOA 


READ KEY-OATA 
ROKOX43, ARR 
CHO( 5) eHROKD 


Q(,XR2),K*01" 
RE eXR2Z1 X*008 


RDOKOX43 »XRi 

RRC L,XR20 00, XR1? 
ANCL, XR23 020 e XRF 
KEQ 
RRE1LeXRZ} oNN( Se XR2Z) 
RODCF 49, X*FF * 
ERRiB 

DL(9_XR2) -RODCE+E 
ERR1B 

RRC ,XRZ3 49 

TIDDOR, XR 

KLE» KRZ9 oXR1 

OL» XR2} XR1 

ANC 16XR2) M1 
ROKOB 

WORKN, XR1 
WORKN(21 ,RDDDR 
ERR1L6 
RDKOX*3(252P2 


t—* 


ROVKOX¢3 2 ARR 
CHO(5) eMROVKD 


Qi oXR29-X*O1* 
Rly XR23-X*03" 


DL(3 -XR2} NULLS 


ROVKDXSS-ARL 
RRCLXR2} 20% - XRL} 














1 > 
PART NOs 4247603: | 
PAGE 6° & 
_, €122 
i ERR LOC 
€ 1687 
SETUP Q@ AND R 
BYTES FOR SIO COMMAND e 1658 
CLEAR NN FIELO 165F 
MOVE RECORD —€ 1663 
NUMBER TO DDCF 1667 
_ 1668 
GO TO EXECUTE COMMAND ae 1670 
SETUP RETURN ADDRESS ¢ 1674 
/€. 167A 
GO TO CHECK RESIDUAL VALUES 
wee 167E 
anevcnenen : . 
1684 
| 
SAVE RETURN ADDRESS & 
SETUP *CMD® FIELD FOR PRINTOUT - C 
(L688 
SETUP Q AND R | 
BYTES FOR SIG COMMAND C: 168C 
MOVE RECORD : “"  4e92 
NUMBER AND NN | 1895 
VALUE YO ODCF 1&3 
i 1698 
GO TO EXECUTE COMMAND € 
1 €2 169€ 
CALCULATE EXPECTED RESIDUAL RR 
ERROR END | 
1f RESIDUAL 16A0 
DOCE FS INCORRECT ,.€ 
16A4 
CLEAR RR FIELD | 6 
eS GAA 
CALCULATE | 16aD 
EXPECTED 
RESIDUAL i & 1680 
DDDR VALUE 
16B4 
"L688 
C2 TO ERROR 1688 
END If RESIDUAL LOBE 
DDDR IS INCORRECT i\€ 
16C1 
SETUP RETURN ADDRESS S 16C5 
3 16C8 
RETURN TO CALLING ROUTINE 
16CC 
16D6 
SAVE RETURN ADDRESS - €) r60e 
SETUP *CMD* FIELD FOR PRINTOUT | © 16£0 
SETUP G AND R . 
BYTES FOR SIG COMMAND | e 
CLEAR KL AND DL FIELDS | L6ES 
MOVE RECORD €16e8 
RUMBER AND WN | 
| 16 
PROG ID 12-2. «DATE 
PAGE 16 EC NG. 
| 1S 


OBJECT CODE 


9¢ 00 15 O01 1532 MVC 
1533 ® 
CO 87 187A 1534 8 
1535 * 
AE OO 11 15 1536 ALC 
: 1537 * 
3D FF 2638 1538 Cuil 
Co 01 1830 1539 BNE 
BD 05 11 2637 1540 cLe 
co O01 18630 1541 BNE 
1542 * 
OO O1 2623 2627 31543 CLC 
CO OL 1816 1544 BNE 
1645 * 
OF O1 1687 2531 1546 ALC 
1547 © 
co 37 0000 1548 RDVKDX 8 
i 1549 * 
1550 
1551 * 
1552 *®. 
34 08 16E3 1553 ROLOG ST 
1554 * . 
OC 04 2605 217C 1555 vc 
1556 *® 
BC Of O06 1557 fvI 
ac 05 O07 1558 MVE 
“ 1559 * 
CO 87 iSta 1560 8 
1561 * 
co B87 16Ci 1562 8 
1563 * 
1564 Game 
1565 * 
1566 : 
34 O8 16€3 1567 ROSNS ST 
1568 * 
OC 04 2605 2181 1569 MVE 
1570 * 
ec 01 06 1571 - VI 
gC O7 07 1572 - V—I 
1573 * 
CO 87 187A 1574 8 
1575 © 
35 O1 2623 1876 L 
79 02 02 157%. TSF 
F2 90 03 1578 JF 
BA 80 00 1579 SBN 
1580 * 
35 O1 2623 1581 RDOSNSA L 
O02 01 18 1582 LA 
34 O21 2642 1583 ST 
1584 @ 
OD O1 2641 2627 1585 cic 
co O1 18616 1586 BNE 
1587 * 
GD 09 2631 2638 1588 e.c 
co 01 1830 1589 @NE 
1590 * 
co 87 0000 159% ROSNSXK 5 
1592 * 
1593 Bann 
1594 * 
1595 * 
34 08 1742 4596 WRHAE St 
1597 ® 
OC 0% 2605 2186 1598 4¥C 
1599 @ 
23AUGTS OSNGV75 ELYRARTS 
g27tes S2T&2T B278T2 


IBM MAINTENANCE DIAGNOSTIC PROGRAN 


3340 FUNCTION TESTS - MOD 12 


ADDR STMT SOURCE STATEMENT 


Gee a ce ee er en 


NN(1eXR20 910 eXRD) 
xEQ . 
RRC Le XRZ) eNNC oXRZ) 
RODCF+9.X* FF® 


ERR18 
RR16 eXR2) ,RODCF 45 


ERR18 


IDODR(2).RDOOR 
ERR16 


RDVKDX43(2) 9 P2 


G—& 


4247603 
16A 


PART NOe 
PAGE 


VALUE TO ODCF 
GO TO EXECUTE COMMAND 
CALCULATE EXPECTED RESIDUAL RR 
GO TO 
ERROR END 
IF RESTOUAL 
ODCF IS INCORRECT 


GO TO ERROR END IF 
RESIDUAL DDOR IS INCORRECT 


SETUP RETURN ADDRES 


RETURN TO CALLING ROUTINE 


READ AND RESET BUFFERED LOG 


ROSNSK+3 ARR 
CMD( 5? eMROLOG 


OC ,XR2),X*01° 
Reo XR2)2X*05° 


XEQ 
ROSNSA 


A AEE SE EP EY IE I 


SAVE RETURN ADDRESS 
SETUP "CMD FIELD FOR PRINTOUT 


SETUP Q AND 
BYTES FOR SIO COMMAND 


GO TO EXECUTE COMMAND 
GO TO CHECK RESIDUAL VALUES 


a eanmemmeenmanls 





FE SY LE I 


READ DIAGNOSTIC SENSE DATA 


ROSNSX43eARR 
CMD(5) eMROSNS | 


Qt .XR2) 2X01" 
Rl oXR2)eX*O7* 


XEQ 


IODDR, XR1 

20 eXR1L) BITE 
RDOSNSA 

DIND( .XR2) eCEDM 


TODOR »XR1 
24( ¢XR1L} eXR1 
WORKN » XR 1 


WORKNE 2) -RODDR 
ERRILE 


IDOCEN( 10) eRDDCEN 
ERR1E 


t~* 





AO aS SN le aD ANN SE OE EP 


SAVE RETURN ADDRESS 
SETUP *CMD® FIELD FOR PRINTOUT 


SETUP Q AND R 
BYTES FOR SIG COMMAND 


GO TQ EXECUTE COMMAND 


SET ENDICATOR 
IF SENSE DATA 
INDICATES THAT A CE 
DATA MODULE 1S MOUNTED 


CALCULATE 
EXPECTED 
RESIDUAL DDDR 


GO TO ERROR END IF 
RESIDUAL ODOR IS INCORRECT 


GO TO ERROR END IF 
RESIDUAL VOCE IS INCORRECT 


RETURN TO CALLING ROUTINE 


eo rer a EN EO OE Te 


WRITE HOME ADDRESS AND RECORD ZERO COUNT EVEN 


WRROOK+ 7 e ARR 


CMD( St 5 MHRHAE 


SAVE RETURN ADDRESS 
SETUP "CHD* FIELD FOR PRINTOUT 


Cl2-2". 
AOA 


PROG 10D 
PAGE 


~ 


” 


0' 000008 OS OOOOH OF OOOH OOOO OO OOO 8 
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SAY 
. 18M RAINTERANCE DIAGNOSTIC PROGRAM PART NO. 4267603 1eM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. = 4247603 
: . PAGE oe PAGE 17A 
ss | 
C122 3340 FUNCTION TESTS ~ MOD 22— , 122 3340 FUNCTION TESTS — MOD 12 
| : : 1 &- 
€RR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT i  €RR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
16EE BC 02 06 1600 MvI QL, XR25 4X9 02° SETUP Q AND R- L€ 1783 CO 87 0000 1666 WRCKDX 6 +-* RETURN TO CALLING ROUTINE 
16F1 6C O1 OF 1601 MVI —- RU XRZDX01° BYTES FOR S10 COMMAND 1669 * 
16f4 F2 87 10 1603 . J WRHAOA GO TO EXECUTE COMMAND ne. 1671 * WRITE COUNT COMPRESSED DATA 
G04 1672 @ 
1666 * WRITE HOME ADDRESS AND RECORD ZERO COUNT GDD a 1674 * . 
. 1607 + } ° 1788 0C 04 2605 219F 1675 MVC «CMD 0.53 »MWRCCD SETUP *CHD* FIELD FOR PRINTOUT 
16F7 34 08 1742 1608 WRHAO ST = WRROOX+3, ARR SAVE RETURN ADDRESS i 1676 * 
a 2609 * \ €* 1791 8C 02 06 1677 MVI QC XR2D9X°02* SETUP Q AND R 
16FB OC 04 2605 2190 us10 MVC - CHD( 5) sMWRHAO SETUP *CMD® FIELD FOR PRINTOUT | 1794 BC 08 07 1678 MVI Rl,XR2),X*08" BYTES FOR S10 COMMAND 
ica — 1679 * 
170% BC O2 06 16l2 MVI QC, XR209X°02° SETUP Q ANDO R /€*% 1797 CO BT 1753 1680 8 WRCKDA GO TO EXECUTE COMMAND 
| 1704 8C 09 07 ae é BVI - RO _XR2) 4X*09* BYTES FOR SIG COMMAND 1681 * 
) 1682 *----—— eee eee e eens memmnme me 
i 1707 8C 08 15 2528 2625 WRHAGA MVC  WNN(9,XR2),NULLS CLEAR ODCF AREA <3 1683 * WRITE REPEAT KEY-DATA 
‘ 170C AC 03 10 08 1616 MVC «HHA 4, XR2) PAL oXR2) MOVE PHYSICAL ADDRESS TO DOCF c 1686 * : 
Deer eer 3eaa * mee een MOVE RO KL & DL TO OOCF C 1798 34 08 17€1 1685 WRREP ST  —- WRREPX#3,ARR SAVE RETURN ADDRESS 
. | €> 1686 * 
NOON eters isan 8 : a GO TO EXECUTE COMMAND LT9F OC 04 2605 21A4 1687 MVC CMD(5) eMWRREP SETUP *CMD® FIELD FOR PRINTOUT 
1688 * 
4 221 Se -----—- €" —-17a5_ BC 02 06 1689 MVE Q0eXR209X*02° SETUP Q AND R 
; es , . 
rf te : WRITE RECORD ZERG KEY-DATA ODD | 17A8 BC 03 O07 1690 “MVE -ROeXR2Z)-X*03° BYTES FOR SIO COMMAND 
ou . 623 1691 * 
ba 1718 36 08 1742 1eze wRROO ST WRROOX+3,ARR SAVE RETURN ADDRESS | €  -17aB 35 01 17EL 1692 t WRREPX+3,XR1 MOVE RECORD oo. 
oe 17AF 9C 00 11 00 1693 MVOC -RROL9XR2) 400, xRD? NUMBER AND NPM 
i | LT1C OC 04 2605 2195 1626 : MVC «CMD. 5) »MWRROO SETUP *CMD* FIELD FOR PRINTOUT | 1783 9C 00 15 01 1694 MVC NG LeXR20910eXR1) VALUE TO ODCF . “= 
| 1 & 1695 * 
a 1725 BC 06 OF 1629 BYE RUGARZ) 2X06" SEEYTES FOR SIO COMMAND ol Seen cp ee eee Be sae ee ee ye hy : 
a | , | 1697 * oe 
Seale ie OE k630 * €: 1788 AE 00 11 15 1698 ALC =-ARI1, XR 
— oXR2) gNN(XR2) CALCULATE EXPECTED 
ie 1728 -CO.81 281A ree soo 2 xEQ GO TO EXECUTE COMMAND 17BF BC FF 15 1699 MVE | NNGSXRZD9X*FF* RESIDUAL AR os WN VALUES 0 
Py 272€ €D 08 14 263A 1633 CLC WLI. 9e XR2) -RDOCF+8 GO TO ERROR END IF aon 
fo | €2 17C2 8D 08 14 263A 
iy 1731 CO O01 1630 ee je BNE ERRIB RESIOUAL DOCF IS INCORRECT | © 177 CO oy 4050 . ae one ae oo sg aon ee 1S 1 INCORRECT 
: | ee | 1703 * . 
1735 OD 01 2623 2627 1636 CLC = IDDDRL2),,RODOR Go T i € 
\ , O ERRGR EMD IF 53  17C8 8C 00 11 1704 " aR 
| 1738 CO 01 1816 1637 3 BNE  ERRI6 RESIDUAL ODDR IS INCORRECT | G 1705 * ve Chane CLEAR: ae ETE 
a _ ATCE OD O1 2623 2627 1706 CLC IDDDR(2) sRDODR GO TO ERROR END IF 
| 173F CO 87 0000 1639 wRROOK 8 o2 RETURN TO CALLING ROUTINE ; &} 1704 Co 01 1816 “1707 . BNE ERRI6 RESIDUAL DDDR 1S INCORRECT 
it 1708 * Po 
: 2s | 
i ee Bs Soe cau nee DATA | 6 1706 OF 02 17EL 2531 709 ALC WRREPXO312)P2 SETUP RETURN ADDRESS 
i o4 1710 * * 
4 1643 * 
i 1743 34 08 1786 ages WREKD ST WRCKDX43,ARR SAVE RETURN ADDRESS | e TE a 1742 “ant : as ee aon ee 
1747 0C 04 2605 219A 164 | LID 3 
1646 7 MVC CHOC. 5) »MARTKD SETUP *CMD" FIELD FOR PRINTOUT | 1714 : WRITE KEY~DATA 
174D BC 02 C6 1648 mvs XR "02° | 
7 1750 6C 02 07 1649 MVI at sunz}ex*02" se oTes FOR $10 COMMAND | Sy 17Ez, 54: 081699 aye — ; a ere cr SAVE SE TURN SUDSE Ss 
nn . ; 18650 ¢ i 
i ; a 7&6 
| 1753 35 OL 1786, L651 WRCKOA L WRCKOXS3 «XR MOVE RECORD 1G nee Oe ae tae a. eee SETUP 'CHD* FIELD FOR PRINTOUT 
-, 1758 9C 00 15 01 1653 HVE WNCLOXRZD SLC GRRED WWALLE 10 ODCF eee og of oo, BE eee ans sce eae 
3 nasi sé i | : 1721 MVI =—- RU» XRZ}.2X°008 BYTES FOR SIO COMMAND 
4 " 17SF CO 87 187A 1655 © 1722 ¢ 
: 1656 © . = GO TO EXECUTE CORMAND 17F2 CO 87 15E7 1723 B ROKDA GO TO EXECUTE COMMAND 
1763 AE 00 11 15 1657 ALC «—- RAC L» XRZ) ~NNT,XR2? CA 3 $$$ $$$ 
LCULATE EXPECTED | 
| 1767 BC FF 15 1658 7 MVI NN XR22 9 X*FF* RESIDUAL RR AND NN VALUES 6 i728 * SCAN EQUAL 
_«AT6A BD OB 24 263A 1660 cLc . cet iv27 ¢ 
: a recens at eon aese cc BL 9 XK28 SROOCE SG €0 10. SRROR ENO ae pect oe | €: 17F6 34 08 1630 1728 SCANE ST SCANHX¢3,ARR SAVE RETURN ADDRESS 
cs 1662 . | : 
? . 17FA OC 0% 2605 21AE 1730 " CHD CANE 
tee es ot bie 2627 aes CLC TDDORI 2) ,-RDDOR GO TO ERROR END IF GQ ne VE CHDIS) »MS SETUP *CHD* FIELO FOR PRINTOUT 
are SNE ERRIC RESIDUAL ODOR IS INCORRECT 1800 8C 03 06 1732 AVE «= QU oe XR2ZN 9 XPS _ SETUP Q AND R 
se . 177D GE OL 1786 2532 1666 P ALC WRCKOX€3 (23 92 SETUP RETURN ADDRESS & 1803 < oo 07 a3 : «AVI - RUeKRZ7eX*00" BYTES FOR S10 COMMAND — 
. | ? 1806 CO 87 161A 1735 8 = SCANHA | GO TO EXECUTE CONMAND | 
DATE 23AUG7S OSNOVTS ROMARTS 1 & . 
cc MOl. aoives eoraes Lesmligd pace 10 ciz2 oat 2300675 OSNOVTS . 19MARTS PROG 1D (€12-2° 
=e é; - 82778 927827 €27872 PAGE 174 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247603 . 18M MAINTENANCE DIAGNOSTIC PROGRAM “PART NO. 4247603 
PAGE wy ke PAGE 18A 
C122 3340 FUNCTION TESTS - MOD 12 . | ©2122 3340 FUNCTION TESTS ~ MOD 12 
i. 
ERR LOC OBJECT CODE ADDR STMT SQURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT 
1736 * & 1796 RERERAEEEEEEESESEEESSSEESESERESESEESSRSSSERESSSSOSSSSESE SESE SS OTOSSESSS 
1737 *#-~--~------—- ewe ween neee eee -------—----------— | 1797 * = 
1738 * SCAN HIGH OR EQUAL : 1798 * COMMON 3340 COMMAND EXECUTION SUBROUTINE * 
1739 * | € 1799 * * 
180A 34 08 1830 1740 SCANH ST SCANHX43,ARR SAVE RETURN ADDRESS | 1800 SEReSREORHCERSEEREEESSSSEESERESESSSERESESTETSSSSESORESES SESE SSS SSESS SSS 
1741 * an 1801 * 
180E OC 04 2605 2183 1742 MVC = CMD 0.5) ¢ MSC ANS SETUP "CMD® FIELD FOR PRINTOUT | C 187A 34 08 19C9 1802 XEQ ST XEQX4#3- ARR SAVE RETURN ADDRESS 
1743 + 1803 * 
1814 BC 03 06 1744 MVI = QE9XR2P2X*03° SETUP Q AND R . 187E 2C 01 193A U7 1804 MVC S1042,R029XR2) MOVE @ AND R BYTES TO SIO 
1817 BC 02 07 1745 MVI  =- RU ge XRZVQX*O2* BYTES FOR S10 COMMAND { 1883 2€ 00 1939 02 1805 ALC SIO+l,ORVADR(1¢XR2? ADD ORIVE ADDRESS TO Q BYTE 
1746 * 1806 * 
181A 35 01 183D 1747 SCANHA L SCANHX#3,XR1 MOVE RECORD | 1888 2C 00 1931 02 1807 MVC —- TUORD #1021) ,DRVADR(AXR2) SETUP O BYTE IN TIO 
181€ 9C 00 11 00 1748 MVC =s- RRL 19XR2) 00, XRD? NUMBER AND NN |< 188D 2C 00 194F 02 1808 MVC TIOBSY#1(1),DRVADR (2 XR2) *nNOT RDY / UNIT CHECK* AND 
1822 9C 00 15 O1 1749 MVC =.NN(1L9XR2)910,XR1) VALUE TO DOCF | 1892 3A O1 194F 1809 SBN TIOBSY41,X*OL' *SEEK BUSY* INSTRUCTIONS 
1750 * tote 1810 * . 
1826 CO 87 187A 1751 8 XEQ GO TO EXECUTE COMMAND | t 1896 2C 09 2631 15 1811 MVC —s EDOC FN» NNC 109 XR2) SAVE INITIAL DOCF 
1752 * 1812 * 
182A OD O1 2623 2627 1753 CLC IDDDR(2),RDOOR GO TO ERROR END IF — 1898 35 01 2621 1813 tL 1ODCR»XRI MOVE DDCF 
1830 CO 01 1816 1754 BNE ERRLE RESIDUAL DDOR IS INCORRECT | €. 189F 6C 09 09 15 1814 MVC 9€10eXR1) sNNG eXR2? TO EXECUTION AREA 
1755 * 1815 *. 
1834 OE 01 183D 2531 1756 ALC SC&NHX43(2),P2 SETUP RETURN ADDRESS : os 18A3 OC SF 25F8 25F9 1816 MVC MSGN(80),MSGNel CLEAR PRINT MESSAGE AREA 
1757 * e 1817 * 
183A CO 87 0000 1758 SCANHX 8 *-+ RETURN TO CALLING ROUTINE | 18a9 OC 01 2625 2528 1818 MVC RDDCR(2)-NULLS CLEAR RESIOUAL ; 
1759 * | ‘, 18AF OC 01 2627 2528 1819 MYC RDDDR(23,NULLS DDCR AND ODDR AREAS 
LVQO Bm rn ----—- _--—----! € 1820 * : 
1761 * SCAN READ OR EQUAL i 1885 OC OT 2675 2528 182. MVC ODGSNS*7(8) ¢NULLS CLEAR READ SENSE AREA 
1762 * 1822 *# 
183E 34 08 1830 1763 SCNRE ST SCANHX+3 , ARR SAVE RETURN ADDRESS ! € 18B8 30 uO 25FC 1823 SNS SWS20 * AMOP * SENSE OATA SWS 
1764 * | 188F 3D 81 25F8 1824 CLI LINKID,X*S1® * LINK * AND GQ TO aMOoP IF 
1842 OC 04 2605 2168 1765 MVC = CMD(.59 -MSCNRE SETUP *CMD® FIELD FOR PRINTOUT — € 18C3 CO 81 1£30 1825 BE ANOPLK * Sit & SuS 1 & 2 CONTAIN *81° 
RGM oretsioae, Be 1766 * \ : 1826 * : 44 
1848 BC 03 06 1767 MVI «= QU XRZ-X*03° SETUP Q AND R | 18C7 Cl C4 1D56 "1827 TIO DASDI2X*C4! GO TO INTERRUPT SUBR IF PENDING 
1848 8C OC 07 1768 MMVI «=- RU eXRZDX* OC BYTES FOR SIO COMMAND Le ee 1828 * 
1769 * : €: 48CB 38 20 25FA 1829 TON IND, INTERR GO TO ERROR PROCESSING 
184E CO 87 181A 1770 8 ‘SCANHA GO TG EXECUTE COMMAND 18CF CO 10 1863 1830 eT ERRXX. . IF UNEXPECTED 3340 INTERRUPT 
1771 ©® ne 1831 * 
1773 *# SCAN READ OR HIGH OR EQUAL | 1833 * . 
1774 * i 18D7 CO 87 10C9 1834 -  B SAVast GO TO SAVE RESTART ADOR 
1852 34 08 183D 1775 SCNRH ST SCANHX43 2 ARR SAVE RETURN ADDRESS ; €£ 1808 31 C6 2621 - 1835 LIO L110 100CR,x'C6* LOAD DDCE ADDRESS IN ODCR 
177 *# i 180F CO 87 LE22 1836. - 8 RSTOR GO TO RESTORE LOCATION 0 
1856 OC 04 2605 21480 a777 mvc = CMD 1.59» MSCNRH SETUP *CMD' FIELO FOR PRINTOUT |, 1837 * 
oa 1778 * € 18€3 38 80 25FA 1838 TBN INDsHUNG | ERROR END IF 
185C BC 03 06 1779 MVE = QU eXRZ) 4X03" SETUP Q AND R | 18E7 F2 10 EO 1839 JT €RROO LIO HANGS IN REJECTION LOOP 
285F BC OD 07 1780 MVI «- RE eg XRZP 9 X*0D8 BYTES FOR SIO COMMAND res 1840 * 
1781 * | € 18€a co 87 10C9 1841 8 SAVRST GO TO SAVE RESTART ADOR 
2862 CO 87 181A 1782 8 SCANHA GO TO EXECUTE COMMAND i 18EE 31 C4 2623 1842 LIOo «=: LOPOR.» X*C4* LGAD ODDF ADDRESS IN DOOR 
1783 * | .., L8F2 CO 87 LEZ2 1843 B RSTOR GO TO RESTORE LOCATION 0 
1784 %---- we ee en rrr woownne=| €3 1844 * 
1785 * TRACK ORIENTATION DELAY SUBROUTINE 18F6 38 80 25FA 1845 TBN IND,HUNG ERROR END IF 
1786 * as 16FA F2 10 CD 1846 JT ERROO LIO HANGS IN REJECTION LOOP 
1866 34 08 1879 1787 GRIENT ST ORINTX43eARR SAVE RETURN ADDRESS i €: 1847 * 
1788 * 18FD 30 C6 2625 1848 SNS RDDOCRX*C6* SENSE ODODCR 
186A C2 01 FDOO 1789 LA X*FDOO® »XR1 DELAY Pe 1901 30 C& 2627 1849. SNS ROBDReX*C4* SENSE DDOR 
136E& 36 01 252F 1790 A PleXR1 APPROXIMATELY { €: 1850 * 
2872 CO Ol 186E 1791 BNL = ¥—4& 11 MILLISECONDS : 1905 0D 01 2621 2625 1651 CLC IDSDCRE2),RDOCR ERROR END IF 
1792 * 1 om 1908 F2 01 D4 1852 JNE  ERROZ ODCR INCORRECT 
1876 CO 87 0000 1793 GRINTX 8B +~* RETURN TO CALLING ROUTINE ' c 1853 * 
1794 * LOOE 0D 01 2623 2627 1854 CLC I1DDO0R12} ,RODOR ERROR END IF 
yao é 1914 CO 01 19£8 1855 BNE  ERROZ ; POOR INCORRECT 
ee 1856 * : 
1918 Ba 04 06 1857 TEN Q{.XR29-81TS BRANCH IF 
| € 1918 F2 10 12 1858 JT TLORDY READ IPL COMMAND 
a - 1859 * 
AS1E 3A 04 25FA 1860 SBN sD, OPENT SET OP END EXPECTED INDICATOR 
1861 * = 
& = 1922 BD 00 06 1862 CLI «QF oXRZ 20 BRAMCH TF NOT 
1925 F2 01 08 1863 _JNE © TIOROY RECAL OR SEEK COMMAND 
i 1 C eae hs 
DATE 23AaUGT5 OSNOVTS | 19RART6 . PROG 1D CL2-2; DATE 23AUGTS OSNOV7S —§ LOMART6E PROG ID ae 
EC NO. 827785 827827 827872 - PAGE 18 | EC NO. 827785 827827 827872. PAGE ; 
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| = ; 0. 4247603 
. PART NO. 
IBM MAINTENANCE DIAGNOSTIC PROGRAM pany NO. 4247603): 18M MAINTENANCE DIAGNOSTIC PROGRAM . PAGE 19A 
C122 3340 FUNCTION TESTS - MGD 12 |  €122 3340 FUNCTION TESTS - MOO 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT | * ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT . 
| 1864 * | C: : 1926 FESREREOREESEASEERSESESSESESESDTSSSSSSSSSSSESOS STEELS ESSE OSLO OSES SSS OSS 
P INDICATOR, _ j 1927 * 
2 laze 3a 02 25FA ines Sau? 71ND. SKEND SET SECK COMPLETE EXP INDICATOR! e 1928 © ERROR ENDING CONDITIONS * 
L667 © 3 SSECESCSETSKAOSSES SSIS SSH SSEES 
1930 C1 00 1A18 1868 TIORDY TiO ERROS,*-* ERROR END IF ORIVE NOT READY ts ES Prneeetyetee he yee ero se 
1869 # 
: REJECTION LOOP 
1934 CO 87 10C9 1870 8 SAVRST GO TO SAVE RESTART ADDR | Cc 1932 * LIO HUNG IN 
—*,*~— 1933 * 
t ieae G oT Teg lel2 7 popes 7 co to grcvade wucavion 0 19CA OC 1E 25CD 223A 1934 ERROO MVC MSGA431(31),EMO4N SETUP ERROR MESSAGE 
an 1873 * 1900 OC 07 2586 21CB 1935 MVC MSGR ESENSENOON 
‘ 193F 38 80 25FA 1874 TBN INDsHUNG ERROR END IF SIO \ 1906 F2 87 89 1936 J ERROO 
at 1943 F2 10 C3 1875 JT ERROS HUNG IN REJECTION LOOP ! Cc: et Be ake 
; 1876 # . . oes Seo ee 
PRIOR TO COMMAND EXECUTION 
1946 C1 C2 194E 1877 TIO =TIOBSY,x*C2* ERROR ENO IF | 1939 * ATTACHMENT BUSY 
1940 * 
peters iets * : aoe aac aaa as | € 1909 OC 26 2505 21F2 1941 ERROL MVC MSGA+39(39) -EROLN SETUP ERROR MESSAGE 
194E Cl 00 195C 4880 TIOBSY TIO XEQO1,*#-* BRANCH IF SEEK BUSY | 19DF F2 87 80 oe ‘ J ERROOB 
1881 * 
8 TBN IND,SKENOD ERROR END IF | € 1946 Bama a nnn a 
“ ieee ra ne ae tees JT ERROT SEEK IN PROGRESS | © oe +. DOCR FAILED TO LOAD CORRECTLY 
1884 * 6% 
- -:3959 F2 87 LL 1885 J XEQ02 | €- 3962 OC 1F 25CE 2212 1947 ERRO2 MVC MSGA432632)sEMOZN SETUP ERROR MESSAGE 
1886 * i 19E8 F2 BT OC 1948 : J ERROZA 
195C 38 02 25FA 1887 XEQO1 TBN INO,SKEND SKIP IF } : 1949 * 
1960 F2 10 0A 1888 JT XEQO2 SEEK IN PROGRESS | & Nae — ae ie - ae 
1889 * 
1963 OC 00 196A 194F 1890 MVC = ©4701) s TIOBSY41 ERROR END IF ~ 1952 * ’ 
1969 Ci 00 1434 1891 TIO ERROS »#-* STILL SEEK BUSY | Cc: zac8 nae y eee gele 12) ERRO3 eve sens get scree nore SETUP ERROR MESSAGE 
1892 * | ’ 
4 893 XEQ02 MV WORKN(3),TIM3S INITIALIZE TIMER sy 1955 * 
Be ee reer ieee ri : | €3  19F7 F3 ce 02 1956 ERROZ3A SIO X*#02% eX*C4* DISABLE 3340 INTERRUPTS - 
= 1973 O£ O02 2641 252F 1895 XEQ04 ALC WORKN(3),P1 INCREMENT TIMER | 19FA 30 C5 2630 1957 SNS  SNSeX*C5* SENSE ATTACHMENT STATUS Se et ee eo 
1979 CO AO 1A54 1896 BOL ERROD ERROR END IF ATTACHMENT ic 1958 * 
1970 Ci C2 1973 1897 TIO =«XEQ04,x'C2* BUSY FAILS TO GU OFF | €. rs = on ooee ei i eee saree ccs 
1898 * ; 
1981 30 C6 2625 1899 SNS RDODCR»X*C6* SENSE ODCR ; 1961 * 
1985 30 C4& 2627 1900 SNS  RDDDR,X*C4! SENSE DODR | > 1A05 CO 87 1372 uote 7 8 RETRY GO TO ATTEMPT ERROR RECOVERY , 
1989 OF 02 2641 252F 1902 XEQ03 ALC WORKN(3),P1 ERROR END IF EXPECTED | LD hg mn a I 
198F CO AO 1A05 1903 BGL ERR1O INTERRUPTS FAIL TO OCCUR |  ) 1965 ® SIO HUNG IN REJECTION LOOP 
1904 * 1966 * 
1993 C1 C4 1056 1905 TIO DASDI,X*C4* GO TO INTERRUPT SUBR IF PENDING; _. 1A09 OC 4F 25F8 25F9 1967 ERRO& MVC MSGN{80),4SGN42 CLEAR MESSAGE AREA 
1906 ¢ : €2 AQF OC 1E 25CD 223A 1968 MVC MSGA31031) .EMO4N SETUP ERROR MESSAGE 
1997 39 06 25FA 1907 TBF IND,OPEND+SKEND BRANCH IF 1A15 F2 87 42 1969 J ERROQA 
1998 CO 90 1989 1908 BF XEQO3 INTERRUPT STILL EXPECTED | ec 970 * 
199F 38 20 25FA 1910 TBN  INO,INTERR 87ANCH IF ERROR | 1972 * UNIT CHECK GR NOT READY PRIGR TO SIG 
19a3 CO 10 1863 1911 BT ERRXX DETECTED IN INTERRUPT RTN ii es 1973 * 
1912 * 1 1A18 OC 2D 250C 2268 1974 ERROS MVC MSGA446146) sEMOSN SETUP ERROR MESSAGE 
19A7 35 01 2621 1913 L IDDCR,XARI SAVE | 1A1LE CO 87 1863 1975 8 ERRXX 
19AaB 1C 09 2638 09 1914 MVC =- RDOC FN, 94102XR1) RESIDUAL DOCF | © nate * 
1980 OD O1 2621 2625 1916 CLC {DDCR(2),RD0CR GO TO ERROR END IF 1978 * ATTACHMENT DID NOT GO BUSY AFTER SIO 
1986 CO Ol 1420. 1917 BNE  ERRIT RESIDUAL DDOCR IS INCORRECT | 1979 © 
1918 * iC 1A22 OC 29 2508 22s2 1980 ERROS MVC = MSGA#420422 ZEMOON SETUP ERROR MESSAGE 
19BA 30 00 25FC 1919 SNS  SWS,0 # AMOP @ SENSE DATA SwS | 1A28 F2 87 OF 1981 J ERROSA 
LOBE 3D 82 25FB 1920 CLI LINKID,x*82" * LINK © AND GO TO AMOP IF 1982 * 
19C2 CO 81 1£30 192k BE AMOPLK * *82* * SWS 1 & 2 CONTAIN *82°* e 1983 %---— ed 
1922 * 1984 * SEEK COMMAND DID WOT SET SEEK BUSY 
19C6 CO 87 0000 1923 XEQX 8 +-* RETURN TO CALLING ROUTINE 3 1985 * 
1924 * ( 1AZB OC 28 2507 2268 1986 ERROT MVC = MSGA41 141) ,EMCTN SETUP ERROR NESSAGE 
1A31 F2 87 06 1987 J ERROBA 
| 1988 * 
| 1990 ¢ SEEK BUSY WITH NO SEEK IN PROGRESS 
1991 * 
€- 1436 OC 2C 2508 22€8 1992 ERROSB MVC MSGA245(45),EMOEN SETUP ERROR MESSAGE a 
1993 @ 
¢ 
DATE 23aUGT5 OSNOVTS LOMAR76 PROG 1D C12-2: DATE 23AUG7T5S O5NOV75 19MART6 PROG 10 C12-2 
EC NO. 827785 627827 827872 PAGE 19 | eo MO. 827785 827827 827872 PAGE 194 
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ERR LOC OBJECT CODE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247603 
PAGE 20 
C122 3340 FUNCTION TESTS - MOD 12 , €122 
&. 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1LA3A OC O1 2661 2528 1996 ERROBA MVC WORKN{2),NULLS INITIALIZE TIMER COUNT €: 
1995 * 
1a%0 39 06 25FA 1996 ERROSB = TBF IND, OPEND*SKEND LOOP UNTIL a 
1444 F2 10 OA 1997 JT ERROSC COUNTER OVERFLOWS 1 €> 
LAS? CE 01 2641 252F 1998 ALC  WORKN(2),?P1 OR ALL EXPECTED LADS 
1A6D CO 20 1a40 1999 BNCL ERROSB INTERRUPTS HAVE OCCURRED 
200C * LADS 
1A51 F2 87 06 . 2001 ERROSBC J ERROSA 1aDD 
2002 * 
2003 *-------——----— -—------ - enn nnn nnn LAEO 
2004 * ATTACHMENT BUSY FAILED TO GO OFF 
2005 * ; a 1AE6 
1A54 OC 28 25D7 2311 2006 ERROD MVC - MSGA#41041) ,EMOON SETUP ERROR MESSAGE é 
2007 * : 
1ASA 30 C6 2625 2008 ERROSA SNS RDOCR+X*C6* SENSE DDCR 
LASE 30 C4 2627 2009 SNS  RDDDR.X*C4* SENSE DDDR € 
2010 * = 1LAE9 
1A62 30 C5 2630 2011 ERROOB SNS SNS»X*C5° SENSE ADAPTER STATUS a LAEF 
2012 * . €: 
1A66 38 01 2630 2013 TaN  SNSBIT? BRANCH IF 
1AGA CO 10 1A7C 2014 et ERROC ADAPTER CHECK i 
2015 * 1& 
1AGE CO B87 1372 2016 B RETRY GO TO ATTEMPT RECOVERY LAF2 
2017 * 2 LAFB 
2018 S oe oe he! 
2019 * DRIVE X UNIT CHECK OR NO-OP STATUS 
2020 * ; 
1AT2 OC 1 25CD 2330 2021 ERROA MVC MSGA431131)2EMOAN SETUP ERROR MESSAGE i & 
1a78 CO 87 1372 2022 8 RETRY GO TO ATTEMPT RECOVERY 1AFB 
2023 * 1B01 
2024 9 ag 8 0) iat Sea & 
2025 * ADAPTER. CHECK 
2026 * : \ 
LATC OC 4F 25F8 25F9 2027 ERROC MVC SGN460)-MSGN+1 CLEAR MESSAGE AREA | €& 
1A82 OC 11 25CO0 2342 2028 MYC SGA¢18118) ,EMOCN SETUP ERROR MESSAGE | 1804 
2029 * ; 1BOA 
1AGB OC 01 2641 263D 2030 MVC - WORKN(22,SNS SAVE SENSE BYTES AND \ © 
1ASE F2 87 20 2031 J ERROFA GD TO BUILD FMT 3 SENSE DATA | 
2032 * i 
2033 | €& 
2034 * UNEXPECTED INTERRUPT be 1800 
2035 * ' 1813 
1a91 OC 18 25C7 2358 2036 ERROD MVC  MSGA*¢25(25) -EMODN SETUP ERROR MESSAGE { G 
LAOT CO 87 1372 2037 8 RETRY GO TO ATTEMPT RECOVERY 
=a | 
aa ee -----—-! © 
2040 * ADAPTER SENSE BYTES DO NOT INDICATE CAUSE OF INTERRUPT | 1B16 
2041 * ' 1B81C 
1A98 OC 2A 2509 2386 2042 ERROE MYC | MSGA4+43(43) »EMOEN SETUP ERROR MESSAGE | & 
LAA1 CO 87 1372 2043 8 RETRY GO TO ATTEMPT RECOVERY i 
2044 * { 
2045 Ree crn ee mn ern moma aa eer ere re cern a en ae an nN ee ree mE Cc 4 
2046 * ADAPTER CHECK ON READ DIAGNOSTIC SENSE COMMAND cas 1820 
2047 * inae 1826 
1AAS OC SF 25F8 25F9 2048 ERROF MVC - MSGN{(80) »MSGNt) CLEAR MESSAGE AREA i €: psec 
1a&B OC 3F 25€E 23C6 = HVC MS GA464 (64) sEMOFN SETUP ERROR MESSAGE 
» & { 
1A&B1i 3C 00 2685 2051 ERROFA MMVI OGSNS*+23,0 CLEAR READ & 
LABS OC 16 2684 2685 2052 MVG -d»DGSNS 422123) «DGSNS+23 DIAG SENSE DATA AREA \ 
2053 * ' 1830 
LAUB OC Ol 266F 2641 2054 MVC —-d DGSNS#202) sWORKN BUILD €: 1836 
1aC1 31 C7 2593 2055 LIO  SNS23,x*CT® FORMAT 3 baie 183C 
14S 30 C7 2671 2056 SNS DGSNS#3,X*CT* DIAGNOSTIC . 
1aC9 3C 30 2675 2057 MVI  DGSNS*7,X* 30° SENSE DATA a 
2058. * 
4ACD 34 01 25FA 2059 _ §8N INO,SNSAVL «SET SENSE DATA AVAILABLE inp | 
2 a : | Es 1840 
1801 CO 87 1372 2061 8. RETRY GO TO ATTEMPT RECOVERY 1846 
DATE. - 23AUGTS «=—s-— «ss GS NOTTS. LOMARTE oe 5 pros 10 212-2: € DATE 
£C NO. 827785 | 827827 «= B2TSIZ PS - PaGE - 20 | _..€C NO. 
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04 
90 


17 
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25DA 
68 


2504 
SF 


2508 
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25CA 
1372 
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2587 
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25CA 
258T 
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SOURCE STATEMENT 
2062 * 
2063 Se a nn ee a ern conan cen enarseee ate ae eee er ee I OA 
2064 * EXPECTED OP END INTERRUPT DID not occur 
2065 * 
2066 ERR1LO Ti0 ERR12,X*C4* BRANCH IF INTERRUPT PENDING 
2067 * 
2068 TBN IND, OPEND BRANCH IF NO OP END 
2069 JF ERR11 INTERRUPT GUTS TANOING 
2070 * 
2071 MvC MSGA424(24) eEMLON SETUP ERROR MESSAGE 
2072 * 
2073 J ERRXXK 
2074 * 
2075 * co re ner ra ee a peer ee 
2076 * EXPECTED SEEK COMPLETE INTERRUPT DID wot oCccuR 
2077 * ‘ 
2078 ERRI1L “vc MSGAC31(31) sEM1LIN SETUP ERROR MESSAGE 
2079 J ERRXX 
2080 * 
2082 * INTERRUPT PENDING?» BUT INTERRUPT DID NOT OCCUR 
2083 * 
2084 ERR12Z MVC MSGA444(44) sEMLZN SETUP ERROR MESSAGE 
2085 J ERRXX 
2086 * 
2088 * EXPECTED SCAN EQUAL DID NOT OCCUR 
2089 * 
2090 ERRI3 MvC MSGA436(38) 2EM13N SETUP ERROR MESSAGE 
2091 J ERRXX 
2092 * . 
2094 * EXPECTED SCAN HIT DID NOT OCCUR , 
2095 * ‘ , 
2096 ERR14 MVC MSGAt42( 42) sEMLON SETUP ERROR MESS AGE 
2097 J ERRXX 
2098 * 
2100 * UNEXPECTED SCAN HIT CONDITION 
2101 * : 
2102 ERRiS ve MSGA440(40) -EMISN SETUP ERROR MESSAGE 
2103 J ERRKK 
2104 # 
2106 * INCORRECT RESIDUAL DODR 
2107 * 
2108 ERRLE VC MSGA428(26)2EMLON SETUP ERROR MESSAGE 
2109 8 RETRY GO TO ATTEMPT RECOVERY 
2110 * 
2112 * INCORRECT RESIDUAL pocR 
2113 * ' 
2114 ERR1T MVC MSGA+28(28) ,EMION SETUP ERROR MESSAGE 
2115 wvc MSGA+S(9) sEMLTN 
2116 8 RETRY GO TO ATTEMPT RECOVERY 
2\117 * 
2119 * INCGRRECT RESIDUAL DOCF 
2120 * : 
2121 ERR1IS avC MSGA428(28) sEMLON SETUP ERROR MESSAGE 
2122 MVC MSGA+9(9) eEMLEN 
2123 ' 6 RETRY GO TO ATTEMPT RECOVERY 
2124 * 
2126 * INCORRECT RESIDUAL ODOF 
2127 * . 
2128 ERRIO  4VC MSGA+28128) -EMLON SETUP ERROR MESS AGE 
2129 " AVC MSGA+9(91) ,EM1LON 
LOMARTS proc 10 Ci2—2 . 
827872 PAGE 26a 
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2a 
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ERR LOC OBJECT CODE ADOR STMT 


OBJECT CODE ADDR STMT SOURCE 


1B4C CO 87 1372 


1850 
1856 


1859 
1B85F 


1863 


1866 
1B6A 


1B86D 
1873 


1876 


187A 
1B7E 


1882 
1888 


188C 
1891 
1895 


1898 
1890 


1B6Al 


18A5 
1BA9 
18Aa0 


1881 
1885 
1888 


1BB8F 
16C3 


18C7 
18¢8 
1BCE 


1802 
1806 


180A 
18E0 
1BE6 
1BEA 
1BEE 
16F2 


DATE 
eC NO. 


oc 19 
F2 87 


oc 13 
co 87 


F3 C4 


38 20 
F2 10 


od 01 
F2 01 


30 C5 


38 01 
co 10 


oc 00 
ci 00 
2c 00 


39 00 
F2 10 


2c 
3A 


00 
01 
C1 C2 
co 87 


31 C4 
co 87 


30 C4 
op 01 
co ol 


38 80 
co 10 


co 87 
F3 00 
co 87 


38 80 
co 10 


oc 02 
OE 02 
CO ao 
C1 C2 


30 C5 
36 O1 


23AUG7 
827785 


25C8 
OA 


25C2 
1372 


02 


25FA 
oo 


2630 
04 


263D 


2630 
1a7c 


1889 
1698 


1892 
263C 
66 


1ecc 
1BCC 


1A54 


10¢9 
2558 
1E22 


2641 
2641 
L9EB 


25FA 
19CA 


1p0¢€9 
o7 
1E22 


25FA 
1909 


2641 
2641 
1C3F 
1BE0 
2641 
2641 


5 


24F2 


2506 


2525 


1931 


04 


02 


2556 


2562 


252F 
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122 

ERR LOC 

.€.  1BF6 

c LBFA 

18FE 

: 1002 

* 1006 

€ 1C0C 

1€10 

€-  1¢14 

1617 

es 1018 

a iCle 

1¢23 

1027 
< 

1C28 

(€  10C2¢ 

1€33 

_-1€37 

1¢38 

€. 1036 

1043 

1047 
G 

1048 
© 
S 
@ 
@ 
@ 
® 
@ 
@ 
© 
©@ 
© 
G 
C 

DATE 


SOURCE STATEMENT 

2130 B RETRY GO TO ATTEMPT RECOVERY 

2131 * 
2132 tana rn won nnn nnn 
2133 * UNEXPECTED SCAN EQUAL CONDITION 

2134 * 

2135 ERR1A MVC  MSGA+26(26),EM1LAN SETUP ERROR MESSAGE 

2136 J ERRXX 

2137 * 

2138 #--------- ----------- ~-------------- = 
2139 * WRITE INHIBITED 

2140 * 

2141 ERR20 MVC MSGA+20(20),EM20N SETUP ERROR MESSAGE 

2142 B RETRY GO TO ATTEMPT RECOVERY 

2143 * 

2144 #-——------ ~--------------—--- ~-------- === 
2145 * COMPLETE ERROR PROCESSING 

z146 * 

2147 ERRXX SIO X*O02%,X*C4! DISABLE 3340 INTERRUPTS 

2148 * 

2149 TBN IND, INTERR BRANCH IF INTERRUPT 

2150 JT —_- ERRXXA DETECTED ERROR CONDITION 

2151 * 

2152 CLC SNS(2)-NULLS BRANCH IF SENSE BYTES | 
2153 JNE ERRXXA HAVE ALREADY BEEN RETRIEVED: 
2154 * ; 

2155 SNS  SNS,X*C5* SENSE ADAPTER STATUS 
2156 * 
2157 ERRXXA TBN SNSeBITT BRANCH IF 
2158 BT ERROC ADAPTER CHECK 
2159 * ; 
2160 MVC 0 - #4701) p TIORDY41 GO TO READ DIAGNOSTIC | 
2161 TIO ERRXX8.*-* SENSE DATA IF ORV WOT READY 
2162 * | 
2163 MVC - #46 ,UCKMSK(12XR2) BYPASS READ | 
2164 TBF SNS-1,9-* DIAGNOSTIC SENSE | 
2165 JT ERRXXD IF NO UNIT CHECK 

2166 * | 
2167 ERRXXB MVC SIOSNS#1,DRVADR(1,XR2} BUILD READ 
2168 SBN SIOSNS+1,61T7 DIAGNOSTIC SENSE COMMAND | 
2169 * 

2170 TIO ERROD,X*C2* BRANCH IF ATTACHMENT BUSY | 
2171 * 

2172 8 SAVRST GO TO STORE RESTART ADDR | 
2173 LIQ OGSNS@-X*C4* LOAD DDDR TO SENSE AREA ADDR | 
2174 8 RSTOR GO TO RESTORE LOCATION 0 | 
2175 * 

2176. SNS  WORKN,X*C4® ®YPASS READ 

2177 CLC WORKN(2),0GSNS@ DIAGNOSTIC SENSE | 
2178 BNE ERRO3 IF INCORRECT DDDR LOAD 

2179 © 

2180 TBN IND, HUNG BYPASS READ OLAGNOSTIC | 
2181 BT  ERROO SENSE IF LIO IS REJECTED 

2182 * | 
2183 B SAVRST GO TO STORE RESTART ADDR 

2184 SIOSNS SIO X*O7's#-* READ DIAGNOSTIC SENSE DATA | 
2185 8 RSTOR GO TO RESTORE LOCATION O | 
2186 # \ 
2187 TBN IND, HUNG BRANCH IF SIO | 
2188 BT  ERROL WAS REJECTED 

2189 * | 
2190 MVC «= WORKN(.39, TIM3S INITIALIZE TIMES. 
2191 * | 
2192 ERRXXF ALC WORKN(3)-P1 INCREMENT TIMER | 
2193 BGL ERRXXG ERROR END IF ATTACHMENT 

2194 TIO ERRYXF.X*C2° BUSY FAILED TO GO OFF ! 
2195 * 

2196 ERRXXC SNS  WORKN,X'C5* BRANCH IF READ 
2197 TEN WORKH,BIT7 DIAGNOSTIC SENSE 
1OMART6 : PROG ID 12-2! 
627672 PAGE 2. | 
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3A 


38 
co 


oc 


38 
co 


BD 
co 
30 
co 
3D 
co 


co 
39 
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co 
co 
3u 
38 
co 


co 


01 


20 
90 


4F 


10 
90 


02 
01 
80 
Ol 
02 
ol 


aT 
14 
OF 
10 
87 
cs 
01 
10 


87 


25FA 


25FA 
1372 


25F8 


25FA 
1C2F 


06 

1aT2 
266E 
1AT2 
266F 
1A72 


1659 
263D 
263C 
1A9B 
1A91 
2641 
2641 
1AA5 


1A54 
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2198 
2199 
2200 
2201 
2202 
2203 
220% 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 


25F9 


OSNOVTS 
827827 


+ 


* 
ERRXXO 
* 


x 


* 
* 
ERRXXE 
* 


* 
ERRXXG 


1GMAR 76 
827872 


STATEMENT 
BT —_—ERROF 
SBN _— IND SNSAVL 
TBN _ IND, INTERR 
BE séRETRY 
MVC - MSGN(.80) ¢MSGN41 
TBN _ IND »,ORVERR 
BF  —sCERRXXE 
CLI QU» XR2I4X*02° 
BNE ERROA 
CLI  OGSNS»X*80* 
BNE ERROA 
CLI DGSNS41,x*02° 
BNE ERROA 
8 ERR20 
TBF  SNS»BIT3#B1T5 
TBE SNS-1,X*OF® 
BT ERROE 
8 ERROD 
SNS  WORKN, X°C5°* 
TBN WORKN,BITT 
BT _— ERROF 
8 ERROD 


ENDED IN ADAPTER CHECK 
SET SENSE DATA AVAILABLE IND 


GO TO ATTEMPT RECOVERY IF 
NOT INTERRUPT DETECTED ERROR 


CLEAR MESSAGE PRINT AREA 


BRANCH IF 
MOT UNIT CHECK 


Go TO 
UNIT CHECK 
ERROR PROCESS ‘NG 
UNLESS WRITE COMMAND 
REJECT WITH WR INHIBIT 


WRITE INHIBITED ERROR 
BRANCH IF . 
NO INTERRUPT 
BITS IN ADAPTER STATUS: 
UNEXPECTED INTERRUPT ERROR 
BRANCH IF READ 
DIAGNOSTIC SENSE 
ENDED IN ADAPTOR CHECK 


ATTACHMENT BUSY FAILED TO 6O eee 


12-2" 
21A 


PROG ID 
PAGE 


IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247603 | IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247603 
PAGE 220 ; PAGE 22a 


Ci22 3340 FUNCTION TESTS — MOD 12 .- €122 3340 FUNCTION TESTS - MOD 12 





ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT €RR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
2231 £88498 EEFSEEEEEREEEEEEEEESSSEEEEES O00444945E0EEEESE SESE ECEEEEKEERESER Of i1cD8 02 1C08 2299 Oc IL1¢2¢ RESIDUAL DOCR 
2232 * * 1CO09 2625 1CDA 2300 OC AL 2(RODCR) TO MESSAGE AREA 
2223 * ERROR MESSAGE PRINT SUBROUTINE . |. 1CDB 2503 1COC 2301 nec AL2(MSG442) 
2234 * « £ 2302 * 
2235 SEEEESEEREEHEEEEEESESEEEEEESEEEEEREEEEREESEEEEESEEEEEOEEEEEEEEEEEEEERERE 1CO0 CO 87 OZ21E 2303 8 UNPACK UNPACK 
2236 * : poke 1CE1 02 1CEl 2304 oc ILit2¢ RESIDUAL ODOR 
1C4F 34 08 1055 2237 ERRPRT ST ERRPX4¢3,ARR SAVE RETURN ADDRESS a 1CE2 2627 1CE3 2305 oc AL2(RODOR) TO MESSAGE AREA 
2238 * 1CE4& 2508 1CES 2306 oc AL2(MSG447) 
1€53 OC 05 25aE 21€3 2239 MVC MSGA(6),EMXXN : COMPLETE FIRST PRINT LINE 2307 * 
2240 * €-  1CE6 CO 87 O21E 2308 8 UNPACK UNPACK 
1€59 35 O01 2621 2241 Lt IDOCR,XR1 RETRIEVE ‘ 1CEA 0A 1CEA 2309 oc Ik1*10* RESIOUAL DDOCF 
1€50 1C 09 2638 09 2242 MVC RDOCFN,9(10,XR1) RESIDUAL ODCF . 1CEB 2638 1cCEC 2310 DC AL2(RODCFEN) TO MESSAGE AREA 
2243 * so 1CED 25ED ICEE 2311 oc AL2(MSG+68) 
1C62 CO 87 OZ1A 2244 8 PRINT PRINT 2312 * 
1C66 C2 1C66 2245 oc XL1°C2°* FIRST LINE os ICEF CO 87 O21A 2313 8 PRINT PRINT 
1C67 50 1C6T 2246 oc IL1*80° OF ERROR MESSAGE g 1CF3 81 1CF3 2314 oc XL1*81° FOURTH LINE OF 
1C68 25F8 1C69 2247 ‘OC AL2(MSGN) ; 1CF4& 50 1CF& 2315 oc IL1*80° ERROR MESSAGE 
1C6a C101 1C6B 2248 oc AL2(HLTOL) i 1CF5 25F8 1CF6 2316 oc AL 2(MSGN) 
2249 © <— 2317 * 
1C6t CO 87 OZ1A 2250 ERRPOL 8 PRINT PRINT ; 1CF7 38 O1 25FA 2318 TON IND, SNSAVL BRANCH IF NO READ DIAGNOSTIC 
1C70 81 1€70 2251 oc XL1°81°* SECGND LINE a gfe 1CFB F2 90 54 _ =. 2319 ‘ JF ERRPX SENSE OATA IS AVAILABLE 
1C71 45 1C71 2252 oc AL1(MSGOBN-MSGO8e1) OF ERROR MESSAGE , €: 2320 * 
1C72 20A6 1€7%3 2253 oc AL2(MSGO8N)} : 1CFE OC 4F 25F8 25F9 2321 , AVC MSGN( 80) -MSGN41 CLEAR MESSAGE AREA 
2254 " 2322 * ; 
1C74 OC 4F 25F8 25F9 2255 MVC MSGN( 80). MSGNE1 CLEAR MESSAGE AREA 1004 CO 87 O21A 2323 B PRINT _ PRINT 
2256 * 1008 81 1008 2324 oc XL1*81° SENSE DATA 
1C7TA 2C 00 254A O1 2257 MvC MSG641,0RV01eXR2) MOVE DRV NUMBER TO ERROR MSG a 1D09 14 1009 2325 pc AL1(MSGO9N-MSG0941 3 HEADING LINE 
CTF 6C 64 2581 2605 2258 MVC MSG+8(5),CMD MOVE COMMAND NAME TO ERR MSG €: 1D0A 20C0 1DO0B 2326 oc AL 2(MSGO9ON) 
1€85 OC O06 2589 260C 2259 MVC MSG+16(7),CYL MOVE CYLINDER ADOR TO ERROR MSG 2327 * 
1C88 OC O04 258F 2611 2260 MvC MSG422(5},HD MOVE HEAD ADDRESS TO ERROR MSG . 1D0C CO 87 O2Z1A 2328 ) PRINT PRINT 
2261 * € ipo 81 1010 2329 OC = XL tt SENSE DATA - 
1091 CO 87 O21E 2262 8 UNPACK UNPACK 1D11 35 1D12 2330 OC AL1(4S60BN-MSG08+1) HEADING LINE ae ee ag wenger 
1095 03 1€95 2263 . oc 1L1*3* S10 COMMAND ~~ eg 1D12 2143 1013 2331 DC AL2(MSGOBN) 
1C96 193A 1C97T 2264 oc AL2(S1G¢2) TO MESSAGE AREA €&: 2332 * . : 
1C96 25C6 1€99 2265 / oc AL 2(4SG6¢29) 1D14 CO 87 O2Z1E 2333 —C 8 UNPACK. UNPACK 4 BYTES GE 
. 2266 * : : i iDls 04 1018 2334 Dc TLitaee READ OIAGNOSTIC SENSE 
1€9a CO 67 OZI1E 2267 8 UNPACK UNPACK - & .1D19 2671 1D1A 2335 DC AL2(DGSNS+3) DATA TO MESSAGE AREA 
ICSE 02 ICSE 2268 oc TLit2¢ ADAPTER SENSE BYTES j 1D18 2580 101C 2336 oc AL 2(MS6+7) . ; 
1C9F 2630 ICAO 2269 oc AL2(SHS)} TO MESSAGE AREA es 2337 * : 
1CAl 25C¢8 BCA2 2270 oc AL2(NSG6434) : €* 1010 CO 87 021€ .2338 a :) UNPACK UNPACK 4 BYTES OF 
2271 «* : 1D21 04 1D21 2339 - oc IL1*40 READ OIAGNOSTIC. SENSE 
1CA3 3C C9 25CE 2272 MMVI MSG6+37,Ctl* TINITIAL® INDICATOR TO MSG AREA. 1022 2675 1023 2340 oc AL2 (0GSNS¢7) DATA TO MESSAGE AREA 
2273 * . ! G 1924 253n9 1D25 2341 oc ALZ2(4SG+16) ‘ 
1Ca7 CO 87 O21E 2274 6 UNPACK UNPACK 2342 # , 
1€aB 02 1Casp 2275 oc ILit2e¢ INITIAL ODCR : 1D26 CO 87 O2I1E 2243 8 UNPACK UNPACK & BYTES OF 
1Cac 2621 ICAD 2276 oc AL2(1DO0CR) TG MESSAGE AREA ' & 1D2A 04 1D2A 2344 oc IL1*4t READ DIAGNOSTIC SENSE 
ICAE 25D3 ICAF 2277 pC AL2(MSG+42) : 162B 2679 1D2C 2345 Oc AL2(DGSNS411) DATA ¥G MESSAGE AREA 
2278 * 5. 1D2D 25C2 102E 2346 oc AL2(MS6+25) , 
2€80 CO 87 O21E 2279 8 UNPACK UNPACK ; €3 2347 * 
1€B84 02 1C&4 2280 oc Ik1*2é INITIAL ODDR 1D2F CO 87 O21E é 2348 8 UNPACK UNPACK © BYTES OF 
1C85 2623 1EB6 2281 oc AL2( 10D00R) TG MESSAGE AREA ; 1D33 04 1D33 2349 oc IL2l*4e : READ DIAGNOSTIC SENSE 
1087 2508 / 1€8e8 2282 oc AL2(4S6447) | €: 1034 267D 1035 2350 oc AL2(DGSNS415) DATA TO MESSAGE AREA 
2283 * 1036 25C8 1D37 2351 oc AL2(4SG6+34) 
1CB9 CO 8&7 O21€ 2284 8 UNPACK UNPACK ; . es 2352 * / 
1CBD OA EBD 2285 OC IL1L*10° INITIAL DOCE €: 1D38 CO 87 O21E 2353 B UNPACK UNPACK 4 BYTES OF 
ICBE 2631 ICBF 2266 oc AL2CIDOCEN!) TO MESSAGE AREA 103C 04 1D3C 2354 oc IL1°4* READ DIAGNOSTIC SENSE 
4CCO 25€D ECC1 2287 oc AL2(MS6+68) ; apts Ns 103D 2661 1D3E 2355 OC AL2(D6SNS419) DATA TG MESSAGE AREA 
2286 * €& 103F 2504 . 1D40 2356 DC = AL 2 (MSG443} 
i1CC2 CO 87 O214 2289 8 PRINT PRINT 2357 * 5 
1€€6 81 . tECH 2290 oc XLIEf Ble THERD LINE NF 1D41 CO 87 OZ21E 2358 8 UNPACK UNPACK 4 BYTES OF 
1CCc7 50 1CC7 2291 oC TLi*so ERRGR BESSAGE €. 1D45 046 1045 2359 oc ILi*4! READ DIAGNOSTIC SENSE 
1CCB 25Fa BECO 2292 oc AL2 (SGN) 1D46 2685 1047 2360 oC AL2 (OGSN5423) ; DATA TO MESSAGE AREA 
2293 © : ; 1048 2500 1049 2361 oc AL2(4SE+52) 
ICCA OC 4F 25F8 25F9 2294 evc MSGM( 80) .MSGN¢] CLEAR MESSAGE AREA | € 2362 * 
2295 ¢ : 104A CO 87 O21A 2363 8 PRINT PRINT 
1CDO0 3C DS 25CE 2296 vi MSG+37,C'R® *RESIDUAL* IND TO MESSAGE AREA . 1B4E 82 ; 1D4E 2364 — oC XLi*82* LAST LINE OF 
2297 * €: 1D04F 50 1D4F 2365 oc IL1*380* ERROR MESSAGE = 
1CD4 CO 87 O21E 2298 8 UNP ACK UNPACK ‘1050 25F8 1D51 2366 oc AL2(MSGNI 
| ak | ie | | | : 
DATE 23AUCTS osaov7Ts LOMART6 ‘ PROG 1D Ci2-2) DATE 23AUGT5 OSNOV7S LOMARTE PROG ID Cl2a-2 
€C NO. 827785 827627 827872 : ‘PAGE 22° eq NO. 827785 827827 827872 PAGE 22a 


el 
: | 


22 | 


PC CCC CCC OC CCC OC ORO oe occ eanc.. a 3 
ra © & & 7 @ & '@ @ & eo @ : ; bose — Bee 
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ci22 3340 FUNCTION TESTS - MOD 12 


ERR LOC OBJECT COVE ADDR STMT SOURCE STATEMENT 


2367 * 
1052 CO 87 0000 2368 ERRPX 8 *-* 
2369 * 
DATE 23AUG7TS | OSNOVTS 19MERTE 
EC NO. 827785 


827827 8#=a2z7Et2 


PART NOe 
PAGE 


RETURN TG CALLING ROUTINE 


PpaoG 16 
PAGE 





: 
16 
| 
1 em 
& 
4247603) _ 
3 € 
|g cnee 
es 
eC 
€ 
{ 
'e 
| & 
: C2 1056 
105A 
-€.  105e 
|. 1062 
Cs 1066 
; ~~ 1069 
! €> -1p6eo 
| 10760 
| f 1D74 
a 1078 
€: 1078 
1080 
| 1084 
€> 1088 
{ 1088 
| £: 1090 
| 1094 
1097 
: 1098 
| £. 109F 
1DA4 
i. 1DaB 
| €;  10ac 
| 1DAF 
© 
1063 
| € 1087 
| 1DBA 
| €  1.08€ 
| 1001 
: c 1DC5 
© 
ib 
° 
| © 
|® 
° 
eee ee 
| ce NO. 
|& 
le 
t 


34 
34 


30 


38 
F2 


35 
BS 


38 
38 
F2 


2c 
38 
38 
F2 
2c 
35 
F2 


3c 
38 


2c 
39 
39 
F2 
3A 
3A 


3 
co 


F3 
c2 
co 


ERR LOC GBJECT CODE 


os 10C8 
62 10C4 


C5 2630 


01 2630 
10 4A 


O02 2616 
02 01 


10 263D 
04 25FA 
10 1¢C 


00 1081 
00 263C 
02 25FA 
$O 28 

oo ipco 
G2 25FA 
87 08 


04 idCcod 
04 25FA 


00 1DAS 
00 263C 
O08 2630 
10 OF 

10 25FA 
20 25FA 


C4& TE 
87 10C2 


c& 00 
G2 0000 
87 0000 


23AUGTS 
827785 


IBM MAINTENANCE ODLAGNGOSTIC PROGRAM 


ADOR STMT 


3340 FUNCTION TESTS - MOD 12 





SOURCE STATEMENT 


2371 

2372 * 
2373 * 
2374 * 
2375 44S SS94% 
2376 * 
2377 OASDI st 
2378 ST 
2379 * 
2380 SNS 

- 2381 * 
2382 TON 
2383 JT 
2384 * 
2385 L 
2386 L 
2387 * 
2388 TEN 
2389 TBN 
2390 — JT 
2391 * 

03 2392 MVC 
2393 TBN 
2394 TBN 
2395 JF 
2396 * 

05 2397 MVC 
2398 SBF 
2399 J 
2400 * 

2401 DASDOI MVI 
2402 SBF 
2403 * 

04 2404 DASDOZ MvC 
2405 TSF 
2406 TBF 
2407 JT 
2408 * 
2469 DASDO3 SBN 
2410 * 
2411 DASOG4S SBN 
2412 * 
2413 DASDOS $10 
2414 6 
2615 * 
2416 DASOOS S10 
2417 * 
2418 DASOX2 LA 
2419 *# 
2420 DASDEX 8 
2421 8 

OSnNOVTS LOMARTE | 

s2782T 827872 


AeeaeeeeeeeseeneseseEneeeeesTessesseseesseeeess esse sss eessenss esses ee 


- @ -@ @ 


PART NO. 4247603 
PAGE 23A 


* 


3340 DEVICE END INTERRUPT SUBROUTINE * 


DASDIX4#3,ARR © 
DASOX243 sXR2 


SNS,X*C5* 


SNS,B1TT 
DASDO04 


ADRPTR »XR2 
10 gXR2)_XR2 


SNS.BIT3 
IND ,GPEND 
DASOO1 


#46, SKMSK(19XR2) 
SNS-1, 9-4 

IND» SKEND 

DASDO4 
DASDO642sSKRST(19XR2) 
IND» SKEND 

DASDO2 


DASDO642 ¢X*04* 
IND, OPEND 


46 sUCKMSK(1,XR2) 
SNS—1, #-* 

SNS BITS 

DASDO6 

IND, DRVERR 

IND, INTERR 


X*TE* X*C4* 
DASDX2Z 


BB eXSCHE 
S—B,XKZ 


tt 


qavangesacceceessecsasnessecesesseceseesessssesseseeseeeess. 


SAVE RETURN ADDRESS 
SAVE INDEX REGISTER 2 


SENSE ADAPTER STATUS 


BRANCH IF 
ADAPTER CHECK 


SETUP POINTER TO 
DRIVE DEPENDENT WORK AREA 


BRANCH IF 
EXPECTED OP END 
INTERRUPT OCCURRED 


GET SK INTRP MASK FROM ORV AREA 
BRANCH IF 
INTERRUPT IS 
NOT EXPECTED 
PREPARE TO RESET SEEK INTERRUPT 
RESET SEEK INTRP EXPECTED IND 
GO TO TEST FOR UNIT CHECK 


PREPARE TO RESET OP END INTRP ee 8 
RESET OP END EXPECTED INDICATOR ge ieee Sear. 


GET UNIT CK MASK FROM ORV AREA 
BRANCH IF : 
UNIT CHECK GOR 
NO-OP STATUS 
SET DRIVE ERROR INDICATOR 
SET ANY ERROR INDICATOR 


RESET AND DISASLE INTERRUPTS 
GO TO RESTORE INDEX REG 


RESET INTERRUPT 
RESTORE INDEX REGISTER 2 
RETURN TO CALLING PROGRAM 


PROG 10 C12-2° 
PAGE 23a 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


Ce 


| 


PART NO. 4247603! 
PAGE 24 | 


C122 3340 FUNCTION TESTS — MOD 12 


ERR LOC OSJECT CODE ADDR STMT SGURCE STATEMENT 
2423 ERRREEESEEERERRESRESEEREREREERERSERERERSASESRSES EES ESELEL ARLE E ES ES ETERS | 
2424 * SAVE RESTART SUBROUTINE * 
2425 * *! 
2426 * THIS SUBROUTINE PLACES A RESTART ADDRESS IN LOC 00 - 03 *| 
2427 * IN CASE OF A REJECTION LOOP ON A *LIO* OR "SIO" INSTRUCTION. *: 
2428 * IT ALSO SAVES THE ADDRESS FOLLOWING THE *LIO* OR ‘SI0* * 
2429 * AND INDEX REGISTERS 1 & 2. * 
2430 * BRANCH TO *SAVRST* IMMEDIATELY PREOR TO THE *LIO* OR *SIO%. * 
2431 * BRANCH TO *RSTOR* AFTER THE "LIG* OR *SIO* TO RESTORE *! 
2432 * LOC 00 - 03. %) i 
2433 EEREREERERE RERERAEREREEEERERERE ES EERSEREEREERESAEEEREREER EA REE EA TEER EEE 
2434 *# 
10€9 34 08 1€0D 2435 SAVRST = ST SAVRSX+3,ARR _ SAVE RETURN ADDRESS 
10CD 34 O01 1£10 2436 ST  RSTXR1+3,XR1 SAVE XR1 AND XR2 
1DD1 34 02 1£19 2437 ST  =—- RSTXR2#34XRZ FOR RESTART 
2438 * 
1005 35 01 1E0D 2439 L SAVRSX4+3eXR1 LOAD ADDRESS OF *LIG* OR *SI0° 
2440 * 
1009 4D 00 00 1938 2441 CLC = 001 e XR10 S10 iS INSTRUCTION A *SIO*? | 
IDDE F2 O01 06 Zaa2 JNE  SAVRSA JUMP EF NOT 
2443 % | 
1DE1 02 O1 03 2444 LA BUgXRLPeXRE ADJUST TO ADDRESS AFTER *SI10* | 
1DE4 F2 87 OB 2445 J SAYRSB GO TO STORE ADDRESS 
2446 * 
10E7 4D 00 00 1806 2447 SAVRSA CLC Of eXR1FLIO IS INSTRUCTION A ‘*LIO* 
1DEC F2 01 07 2448 JHE  SAVRSC GG IF NOT 
2449 
LDEF D2 01 04 2450 LA = Ue XR19XR1 ADJUST TQ ADDRESS AFTER LIOt | 
10F2 34 O1 1€21 2451 SAVRSB ST = KSTAX4#34XR1 STORE RETURN FROM RESTART 
2452 * 
10F6 38 80 25FA 2453 SAVRSC SBF IND,» HUNG RESET HANG INDICATOR | 
oc — LDFA OC 03 2641 0003 2454 MVC =—- WORKN( 4) 63 STORE CONTENTS GF LOC 00 - 03 | 
1£00 OC 03 0003 LEI 2455 MVC 9-3 14s RSTBR STORE RESTART IN LOC 00 - 63) | 
2456 * 
1£06 35 O01 1€1D 2457 L RSTXR1¢3,XR1 RESTORE XR1 | 
1E0A CO 67 0000 2458 SAVRSX 8 ¥-# RETURN TO CALLING ROUTINE 
2459 
2459 | 
1EOE CO 87 1E12 2460 8 RSTRT THIS IS MOVED TO LOC 00 - 03) | 
LELL 2461 RSTBR EQU *-21 FOR RESTART 
2462 i 
2462 ! 
2463 EREEEREKESESSREREREEREEERERE SESE EAELERSESERELERESESESTRSSEESESSELELT SSE | 
2464 * ENTER HERE ON A RESTART FOLLOWING A *Si0* OR *L10° + 
2465 * HUNG IN A REJECTION LOOP * 
2466 SKERRERRERESEREGERERRERELS SESE EFS EERARLETAES AES FERESIEERSEKESES ES SSS ESE | 
2467 * i 
1E12 3A 80 25FA 2468 RSTRT SBN  IND»HUNG SET HANG INDICATOR | 
1E16 C2 02 0000 2469 RSTXR2 LA = B= %eXR2Z RESTORE XR2 AFTER RESTART 
1ELA C2 01 0000 2470 RSTXRL LA *=-*2XR1 RESTORE XR1 AFTER RESTART | 
1£1€ CO 67 0000 2471 RSTAX = B wo % RETURN AFTER RESTART | 
2472 ! 
2472 
2473 GECERREEERESERERREOEREREESES GE CAEEESAEEESEREEEESSEESTREREREREESESESEE ES | 
2474 ENTER HERE TO RESTORE LOC OO ~ 03 IF *SIO* GR *LIG* - 
2475 * DID NOT HANG + 
2676 ENREERAAARESAEEEES EARS ESLSELRES HG LESS EERE SHEL EERESELEERS EEAE LES SEEESTERE | 
2477 * 
1E22 3@ 08 1E2F 2478 RSTOR ST RSTORX+3, ARR SAVE RETURN ADDRESS 
1E26 OC 03 0003 2641 2479 MVC «= -:3 44) pWORKN RESTORE LOC 00 - 03 
1E2C CO 87 C000 2480 RSTORX 8 #8 RETURN TO CALLING ROUTINE 
1 
| 
| 
I 
1 
: : 
DATE 23AUG7TS OSNOVTS  BOMARTE bP a5 PROG 1D €12-2 
EC HO. 6827785 827827 e27e72, tit PAGE 24 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOo 4247603 
AS ; PAGE 24A 


C122 3340 FUNCTION TESTS ~ MOD 12 


" ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
€. 2482 EERKEERESERERERRERSRAER ERSTE SRE SEER ERATTAESES SEES ESS SESS ESTERS ESESS ESS 
° 2483 * * 
2484 * INTERFACE TO ADAPTER MANUAL OPERATIONS PROGRAM (SECTION C19) * 
C 2485 * * 
2486 RRESSALSESREARESEREESERARESRAERES SE SECERELESSERESSES SESE SSESHEL SESE E SSS 
7 2487 * 
2 1£30 34 08 1£85 2488 AMOPLK ST AMOPX4+3~ARR SAVE RETURN ADDRESS 
2485 * 
1£34 38 01 0200 2690 TBN SBYTES,»SSw2F RETURN TO CALLING ROUTINE 
é 1E38 F2 90 47 2491 SF AMOPX LF SENSE SWITCH 2 IS NOT ON 
2492 * 
; LE3B 34 O01 LETO 2493 ST AMOPX143,XR1 SAVE INDEX REGISTER 1 
i € LE3F 34 02 1E81 2494 ST AMOPX243 4 XR2 SAVE INDEX REGISTER 2 
2455 * 
ey. 1E43 OC 18 0A39 OA18 2496 MVC SVPFC (25) 9 COM=1 SAVE SECTION PREFACE 
if 2497 * 
1E49 OD O1 OALE 1€68 2498 CLC AMOPID(2)eC19 GO TO LOAD SECTION C19 
~ LESF F2 01 09 2499 JNE  AMOPLO IF NOT ALREADY IN MAIN STG 
c 2500 * 
1E52 OD 01 4001 168 2501 CLC AMOP41(29.C19 GO TO EXECUTE SECTION C19 
; 1E58 F2 61 1B 2502 JE AMOPGO If ALREADY IN MAIN STORAGE 
é 2503 * 
1E5B CO 87 O21A 250% AMOPLD 8 PRINT PRINT MESSAGE 
LESF 46 1E5F 2505 DC XL1i%46e SLOADING SECTION C19° 
€ 1E60 13 1E60 2506 oc ALi (MSGO2N-MSGO241) . 
1661 1FBF iE62 2507 pc AL2{MSGO2N) 
_- 463 C100 1664 2508 oC AL 2(HLTOO} 
C 2509 = 
LEGS CO 87 O22A 2510 8 LOAD LOAD SECTION C19 
_. 169 04 1669 2511 oc XL1°04* 
€, 1£6A 0C19 1E6B 2512 CLO oc 4L2*0C19° a 
2513 * See 
_ 186 CO 87 021A 2514 B PRINT PRINT MESSAGE 
€2 LETO 46 1E70 2515 DC XL1"46° *SECTION C19 READY* 
LETL LL 1E71 2516 oC AL1 {NSGO3N-MSGO341) 
172 1FDO 1E73 2517 oc AL2(MSGO3N) 
€: 1£76 €100 1E75 2518 DC AL 2CHLTOO} 
2519 + 
C LET6 CO 87 4002 2520 AMOPGO 8 AMOP+2 EXECUTE AMOP 
. 2521 * 
LETA C2 01 0000 2522 AMOPXL LA %=%_XR2 RESTORE 
© 1ETE C2 02 0000 2523 AMOPX2 LA e-&,XR2 INDEX REGISTERS 
3 2524 © 
1€82 CO 87 0000 2525 AMOPX B s—* RETURN TO CALLING ROUTINE 
| e 2526 * 
~ DATE 23AUGT5 OSNOV75 19MAR76 PROG 1D Cl2-2, 
EC NG. 827785 827827 827872 | . PAGE - 24A 
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C122 3340 FUNCTION TESTS - MOD 12 


ERR LOC OBJECT CODE ADOR STMT 


pee ee 


1E86 
1E8A 
LEBE 


1E92 
1€98 


1E9B 
1€Al 


LEAS 
LEAS 


TEAS | 


LEAA 
LEAC 


1EAE 


1EB4 
1EBS 
1£89 
1E68 


LEBF 
1EC3 


1ECT 


DATE 


EC nO. 


oo 01 
F2 01 


OD 01 
£2 81 


co 87 
46 


iFac 
c100 


oc 18 
Co 87 
Oocit 
co 87 


C2 O1 
C2 02 


co 87 


1ECA 
LEC2 
1EC6 


OA1LC 
09 


6co1 
i7 


O21a 


GA39 
O22A 


6c02 


0000 
0000 


0000 


23AUG75 


827785 


1EBA 


1EBA 


1EA8 
1EA9 
1EA8 
1EAaD 


OA18 


1£88 
1EBA 


OSNOVTS . 
827827 . 


SOURCE STATEMENT 
2528 SO HSOSSSAEEEEEEEESESRESESSSS ESS SELELESSA ESSE ONS EOSESES SSS SS SES OLE SESS SY 
2529 * af . 
2530 * INTERFACE TO MICROCODE LOADER PROGRAM (SECTION ci7) a. * 
2531 * *: 
2532 EERESENEEEEREOEESESESSSEEEEESSEESEESSESESEEEEESRSCESESSS ONS RESSENESESEE 
2533 * 
2534 MPL st MPLX#3,ARR SAVE RETURN ADDRESS 
2535 st MPLX143—-XRi SAVE INDEX REGISTER 1 
2536 ST MPLX243_XR2 SAVE INDEX REGISTER 2 
' 2537 3 
2538 CLC LORINGC2).C17 GG TO LOAD LOADER 
2539 JNE  CLORLD If NOT ALREADY IN STG 
2540 * 
2541 CLC. —- LOR# 112) ,C17 BRANCH IF SECTION Ci7 
2542 JE LORGO 1S ALREADY IN MAIN STORAGE 
2543 * 
2544 LDRLD 8 PRINT PRINT MESSAGE 
2545 oc XL1°46! LOADING SECTION C17 
2546 pc AL1 (MSGOIN—MSGO141)} 
2547 oc AL2(MSGOIN) 
2548 oc AL 2tHLTOO) 
2549 * 
2550 MVC SVPFC(25),COM-1 SAVE SECTION PREFACE 
2551 ¢ Z 
2552 B LOAD LOAD SECTION C17 
2553 pc XL1°04* fs 
2554 C17 oC XL2*0C17* 
2555 * 
2556 LORGO B LDR+2 GO TO SECTION C17 
2557 * 
2558 MPLX1 LA #—#,XR1 RESTORE 
2559 MPLX2 LA #=—# eXR2 INDEX REGISTERS 
2560 
2561 MPLX B et RETURN TG CALLING ROUTINE 
| 2562 * 
| 
| 
| 
{ 
' 
i 
ts 
a | 
' JOMARTS ‘ PROG ID Cl12—2: 
- @27872. PAGE 25 | 
: ! 
x 


122-3340 FUNCTION TESTS - HOD 12 
: é 
ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT 
€: 2564 C4EREEREEEEESE4$494009040484056E99F00FESTEESESSESSSEEESSSSSSESE SSIES ESTED 
2565 * * 
c 2566 * 3340 ATTACHMENT SYSTEM RESET SUBROUTINE * 
2567 * * 
2568 bbOEESE44949908444480844458SES4S4SESEEEESESTOEES ESSE SESESSESS OOESESTSES 
a 2569 * 
€ -1€CB 34 08 1F41 2570 SYSRST ST  — RSTX#3sARR SAVE KETURN ADDRESS 
LECF 34 01 1F39 2571 ST RSTX143,XR1 SAVE INDEX REGISTER 1 
c 1£03 34 02 1F3D 2572 ST  RSTX2#3yXR2 SAVE INDEX REGISTER 2 
LEO7 CO 87 1F42 2574 B REGRST RESET ATTACHMENT REGISTERS 
7 2575 * 
€: 1808 C2 01 2563 2576 LA  —- SVPSEQeXR1 POINT TO SVP CONTROL STRING 
2577 * 
_ 1EDF 3C 00 2577 2578 MVI KO PRESERVE MICRO- 
€. Lees 38 80 0Al9 2579 TBN  COM,ADRSTP PROCESSOR ADDRESS STOP 
1EE7 F2 90 04 2580 JE saRSTLP SETUP DURING EXECUTION 
c JEEA 3C 04 2577 2581 MVI Ky X" 04° OF AMOP (SECTION C19) 
- 2582 # 
1EEE 1C 01 2641 O1 2583 RSTLP MVC WORKN( 22910 ,XR1) EXECUTE 
_  YEF3 31 C5 2641 2584 LIO  WORKN,X*C5* SIMULATED SYSTEM 
€ «LEFT D2 01 02 2585 LA  —«- 2» XRD XRD RESET SVP INTERFACE 
1EFA 7D FF 00 2586 CLI Oe XR109X*FF* CONTROL SEQUENCE 
..  l€FD CO O1 1EEE 2587 BNE . RSTLP 
es 2588 * vee 
1FO1 OC 01 2641 252F 2589 MVC - WORKN(.2 eP1 SETUP TIMER COUNT 
2590 * 
| €2  1f07 30 C5 2630 2591 SNSLP SNS  SNS»X*CS* LOOP UNTIL 
1F0B 38 01 2630 2592 TBN SNS» BIT7 MICRO-PROCESSOR 
- ss AROF F2 90 0A 2593 JE so DELAY STARTS OR COUNTER 
2 1F12 C& 01 2661 252F 2594 ALC  ‘sORKN(2)5P2 OVERFLOWS 
1F18 CO 20 1F07 2595 BNOL SNSLP a 
"7 2596 * 
: €& Fie C2 01 ESF6 2597 DELAY LA ~66665XR1 DELAY 
1F20 36 C1 252F 2598 DLYLP A P1,XxR1. 100 MSEC 
1F24 CO 20 1F20 2599 BNOL OLYLP 
& 2600 * 
1F28 31 C5 2591 2601 LIO CEMODE,x*C5* SET CE MODE 
1F2C 31 CS 2574 2602 LIO SVPREQ»x*c5° INDICATORS 
& 2603 * 
1F30 GO FF 1F30 130 2604 CLO 04256949 800 USEC DELAY 
2605 * j : 
eé 1F36 C2 01 0000 2606 RSTX1 LA. %-#,xR1 RESTORE 
1F3A C2 02 0000 2607 RSTXZ2 LA %-%,XR2 INDEX REGISTERS 
2608 * 
€;  1F3€ co 87 0000 2609 &STX 8 2 RETURN TO CALLING ROUTINE 
2610 * 
DATE  23AUG7TS OSNOV75 $19MART6 PROG ID Ci2-2- . 
ct NO. 827785 827827 827872 PAGE 258 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


Ci22 


ERR LOC OBJECT CODE 


1F42 
1F46 


LF4A 
1LF4E 
1F52 
1°56 
1F5A 


1FSE 
1F62 


LF66 


1F6A 
LF6F 


ifT3 
1768 


1F7C 
1€80 
1F84 


1-88 


1F6B8 
LFBE 


1F92 
1€96 


DATE 
€C NO. 


3340 FUNCTION TESTS — MOD 12 


34 
34 


08 
G1 


C2 O01 
31 C5 
31 C5 
31 C5 
31 C5 


3c 00 
31 C5 
31 €5 


1C 00 
31 C5 


ic oO 
31 C5 


31 CS 
31 C5 
01 


7D 
co 


FF 
01 


c2 01 
Co 87 


1F99 
1F95 


2594 
2570 
257F 
2581 
2583 


2584 
2585 


2589 


2584 
2585 


2586 
2587 


2586 
2580 
258F 
02 


00 
1FSE 


0000 
0000 


23AUG75 


827785 


EEREERERESTESESERESSESELESSEE SESS 


2612 

2613 * 

2614 * 

2615 * 

2616 SESKESES TAKE 
2617 * 

2618 REGRST ST 
2619 ST 
2620 * 

2621 LA 
2622 * 

2623 LIO 
2624 Lid 
2625 LIO 
2626 * 
2627 L10 
2628 * 

2629 REGLP AVI 
2630 LIO 
2631 * 

2632 LIC 
2633 * 

00 2634 AVC 
2635 Lid 
2636 *# 

01 2637 MVE 
2638 LIO 
2639 & 
2640 LIC 
2641 LID 
2642 LIO 
2643 * 
2644 LA 
2645 ¢ 
2646 CLI 
2647 BNE 
2648 * 
2649 REGX1 LA 
2650 REGX 8 
2651 * 

OSNOVTS = ASHARTE 


827827 «=—»s« B2T8T2 


ADOR STMT SOURCE STATEMENT 


3340 ATTACHMENT REGISTER RESET SUBROUTINE *. ec 
*, &> 
saaeeeeeeeeeeses OHCSEEREEHEREERTEEEREEER AEE ERES ESOS ESSE ESS 
REGX+3 ARR SAVE RETURN ADDRESS '- 
REGX1439XR1 SAVE INDEX REGISTER 1 1F9A 
LFA2 
EXTBL»XR1 POINT TO REGISTER ADDR TABLE € LFAA 
K04-¢X"C5° HALT MICRO-PROCESSOR 
KO34_X'C5* RESET MICRO-PROCESSOR CLOCK LEAD 
K024,X°C5* SET SERVICE MODE 1=B5 
1 BD 
Cextcst X*00" --> OP REG C € 
CR-120 1FCO 
CReX*CS* X*00* -—-> OP REG CR RL 1FC8 
1&DO 
LEXTZ»X°C5°* R4-K7 —-> EXTERNAL ZONE ie 
CR-1,0(2eXR1P ye LFDL 
CReX*C5® EXT REG ADDR --> GP REG CR 1FD9 
1FEl 
Y-Lel(LsXR1d 1LFE9 
VextCs® - EXT REG DATA --> OP REG Y C LFF 
/&) 1FF9 
LEXTAR)X*C5* R3-RT --> EXT ADDR REG CEXTAR) | 
LALUD»X*C5* Y REG --> A REG ——> D REG . 
LEXT eX*C5°* D REG -—-> EXTERNAL REG (€- .FeB 
| 2003 
2t eXRLP yPXRL ADVANCE TABLE POINTER : 2008 
i € 2013 
Ol XRLD X*FE* LOOP UNTIL ALL 
REGLP REGS HAVE BEEN RESET ec 
i¢ 2014 
#-#,XR1 RESTORE INDEX REG 1 | 201C 
+ RETURN TO CALLING ROUTINE is 2024 
Lg 202 
2034 
203C 
{> 2044 
1 €. 2046 
‘ 264E 
_ 2056 
/ €2  205€ 
Rie. 
'€ 2062 
206A 
—.  2072 
{ = 207A 
2082 
rh 208A 
ae. 2092 
2093 
2098 
, €: 2043 
-€°  20a7 
i 20AF 
|. 2087 
&.  208F 
| 
1 € 
: PROG ID €12-2  «~DATE 
PAGE 26 of NO. 
| 
|G 


of 
eco 


PART NO- 
PAGE 


4247603 
26 


rc C122 


ERR LOC OBJECT CODE 


SERERGESSESESSERESESSESESTSSS ET SRESE SEE & 


@ 


-@ 


D3D6C1C4C905C740 
£2C5C3E3C9D60540 
C3FLF? 


D3D6C1C4C905C740 
E2C5C3E3C9060540 
C3F1F9 


E2C5C3E3C9D60540 
C3FLF94OD9C5C1C4S 
Es 


C905E5C1D3C9C440 
E2C5E3E3C9D5C740 
N6C640E2D5E240E2 
EGE24¢0FILFIOOFLF2 
40D60940F I CL6OFL 
C298 


DSC 5C 3D6ESCSD9CS 
C4400 1C6E3C50940 
E74009C5E309T9C5 
€2 


C3CLDS7TDE3S40D9C5 
EZE3C LDSE340D4C9 
C3D906D709D6C3C5 
E2E2D6D9406040E3 
C5E2E3C9D5C T40ES 
C5D9D4C9D5C1E3C5 
C440 


D7C5D9D4C 1D5C5D5 
€340C5D9D9406040 
D9C5E3D9E840C60C1 
C9D3C5C4 


C409£540C304C440 
404003E8D3404040 
4040080440404040 
E269D640404040E2 
D5£24040404040C4 
C4C3D940C4C4 C409 
40 
C6Cé6C 3c 3C3C3C8Ccs 
C8C8p909D203C403 
C4D3D505 


DST5C1C440C4C9C2 
CTOSDGEEZE3C9C340 
E2CSD5E2C540C4C1 
£3C1 


23AauUG7T5S 


827785 $27827 


ADDR 


1F9A 
LFAC 


LFAD 
1F BF 


1—CO 
iFDO 


LFOL 


1FFA 


1FFB 
2013 


2014 
2045 


2046 
2061 


2062 


2092 


20A6 


20A7 
2060 


O5NOV75 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


STMT 


2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2660 
2660 
2661 
2662 
2663 
2663 
2663 
266% 
2665 
2666 
2666 
2666 
2667 
2668 
26692 
2669 
2669 
2669 
2669 
2669 
2670 
2671 
2672 
2672 
2672 


2672. 


2673 
2674 
2675 
2675 
2675 
2675 
2675 
2675 
2675 
2676 
26TT 
2678 
2678 
2678 
2678 
2679 
2680 
2681 
2681 
2681 
2681 
2681 
2681 
2681 
2682 
2682 
2682 
2683 
2684 
2685 
2685 
2685 
2685 
2686 


LOMARTS 
627872 


9eoeoeeoeeedeeeeee8 @ 


4247603 
26A 


PARTY NO. 
PaGE 


3340 FUNCTION TESTS - MOD 12 


SOURCE STATEMENT 


seconenensceecsssecssheseeseghOseseeOn@sSeeenesese sre ses esse ser eee ee 
+ * 
& PRINT MESSAGES * 
* e 
* cavanenrerenstatsseeeesnenessesneneeaeenss ene geen ese seeees esse eeeer® 
* 

4SGO1 
MSGO1N 


EQU 


* 
oc CLI9*LOADING SECTEON (17° 


* 
#SGO2 
MSGO2N 


EQU 


* 
oc CLIO*LOADING SECTION C19° 


= 
MSGC3 
MSGO3N 


EQU 


* 
DC CLLr® SECTION C19 REACY® 


* 
4SG04 
HSGO4N 


EQU 


% 
bc CL42*°INVALIO SETTING OF SNS SWS 11-12 OR 1A-1B.° KHG 


* 
HSGOS 
MSGOSN 


EQU 


© 
oc CL2S5*RECOVERED AFTER X RETRIES® 


% 
MSGO6 
MSGO6N 


eQqU. * 
CL50°CAN®*T RESTART MICROPROCESSOR — TESTING TERMINATED® 


& 
“™SGO7 
MSGOTN 


£QU 


= 
oc CLZ8*PERMANENT ERR ~ RETRY FAILED® 


& 
“SGOB EQU 


* 
CL49°DRV CMD CYL HD sido SNS pDOCR OOOR ° 


MSGOSN oc CL20° FFCCCCHHHHRRKLOLOLNN® 


= 
*SG09 
MSGOON 


EQU * 
oc CL26* READ DIAGNOSTIC SENSE DATA® 


= 


C12-2. 
26A 


PROG 10 
PAGE 





coe eeeeeeeeeeececcoecececrsococersoosnecen 


TBM MAINTENANCE DIAGNOSTIC PROGRAK PART NO. 


4247603 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART RG. 267603 
PAGE 27 PAGE 27a 
Ci22 3340 FUNCTION TESTS - MOD 12 Ci22 3340 FUNCTION TESTS ~ HOD 12 
ERR LOC GBYECT COE ADDR STMT SGURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
zOCl 2637 MSGUA EGU * o 2213 2733 EKG3 EQU t 
20Ci E2C503C5C3E340C4 20£1 2688 oc CL33°SELECT DRIVE TO BE INITIALIZED. °& 2213 FOF3406040C4C4C4 2218 2734 EMO3N oc CL9*0O3 — DDR! 
20C9 D9C9IE5C540E3D640 2688 ot 2218 09 2734 
20D1 C2C540C9DSC9E3C9 2688 ; saan a2 ae See ag 
2009 C1D3C9E9C5C44B40 2688 
20E1 40 2688 221C FOF4406G40E2C9D06 2238 2737 EMO4K oc CL31"°04 —- SIO HUNG IN REJECTION LOOP 
20E2 E205EZ40E2E6E24) 210E 2689 HSGOAN 0¢ CL45°SNS SWS LA~1B SELECT DRIVES 1-2 RESPECTIVELY<* KMG © 2224 &0CBE4D5C 7400905 2737 
20EA FICLOGFIC240E2C5 2689 222C 40D9C5D1C5C3E3C9 2737 
20F2 D3C5C3E340C4D9C9 2689 2234 D6D540D30606D7 2737 
Z20FA ESC5E240F160F240 2689 : 2738 * 
2102 D9CSE2ZD7C5C3E3C9 2689 2238 2739 EROS EQU # 
2104 E5C5D3E84" 2685 2238 FOF5406040C4D9E5 2268 2740 EMOSN oC CL46'05 - ORV WOT RDY OR UNIT CK -TIO- PRIGR TO SIO? 
2690 2 2243 GOD5D6E340D9C4E8 2740 
210F 2691 #SG6OB EQuU 224B 40D6D940E4D5C9E3 2740 
Z210F FOFO60606060F0F3 2129 2652 OC CL27*00----03 04----OT 08-~—-11 * bis 2253 40C3D2406CE3C9DS 2746 
2117 40FOF460606060F0 2692 2258 60400709C9D6 D940 2740 
211F FT40FOF 860606050 2692 2263 E3D640E2C9D6 2740 
2127 F1F140 2692 a 2741 * 
212A FIF260606060F1FS 2143 2493 MSGOBN OC CL26%L2----15 16----19 20--—23! sf 2269 2742 EMOE EQUt 
2132 4OF1F660606060F1 2693 2269 FOF6406040E2C9D6 2292 2743 EMOGN DC CL42°06 - SiG DID NOT SET ATTACHMENT SUSY -TIO-* 
213A F940F2F066606060 2893 i 2271 40C4C9C440D5D6E3 2743 
2142 F2F3 2693 2279 40E2C5E340C1E3E3 2743 
2694 * 2281 C1C3C804C505 £340 2743 
214% FOFOFOGLFOFOFOG 2148 2695 REZERG OC CL7*000/600" CYL AND HD FEELD GNITIALIZER | 2289 C2E4E2E84060E 309 2743 
2696 * , &- 2292 D660 2743 
2148 D9C5C3C1D3 214F 2697 MRECAL OC CLS*RECAL? 2744 * 
2150 E2C5C50240 2154 2698 MSEEK DC CL5*SEEK -t by as 2293 2745 EMOT EQU & 
2155 O9C4C8C1C5S 2159 2699 MRDHAE DC CL5*ROHAE* es 2293 FOF7 106046CE2C5C5 2288 2746 EMOTN OC CL41'°O7 ~— SEEK CMD DID NOT SET SEEK SUSY -TIO-8 
215A D9C4CECiIDG 215E 2760 MRDHAO oc CL5*ROHAO?! 229B 0240C32D4C440C4C9 2746 
24i5F DEC4D9F ODS 2163 2701 MRDROO oc CL5*RDROD! es 2283 C44005D6E340E£2C5 2746 
2164 09C4C302C4 2168 2702 MRDCKD oC CL5*ROCKD* -_* 22AB E340E2€5C5D240C2 2746 
ecithe 2169 D9C4C4C705 216D 2703 MRODGN  0C CLS*ROOGNE ; 2283 E4EZEB4060E3C906 2746 
216E D9C4D2C440 2172 2704 MROKD oc CL5*RDKD © a 2288 60 2746 
2173 DIC4E5D2C4 2177 2705 MRDVKD DC CL5*ROVKD! 1 € 2747 * 
2178 DIC4D3D6C7 217C 2706 MRDLOG oc CL5*ROLGS: ! 22B8C 2768 EMOS EQu * 
2170 D9C4E2D5E2 2181 2707 MRDSNS = OC CL5*RDSNS® fs, 228C FOF8406040E2C5C5 22E8 2749 EMOB8N DC CL45*08 — SEEK BUSY -TIO- WITH NO SEEK IN PROGRESS* 
2182 DSC4C9D7D3 2186 2708 MRDIPL oc CL5*RDIPL® : { 22C4 D240C2E4E2E84060 2749 
2187 E6D9C8C1C5 2288 2709 MWRHAE 0C CLS*WRHAE® — 22CC £3C9D66040E6C9E3 2749 
218C E6D9CBC1D6 2190 2210 HWRHAQ DC CL5*WRHAO* ae 2204 C84005D640E2C5C5 2749 
2191 E6D9DSFODE 2195 2711 MWRROO DC CL5*WRROO! iA 22DC 0240C9D540D7D9D6 2749 
2196 E6D9C 302C4 219A 2712 MWRCKD  0C CL5*WRCKD? i 22E4 CTD9C5EZE2 2749 
2196 E6D9C3C3C4 219F 2713 MWRCCD 93C CL5*WRCCDS ee 2750 € 
21A0 E6D909C5D7 21A4 2714 MWRREP 0C CLS" WRREP?* 1 ¢ 22E9 2751 EMO9 EQU * 
21A5 €609D2C440 2149 2715 MWRKD DC CLS*WRKD : 22E9 FO0F9406040C1E3E3 2311 2752 EMOON OC CL41"°09 — ATTACHMENT BUSY -TIO- DID NOT GO OFF® 
21AA E2C3C105C5 Z21AE 2716 MSCANE oc CL5*SCANE?® 22F1 C1iC3C804C505E340 2752 
21AF E2C3C105C8 2183 2717 MSCANH oc CLS* SCANH® € 22F9 C2E4EZ2E84060E3C9 2752 
2184 E2C3D509C5 2188 2718 MSCNRE oc CL5"SCNRE® ; 2301 D66040C4C9C440D5 2752 
2189 €2C305D09C8 2185 2719 MSCNRH oc CLS5*SCNRH? 2309 D6E340C70640D6C6 2752 
2720 * i &, 2311 C6 2752 
21BE 2721 EMXX EQqU) st i 2753 * 
21BE C5090940F2F0 21C3 2722 ENXXN OC CL6O*ERR 20° 2312 2754 EMOA EQU) # 
2723 ¢ 2 2312 F0C1406040E4D5C9 2330 2755 EMOAN DC CL31°OA — UNIT CHECK OR NO-OP STATUS® 
21C4 2724 EM00 EQU] 231A £340C3C8C5C30240 2755 
21C4& FOF04£0604003C9N6 21CB8 2725 EMOON pc CL8*00 — LIOF : .. 2322 D6D094005D66006D7 2755 
2726 * ' &. 232A 406 2E3L1E3E4E2 2755 
21CC 2727 EMO1 —EQU * 2756 * 
21CC FOF1406040C1E3E3 21F2 2728 EMOIN oC CL39°01 — ATTACHMENT BUSY -TIO- PRIOR TO S$i0° - 2331 2757 EMOC EQU* 
2104 C1C3C804C505E340 2728 € 2331 FOC3406040C1C4C1 2342 2758 EMOCN oc CL18*OC — ADAPTER CHECK® 
210C C2E4E2E84060E3C9 2728 , ° 2339 07E3C50940C3C8C5 2758 
21E4& 066040D7D9C9D6D9 2728 . 2341 C3D2 2758 
21EC 40E€3D640E2C9D6 2728 1 ©: 2759 « 
2729 * 2343 2760 EMOD EQU + 
21F3 2730 EMO2 EQU) ¢ ; 2343 FOC4406040E4D5C5 2358 2761 EMODN oc CL25*OD — UNEXPECTED INTERRUPT®* 
21F3 FOF2406040C4C4C3 2212 2731 EMO2N DC CL32*02 - DOCR DID NOT LOAD CORRECTLY® ¢ 2348 E707C5C3E3C5C440 2761 
21FB D940C4C9C44005D6 2731 2353 C9D5E3C509D9E4D07 2761 
2203 €3400306C1C440C3 2731 2358 £3 2761 
2208 D6éD9D9C5C3E303E8 2731 C: 2762 * 
2732 @ 235C 2763 €MOE —EQU) ¢ 
DATE 23AUG75 OSNOV7S I9MART6 : PROG ID (12-2' € DATE 23AUG7T5 OSNOV75 1OMART6 PROG ID Ci2-2° 
€C NO. 827785 827827 827872 PAGE 27 ae NO. 827785 827827 827872 PAGE 27A 


a 


Co 





Eo 
* 
NL, 
€ 
a 
IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 247603 .. IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOw. 4247603 
PAGE 28 & PAGE 28a 
C122 3340 FUNCTION TESTS ~ MOD 12 ; ¢ C122 3340 FUNCTION TESTS - MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
235C FOC5406040C9D5E3 2386 2764 EMOEN DC CL43*0E - INTERRUPT WITH NO INTERRUPT BIT IN SNS* c. 2793 * 
2364 C5DIDIESNTE340E6 2764 : ; 2407 2794 EM18 cou * 
236C C9E3C840050640C9 2764 24C7 FLFB406040C4C4C3 24CF 2795 EMLBN DC cL.9*18 - OOCF* 
2374 DSE3C5D9DIE4DTE3 2764  :  2&CF C6 2795 
237C 40C2C9E340C90540 2764 2796 * 
2384 E2D5E2 2764 ; 24D0 2797 EM19 EQU® 
2765 * : .. 24D0 FLE9406040C4C4C4 2408 2798 EMION DC CL9°19 - DODF* 
2387 2766 EMOF equ) * 24D8 C6 2798 
2 2387 FOC6406040C1C4C1 23AF 2767 Dc CL41'OF - ADAPTER CK ON RD DIAG SNS AFTER ORV ° bes 2799 * 
° ne 238F O7E3C50940C30240 2767 t 2409 2800 EMA eQU)* 
2397 D6D540D9C440C4C9 2767 a 2409 FICL406040E4D5C5 24F2 2801 EMLAN oc CL26"1LA — UNEXPECTED SCAN EQUAL * 
239F CLCT40E2D5E24001 2767 ; 24EL ETDTC5C3E3C5C440 280i 
23AT C6E3C5D940C4D9E5 2767 . 24E9 E2C3C10540C5D8E4 2801 
23AF 40 2767 24F1 C1D3 2801 
23B0 E4D5C9E340C3D240 23C6 2768 EMOFN pc CL23*UNIT CK OR NO-OP STATUS® ; 2802 * 
2368 D6D940050660D607 2768 C- 24F3 2803 EM20 equ) * 
23C0 40€2E3C 1E3ZE4E2 2768 24F3 F2F0406040E6D9C9 2506 2804 EMZON oc CL20°20 - WRITE INHIBITED® 
2769 * _- 24FB E3CS40C9D5C8C9C2 2804 
23C7 2770 EM10 equ) * {2503 C9E3C5C4 2804 
23C7 F1F 0406040050640 23DE 2771 EM1ON oc CL24*10 -— NO OP END INTERRUPT® 2805 *. 
23CF D60740C5D5C440C9 2771 = 2507 2806 EM30 equ =* 
2307 DS5E3C5D0909E4D7E3 2771 f£ ——- 2507 C5D9D94OFZFOF3FO 2521 2807 EM30N pC CL2T*ERR 2030 — READ IPL FATLURE® 
2772 * 250F 40604009C5C1C440 2807 
230F 2773 EM11 EQU) * 2517 €9D70340C6C 10903 2807 
23DF FLF 1406040050640 23FD 2774 EM1IN oC CL31°11 - NO SEEK COMPLETE INTERRUPT? '€  251F E4D9C5 2807 
23E7 E2C5C5D240C30604 . 2774 2808 * 
23EF 07D3C5E3C540C905 2774 
23F7 E3C5DIDIESDTES 2774 S$ 
2775 * 
23FE 2776 EML2 eQU st 
23FE FIF2406040C6C1D3 2429 2777 EMLZN oC CL44°12 — FALSE INTERRUPT PENDING -TIO~ CONDITION® Se ; 
eae SNe ae 2406 E2C540C9D5E3C509 2777 
240E DIESDTES40D07C505 2777 
2416 C4C9D5CT4060E3C9 2777 @ 
241E D66040C3D6D5C4C9 2777 
2426 E3C9D6D5 2777 
2778 * S 
242A 2779 EM13 equ) * 
242A FLF3406040C5ETD7 244F 2760 EM13N DC CL38°13 - EXPECTED SCAN EQUAL DIO NOT occuR' 
2432 C5C3E3C5C440E2C3 2780 | @ 
243A C1DS40C5D8E4C 103 2780 : 
2442 40C4C9C4400506E3 2780 . 
2444 40D6C3C3E4D9 2780 : . & 
2781 * 
2450 2782 EM14 equ) * , 
2450 FLF4&406040C5E707 2479 2783 EM14N DC CL42*14 - EXPECTED SCAN HIT -TIO- DID NOT OCCUR | @ 
2458 C5C3E3C5C440E2C3 2783 
2460 C).0540C8C9E 34060 2783 | 
2468 ESCIDEGOSOC4CIC4S 2783 | @ 
2470 40D506E340D6C3C3 2783 : 
2478 E4D9 2783 ' 
2784 * e@ 
247A 2785 EM15 equ # 
247A FIF5406060E4D5C5 24A1 2786 EMLSN DC CL40°15 — UNEXPECTED SCAN HIT -TIO- COND ITION* Be 
2482 ETDICSC3ESCSC440 2786 , © 
248A E2C3C1D540C8C9ES 2786 \ 
2492 4060E 3C9D66040C3 2786 : . 
249A BEDSC4CIESCIDEDS 2786 & 
27687 ¢ 
24A2 2788 EM16 equ * 
24A2 FIF6S06060C4C4C4 24BD 2789 EMIEN oc CL28*16 — DODR RESIDUAL INCORRECT @ 
24AA DI4ODICSEZCICSES 2789 
2482 €10340C9D5C30609 2789 - 
24BA DSC5C3E3 — 2789 i @ 
2790 * | 
24BE 2791 EM17 equ. * 
24BE FIFT406040C4C4C3 26C6 2792 EMLTN DC CL9O*17 — BBCR* & 
2406 D9 2192 
DATE 23AUG75 OSNOVTS 19MARTS ; 7 PROG 10 Ci2-2, DATE 23AUGT5 OSNOVT5 19MART6 4 PROG 10 ci2-2 
- €C NO. 827785 827827 827872 PAGE | 
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‘IBM MAINTENANCE DIAGNOSTIC PROGRA PART NO. 4247603 | 18M MAINTENANCE DIAGNOSTIC PROGRAM ; . el NO- sere 
pees i PAGE 29 ee AGE 
(C122 3340 FUNCTION TESTS — ROD 12 f C122 3340 FUNCTION TESTS - MOD 12 
: Sie, % . 2 
“ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
CEnEsdeetESE4ESESEESEEESERSESETSSEEESESERESERER EER SESESSSETEEE EET SS 959% { i 2588 010C 2589 2877 LEXTZ DOC XL2*010C* R4-RT ——-> EXTERNAL ZONE REG 
es * 258A 000C 2588 2878 LEXTAR OC xi2*000C* R3-R7 —-> EXT ADDR REG CEXTAR) 
ee 2812 * CONSTANTS AND RESERVED STORAGE AREAS * 258C 020F 258D 2879 LALUD oC XL2*O20F* Y REG --> A REG --> D REG 
2813 * * { 258€ 0200 258F 2880 LEXT oc XL2*02008 D REG —-> EXTERNAL REG 
: 2814 RSE EEDEEERASESERERECEAESEELESEAEESERESESEOLESSERER ESTERS SEE EE ETSETELE SS 2590 C809 2591 2881 CEMODE OC xt2*C809" CE MODE INDICATORS --> X REG 
2815 * , ; C 2592 0002 2593 2882 SNS23 pC =—._soxt. 2" 0002 SENSE ERROR BYTES 
* NSTANTS [ & > 2883 * 
Sait * 2594 2884 EXTBL EQU) * ATTACHMENT 
ee 2522 0000000000000000 2528 2818 NULLS pc 10XL1*00° 2594 2p8c 2595 2885 FIR oc XL2*°2080* EXTERNAL 
252A 0000 2818 ; C 2596 2000 2597 2886 oc XL2* 2D00° . REGISTER 
is 2819 * 2598 2F00 2599 2887 SCN DC XL2*2F00° . ADDRESS 
252C Fl 252C 2820 Dl oc cLitie = 259A 3300 2598 2888 DXC oC XL2*3300° TABLE 
1 7 2821 * i.  259C 2500 2590 2889 FTG oc XL2*2500° 
252D 000001 252F 2822 Pl oc 1L3¢1* 259E 238F 259F 2890 OST pc XL2*238F° 
2539 0002 2531 2823 P2 oc 1L2¢2° . 2540 2300 25A1 2891 oc XL2*2300! 
2532 0004 2533 2824 P4 oc IL2*4 € 25A2 2780 25A3 2892 FHF pc XL2°2780* 
2534 00000005 2537 2825 PS DC 1L4°5° 25A4 2700 2585 2893 oc XL2*2700° 
2538 00000008 2538 2826 P8 oc IL4*8* 25A6 3F00 25A7 2894 SBO DC XL2*3F00* 
253C 0014 2530 2827 P20 oc 1L2*20° €> 2548 FF 25a8 2895 oc XL1°FF* 
: 253E 0050 253F 2828 P80 oc 1L2°80° KMG 2896 * 
2540 00000100 2543 2829 P256 DC 114°256* 2897 %----------———— nnn 
3 i; 254% 0150 2545 2830 P349 oc 1L.2°349¢ ¢ 2898 *- COMMON INDICATGRS AND WORK AREAS 
1 2546 O&AF 2547 2831 P1200 oc 1L2°1199° 2899 *¢ ~~. “ 
‘ ; 2832 * 25A9 2900 MSG equ) * 
A | 2548 FFFF 2549 2833 Nl oc IL2*-1* €& 2sa9 25AE 2901 MSGA DS CL6 ERROR MESSAGE 
| 2 2834 * 25AaF 25F8 2902 MSGN DS CLT4 BUFFER AREA 
e 254A FEEFFFFE 254D 2835 FFPTN oc SXLL*FFS - SCAN TEST MASK : 25F9 00 25F9 2903 pC XL1°00* : 
dl 2836 * '¢& 2904 * | 
254E TITTFFAA 2552 2837 WCPTN oc AXL4*7T7T7F FAAS WORST CASE TEST PATTERN 25FAa 00 25FA pb IND DC XL1°O° PROGRAM INDICATORS 
7 2838 * ye 2906 * : ee: 
a 2552 2839 PATRN equ st G 25F8 25FC 2907 SWS os XL2 «DATA SWS SENSE AREA Ss 
7 2552 2555 2840 DS = XL 4 TEST PATTERN TEMPORARY STORAGE 25F8 2908 LINKID EQU SHS-1 SWS 1 & 2 CONTAIN AMOP LINK CONTROL 
. 2841 * 2909 * 
z 2556 0003€8 2558 2842 DC IL3*1000° INTERVAL TIMER INITIAL VALUE ‘© = 2seo 2600 2910 SSwSV DS si XL& SECTION SENSE SWITCH STORAGE 
| 2559 00 2539 28643 INTVL oc IL1*0° 2911 * 
2844 * 2601 2605 2912 CMD os CLS COMMAND NAME 
255A 266E 2558 2845 DGSNS@ OC AL2(DGSNS) ADDR OF RD DIAG SENSE AREA Ge 2606 260C 2913 CYL os Ct? CURRENT CYLINDER ADDRESS $3/3340 
| 2846 * 260D 2611 2914 HD DS CL5 CURRENT HEAD ADDRESS $3/3340 
: 255C 268E 255D 2847 ODCR oc AL2(DOCF) INITIAL DDCR INITIALIZATION VALUE 2915 * 
255E 269£ 255F 2848 ODOR a AL2(DD0F) INITIAL DDOR INITIALIZATION VALUE €& =. 2612 2613 2916 LPCNT . DS XL2 ROUTINE LOOP COUNTER 
2849 * 2614 2614 2917 ERRCNT - DS cil ERROR RETRY COUNTER 
' 2560 FE6000 2562 2850 TIM3S oC XL 3*FE6000° INITIAL VALUE FOR 3 SECOND TIMEF 2918 * 
2851 * G 215 2616 2919 ADRPTR ODS xL2 — DRIVE SELECTION POINTER 
2852 *------~-— San patina _ 2920 * 
2853 * ‘SVP INTERFACE CONTROL BYTES | 2617 2921 ADRTBL EQU * 
-. & 2854 * .@ 2617 261F 2922 OS XL9 DRIVE SELECTION TABLE 
| 2563 2855 SVPSEQ EQU) ® SYSTEM RESET SVP CONTROL STRING 2923 * 
2563 0008 2564 2856 oc xL2°0008° X*00* -—> OP REG C 2620 2621 2924 IDDCR os XL2 INITIAL DDCR VALUE 
2565 OO0A 2566 2857 oc XL2*000A" X00" ——> OP REG CR G& 2622 2623 2925 IDDDR 0s xL2 INITIAL DODR VALUE 
2567 8FOB 2568 2858 oc XL2*8FOB* INDEX VALUE (BF) -—-> OP REG V 2926 * : 
2569 020F 256A 2859 DC XL2*O020F * OP REG Y —-> A REG --> 0 REG BY abs 2624 2625 2927 RDDCR oS XL2 RESIDUAL DDCR VALUE 
: 2568 BBE 256C 2860 pc XL2*8B0E* D REG --> INDEX REG  & 2626 2627 2928 RDDOR oS XL2 RESIDUAL DDOR VALUE 
4 256D O80E 256E 2861 OC XL2*O80E* . SERVICE ACCESS CYCLE 2929 ® 
256F 8802 2570 2862 oc XL2°8802* RESET SERVICE MODE 2628 2930 I0DCF equ st INITIAL DOCF 
2571 2009 2572 2863 oc XL2*2009* SYS RESET FLAG -—-> X REG © =s.2e28 2631 2931 IDDCFN ODS XL10 
2573 0003 257% 2864 SVPREQ OC XL2*0003* SET SVP REQUEST . ; 2932 * 
: 2575 OOSE 2576 2865 oc XL2* OQOE * EXECUTE FIRST MICRO-INSTRUCTION 2632 2933 RDDOCF EQu)e RESTOUAL DOCF 
: 2577 00 2577 2866 K oc xL1°00° RESTORE K REG :& 2632 2638 2934 RDDCFN OS xL100— 
i 2578 02 2578 2867 oC xL1°02° 2935 @ A i 
2579 O00E 257A 2868 RUNMP oc XL 2* OOOE * START MICROPROCESSOR 263C 2630 2936 SNS DS XL2 3340 ADAPTER SENSE INFO 
j 2578 FF 2578 2869 DC XLEC FFE END SVP STRING i © 2937 ® 
: 2870 * 263E 2938 WORK equ) * GENERAL PURPOSE 
257C 8802 257D 2871 K04 pc xt 2°8802° HALT MICROPROCESSOR 263E 2641 2939 WORKN DS XL4 WORK AREA 
257E 9802 257F 2872 K03% DC XL2*9802° RESET MICROPROCESSOR CLOCK C 2940 * 
2580 A802 2581 2873 K024 oc XL2*AaO2* SET SERVICE MODE 2642 2941 DRYWK EQU * START OF DRY DEPENDENT WORK AREAS : 
: 2584 OOOA 2585 2875 CR oc XL2*000A* x*00* —-> GP REG CR '€ 2943 ¢ DRIVE 1 INDICATORS AND WORK AREAS . 
o 2586 0008 2587 2876 Y oC xL2*0008' X*00* -—-> OP REG Y 294% @ ; 
: DATE 23AUGT5 OSNOVTS LOMARTS PROG ID C12-2 Cue 23AUGT5 OSNOV7T5 19MAR76 PROG 10 C12-2 
: —C NO. 827785 #$ 827827 827872 PAGE 29 — ¢* NO. 827785 827827 827872 PAGE 29A 
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ERR LOC OBJECT CODE 
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264F 
2651 
2653 
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266A 


2664 
2660 


266E 


268E 


266E 


269E 


DATE 
EC NO. 
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SPCC CCC HCC eee 
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Fi 
co 
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80 
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900 
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ce 


04 
40 
20 
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2642 
2642 


2643 
2644 
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2646 
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2648 
2649 


2640 
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2659 
2652 
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2654 
2656 
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2666 
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2685 
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2698 
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STMT 


29465 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2990 
2992 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 


SOURCE STATEMENT 
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DIND 

* 

ORV 
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CLitit 
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XLL 
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STMT SOURCE STATEMENT 

3013 SELAEKLEKKAEELESTES ERE EEKESSE AKERS SEES ESEEEEREREREREEORTESETESNEOEOREREERES 
3014 & 2 
3015 * SYMBOL OEFINITIGNS * 
3016 * 2 
3017 SESEKESERSEEEKAECERERESEEREER EEE SE CERESESRESREREOREHOSCEEKENTEESHEREEERE 
3018 * 

3019 * LOCAL STORE REGISTERS 

3020 * 

3021 XRi EQU X*O1* INDEX REGISTER 1 

3022 XR2 EQu X*O2* INDEX REGISTER 2 

3023 * 

3024 PSR EQU X*04¢ PROGRAM STATUS REGISTER 

3025 ARR EQU X*O8* CURRENT LEVEL ADDRESS RECALL REG 
3026 * 

3027 PEAR EQU X*20¢ PROGRAM LEVEL INSTRUCTIOY ADDR REG 
3028 * ; 

BQ 2G Bm ne en re re ee er ree + eet ie ee Aaa eee ED Ro 

3030 # COMMON SENSE SWITCHES 

3031 * . 

3032 S$SWO5 EQU K*Q4t USE ALTERNATE PRINTER (3277 CRT} 
3033 * 

3034 Bema ee en ee ——— 

3035 . SECTION SENSE SWITCHES 

3036 * 

3037 SSwWil EQU X*40Q8 INHISIT TESTING ON DISK DRIVE 1 

3038 SSW1i2 EQU X*20¢ INHIBIT TESTING ON DISK ORIVE 2 

3039 * 

3040 S$SWiA EQU X*208 USE DRIVE 1 ONLY 

3041 SSWiB EQU X*10# USE DRIVE 2 ONLY 

3042 # 

30432 SSw2i EQU X*4Qe INHIBIT WRITE TESTING ON ORIVE 1} 
3044 SSW22 EQU X*208 INHIBIT WRITE TESTING GN DRIVE 2 aaa 
3045 * 

3046 SSW2F EQU X*O18 ENABLE AMOP (SECTION C19} 

3047 * . ; 
3049 + MESSAGE / HALT IDENTIFIERS 

3650 * 

305% HLTOG £QuU X*C160# NG HALT 

3052 HiLTOL EQU X*Cior COMMON 3340 ERROR HALT 

3053 HLTE2  EQU X*Ci€2? SSW 11~12 OR LA-18 INVALIO KRG 
3054 HLTES EQU K*Cle4e SELECT OREVE TG BE ENITIALIZED 

3055 2 

3057 = COMMON PROGRAM INDICATORS (IND) 

3058 2 

3059 HUNG EQU K* soe HANG CGNOITION OCCURRED 

3060 HLTSW EQuU X*408 ERROR HALT AFTER TESTING ALL DRIVES 
3061 INTERR EQU X*20% ERROR DETECTED IN 3340 INTERRUPT RTN 
3G62 ORVERR EQU K*1o® UNIT CHECK DETECTED IN INTRP RTH 
3063 TIOERR EQU X*oet TIO INTRP PENDING FAILED 

3064 OPENO “EQU Xt OG? GP END INTERRUPT EXPECTED 

3065 SKEND EQU X*O2* SEEK COMPLETE INTERRUPT EXPECTED 
3066 SNSAVi EQuU ROL! READ SENSE DATA AVAILABLE 

3067 ¢ 

3068 Bann rn a ne en oo eon 
3069 * DRIVE DEPENDENT INDICATORS (DIND} 

3076 * 

3071 CEDM EQU X*egr CE DATA MOBULE MOUNTED 

3072 LPSW EQU X*408 DRIVE LOOP INDICATOR 

3073 HAEDEF EQU X*208 DEFECTIVE EVEN HONE ADDRESS 

3074 HAQODEF EQU X*108 DEFECTIVE ODD HOME ADDRESS 

3075 NOWR EQU X*°Q385 ENHIBIT WRITE TESTING 

3076 Sw EQU X*Qit GENERAL PURPOSE PROGRAM INDICATOR 
3077 # 

3078 %---—~—— = om ~-----—--~~ ~ : 
3079 *& 3340 PROGRAM COMMUNICATION AREA (COM) INDICATORS 

3060 * 

LOMARTE PROG IB Cl2-2. 
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PART NO. 4247603| 18M MAINTENANCE DIAGNOSTIC PROGRAM © 
PAGE 30 | ¢ 
! 
; ©122 3340 FUNCTION TESTS - MOD 12 
| ERR LOC OBJECT CODE ADDR 
START GF DRIVE 1 WORK AREA ee 
\ 
DRIVE DEPENDENT INDICATORS | c 
ORIVE NUMBER a 
DRIVE ADDRESS 
c: 
SEEK COMPLETE INTERRUPT MASK Ears, 
UNIT CHECK MASK i 0001 
SEEK CG: PLETE INTERRUPT RESET R BYTE] f 0002 
1 
S10 Q BYTE ude 0004 
SIC R BYTE Lee 0608 
4 
CURRENT PHYSICAL ACCESS POSITION & 0020 
FLAG VALUE - 
CYLINDER ADDRESS ie 
HEAD ADDRESS | €> 
RECORD NUMBER 0004 
KEY LENGTH i cae 
DATA LENGTH 1 & 
NUMBER GF RECORDS 
Oe oa De <n > ee ie ge Se we aD Ce OP ED te ee ee CORE? 4 ae a eee ED CD & 0040 
0020 
i 
START QF DRIVE 2 WORK AREA i €& 0020 
i 0010 
DRIVE DEPENDENT INDICATORS € 
| 0040 
DRIVE NUMBER 0020 
DRIVE ADDRESS 
'€ 000t 
SEEK COMPLETE INTERRUPT MASK 
UNIT CHECK MASK 
SEEK COMPLETE INTERRUPT RESEY R BYTE] & 
S10 Q BYTE C100 
SIO R BYTE | @ C101 
CLE2 
CURRENT PHYSICAL ACCESS POSITION e CLES 
FLAG VALUE 
CYLINDER ADDRESS 
HEAD ADDRESS . . & 
RECORD “UMBER coso 
KEY LENGTH : 0040 
DATA LENGTH i & 0020 
NUMBER OF RECORDS ; ool 
0008 
een nw cece EY 0004 
0002 
3340 SUBSYSTEM SENSE DATA 6 0001 
#%* PROGRAM MAINTENANCE NOTE axe KMS: © 0080 
DOCF AND DODF MUST START 6040 
ON EVEN ADDRESS BOUNNALY | & 0020 
: 0010 
ODCE AREA 0008 
| é& 006i 
DODF AREA 
7 3 | € 
6 
PROG ID C12-2: ~~ pate 23AUGT75 OSNOV7S 
PAGE 30 | o™ NO. 827785 827827 
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PART NO« 4247603! IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247603 
PAGE 31: PAGE 314 
C122 3340 FUNCTION TESTS - HOD 12 |. €122 3340 FUNCTION TESTS ~ MOD 12 
i & 
ERR LOC OBJECT CODE ADOR STMT SGURCE STATEMENT "i CROSS-REFERENCE 
0080 3081 ADRSTP €QU  xX*80! MICROPROCESSOR ADDR STOP ENABLED | € SYMBOL T LEN VALUE DEFN REFERENCES 
0020 3082 MPLFLG EQU  xX*20° MICRO-PROGRAM LOADED 
0001 3083 AMOPSW EQU- x'ol' AMOP IN EXECUTION INDICATOR | ABEND A 004 138D 1246 1230 
3084 * | ADRPTR A 002 2616 2919 1108* 1156 1164* 1169% 2385 
3085 *-----------~--------------~---- + -------- a-------+---------------—- '  ADRSTP C 001 0080 3081 2579 ; 
3086 * BIT POSITION SYMBOLS | ADRTBL A OOl 2617 2921 0942 1073 1107 1168 
32087 * : AMOP C001 4000 3117 2501 2520 
0040 3088 BIT1 EQU X40" | AMQPGO A 004 1E76 2520 2502 
0010 3089 BIT3 EQU -X*108 . /  AMOPID A 002 OAL1E 0032 2498 
0008 3090 BITS EQU x08" |) AMOPLD A 004 1£5B 2504 2499 
0004 3091 BITS EQU X*04t | AMOPLK A 004 1630 2488 1057 1219 1825 1921 
0002 3092 BIT6 EQU x*02* | AMOPSW C 001 0001 3083 1056 
0001 3093 BIT? equ X*Ol' | § AMOPX A 004 1€82 2525 2488 2491 
3094 * | AMGPXL A 004 1ETA 2522 2493* 
3095 ¢---------------—--- ---- = ---- --- ween nen =) AMOPXZ A 004 LETE 2523 2494% : 
3096 * DCP SECTION REFERENCE TASLE | & aRR C 001 0008 3025 1045 1268 1285 1368 1380 1408 1438 1461 1482 1521 1553 1567 
30S7 * 1596 1608 1624 1644 1673 1685 1716 1728 1740 1763 1775 1787 
0208 3098 SBYTEO EQU  x*0208! COMMON SENSE SWITCHES 00-07 os 1802 2237 2377 2435 2478 2488 2534 2570 2618 
0209 3099 SBYTE1 EQU  x*0209* COMMON SENSE SWITCHES 08-OF | © BEGIN A 004 213 1045 0051 0085 0121 0156 0200 0260 0325 0361 0424 0511 0609 0696 
020A 3100 SBYTE2 EQU X*O20A" SECTION SENSE SWITCHES 10-17 | 0765 0818 0938 
0208 3101 SBYTE3 e€Qu x*o208°* SECTION SENSE SWITCHES 18-15  BGNX A 004 12CF 1137 1052* 1208 
020C 3102 SBYTE4 EQU  xX*O20C* SECTION SENSE SWITCHES 20-27 | ¢ BGENOL A 003 120C 1054 1191 ‘ 
020D 3103 SBYTES EQU xX*O20D" SECTION SENSE SWITCHES 28~-2F | sBGNOZ «A 006 1238 1071 1123 
3104 * i = BENOZ. =A 004 1267 1090 1077 1086 
0212 3105 TEST equ x*'0212* CHECK CE CONSOLE SWITCHES |< @GNO6 A 003 1289 1105 1092. 1101 
0216 3106 LINK EQU  xX*'Oz216° LINK TO NEXT ROUTINE OR SECTION | BGNO? A 003 1281 1125 1112 
O2Z2A 3107 PRINT EQU  xX*O21A* - PRINT A MESSAGE | BIT1 C 001 0040 3088 0571 0583 0642 0665 0723 0738 
O21E 3208 UNPACK EQU xX*O21E° UNPACK DATA - HEX TO EBCDIC | ¢ gIT3 C90: 0010 3089 2219 2388 
0222 3109 HALT equ x*0222" HALT AND DISPLAY HALT IDENTIFIER | BIT C001 0008 3090 2406 
022A 3110 LOAD EOU xt022A" LOAD NEXT SECTION OR RECORD _ BITS C 002 0004 3091 1226 1857 2219 
3111 * | { B1t6 C001 0002 3092 1577 
— 0232 3112 UTAB eQU  X'0232° OCP UDT TABLE BIT7 C001 0001 3093 0589 0630 0645 0671 0672 O747 1226 1229 1959 2013 2157 2168 
3113 * 2197 2226 2382 2592 
3114 #---—----—--———- ben nee nn enn ann nnn nnn nan | Oc A 002 2583 2374 2627 
3115 * OTHER REFERENCES EXTERNAL TG THIS SECTION | "cc A 002 2650 2962 1338* 
3116 © lé cc2 A 002 2666 2989 
4000 3117 AMOP EQU  X*4000! ADAPTER MANUAL OPERATIONS PROGRAM i CEDM C 001 0080 3071 122 1309 1579 
6C0O 3118 LOR EQU  xX*6C00" 3340 MICROCODE LOADER PGM - MGD 12 | CEMODE A 002 2591 2881 1062 2601 
3119 * _. CMD A 005 2605 2912 1270* 1286% 1370* 1382* 1410% 1440% 14634 1486% 15234 1555% 1569% 1596% 
FFFF 3120 END €. 1610# 1626# 1646* 1675% 1687* 1718* 1730% 1742¢ 1765* 1777® 2258 
con A 001 OAL9 0028 0869% 1056 1059 1251% 2496 2550 2579 
Ic R A 002 2585 2875 2629% 2630 2634* 2635 
€ cve A 007 260C 2913 1277# 1292% 1297* 1345% 2259 
| ~ c1z2 A 001 0000 0007 
| - cl? A 002 1EBA 2554 2538 2541 
€ c19 A002 1668 2512 2498 501 
| ~ DASDI & 004 1056 2377 1827 1905 
|. DASDIX A 004 10C5 2420 2377 
' € DASDX2 A 004 1DC1 -2418 2378% 2414 
| ” DASDO1L A 004 1097 2401 2390 : 
| . DASDO2 A 005 109F 2404 2399 
' € DASDO3 A 004 DAF 2409 
| “~ Qaso04 A 004 1083 2411 2383 2395 
/  DASDOS A 003 1DB7 2413 
; © DASDO6 A 003 DBE 2416 2397* 24018 2407 
: ~ ppce a 001 268E 3007 2847 
| DDCR A 002 255D 2847 1068 1187 
/ € DDDF A 001 269E 3010 0465% 0466 0466% 0526 0527 0527# 0528 0562 0624* 0625 0625% 0626% 
| * 0627* 0628% 0633 0633* 0648 0653 0668 O711* O712 O712¢ 0713% O714% 
so 0726 0741 0996* 2848 
€ ppor A 002 255F 2848 0874 0895 1069 1188 
DELAY A 004 1F1C 2597 2593 
 DGSNS A O01 266E 2998 1821% 2051® 2052 2052* 2054* 2056® 2057# 2212 2214 2335 2340 2345 
€ 2350 2355 2360 2845 
OGSNS@ A 002 2558 2845 2173 2177 
-  DIND A 001 2642 2947 0271 0329 0368 0435 O776 0365 0968* 0969% 09734 0974* 0976 0979% 
. & 0980* 0984* 0985* 0987 0993¢ 1083* 1088* 1098* 1103* 1125* 1206 1207% 
1224® 1309 1579* 
DATE 23AUGT75 OSNOVTS LOMARTE ; PROG ID 12-2: ie 23AUG75 OSNOVTS 1OMART6 PROG 10 C12-2° 
—C NO. 827785 827827 827872 PAGE 31 ae NO. 827785 827827 827872 PAGE 31a 
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Ci22 3340 FUNCTION TESTS ~ MOD 12 C122 3340 FUNCTION TESTS -— MOD 12 


CROSS-REFERENCE CROSS-REFERENCE 


- 


SYMBGL T LEN VALUE DEFN REFERENCES { SYMBOL T LEN VALUE OEFN REFERENCES 
DIND2 A 001 2658 2974 —EM18 A OOL 24C7T 2794 
DL A 0C2 2656 2966 0223 0292 0389 0447* 0995* 1017* 1395 1420 1427 1445% 1452® 1499 EM18N A009 24CF 2795 2122 

1506 i528 1617* 1633 1660 1701 EM19 A OOL 24D0 2797 

OLYLP A004 1F20 2598 2599 / EMLON A 009 2408 2798 2129 
DL2 A 002 266C 2993 - > —M20 A OOL 24F3 2803 
ORV A 001 2643 2949 2257 EM20N A 020 2506 2804 2141 
DRVADR A 001 2644 2950 1805 1807 1808 2167 EM30 A OOL 2507 2806 0912 
DRVAD2 A OOL 265A 2977 + €MBON A 027 2521 2807 0912 0913 
DRVERR C 001 0010 3062 1194 2207 2409 ERRCNT A 001 2614 2917 1066* 1144 1147 1154* 1221 1232® 1234 1242* 
DRVWK A OO1] 2642 2941 0038 _ ERRPRT A 004 1C4F 2237 1222 
DRVWK1 A OOL 2642 2945 .1079 ' ERRPX A 004 1052 2368 2237* 2319 
ORVWK2 A 001 2658 2972 1094 ERRPO1l A 004 1C6C 2250 
DRV2 A OOl 2659 2976 '  ERRXX A 003 1863 2147 1830 1911 1975 2073 2079 2085 2091 2067 2103 2136 
OST A 002 259F 2890 . 7. -ERRXXA A 004 187A 2157 2150 2153 
DxC A 002 2598 2888 ERRXXB A 005 1898 2167 2161 
dl A 00k 252C 2820 1232 1297 1302 1345 1350 ERRXXC A 004 1BEE 2196 
EMXX ACOl 218€ 2721 . ERRXXO A 004 1BFE 2202 2165 
EMXXN A 006 21€3 2722 2239 ERRXXE A 004 1C2F 2219 2208 
EMOA A OOL 2312 2754 ERRXXF A 006 18£0 2192 2194 
EMOAN A O31 2330 2755 2021 ‘ § ERRXXG A 004 1C3F 2225 2193 . 
—EMOC A OOlL 2331 2757 ERROA A 006 LA7T2 2021 2211 2213 .2215 
EMOCN A O18 2342 2758 2028 i ERROC A 006 ATC 2027 1960 2014 2158 
EMOD A OGL 2343 2760 i / €RROD A 006 1A91 2036 2223 
EMODON A O25 2358 2761 2036 ERROE A 006 LASB 2042 2221 
EMOE A OO1L 235C 2763 : ERROF A 006 1AA5 2048 2198 2227 
EMOER A 043 2386 2764 2042 | ERROFA A G04 1AB1L 2051 2031. 
EMOF A OOL 2387 2766 ERROO A 006 19CA_ 1934 1839 1846 2181 
EMOFN A 023 2306 2768 2049 '  ERROL A 006 1909 1941 1832 2188 
EMOO A OOl 21C4 2724 | & ERROZ A 006 19E2 1947 1852 

er EMOON A 008 21CB 2725 #1935 ERROZ A C06 1968 1953 1855 2178 oe " 
EMOL A OOL 21CC 2727 '  ERROZA A 003 19FT 1956 1948 
EMOLN A 039 21F2 2728 1941 ; € ERRO* A OCO6 1A09 1967 1875 
—EMO2 A OO1l 21F3 2730 ERROS A 006 ILALS 1974 1868 
EMO2N A 032 2212 2731 1947 1953 '  ERROG A 006 1A22 1980 1878 
EMO3. A OOL 2213 2733 : € ERROT A 006 1A2B 1986 1883 
EKO3N A 0O9 2218 2734 1954 : ERROS A 006 1A34 1992 1891 
EMO A OOL 221C 2736  ERROBA A 006 1LAZA 1994 1981 1987 
EMOGN A O3L 223A 2737 1934 1968 | € ERROBB A 004 1A40 1996 1999 
EMOS A 001 2238 2739 ERROBC A 003 1A51 2001 1997 
EMOSN & 046 2268 2740 1974 ; ERROQ A 006 1A54 2006 1896 2170 2229 
EMO6 A 001 2269 2742 ; ' € ERROQA A 004 1A5A 2008 1969 2001 
EMO6N A 042 2292 2743 1980 i ERROOB A 004 1A62 2011 1936 1942 : 
EMO? A O01 2293 2745 ERRIA A 006 1850 2135 0724 0739 
EMO7TN A O41 2288 2746 1986  € ERRLO A 004 1A05 2066 1903 
EMOS A GOL 228C 2748 ERR11 A 006 LAED 2078 2069 
EHOSN A 045 22E8 2749 1992 _ ERR12Z A 006 1AF2 2084 2066 
EMO9 A OOL 22E9 2751 € ERR13 A 006 1AFB 2090 0572 0584 0643 0666 
EMOON A O41 2311 2752 2006 ERR14 A 006 1804 20696 0569 0581 0640 0663 O721 0736 
EMLA A 001 2409 2800 ERR15 A 006 180D 2102 0534 0542 0550 0558 : . 
EMLAN A C26 24F2 2801 2135 { ERRI16 A 006 1816 2108 1356 1401 1432 1512 1544 1586 1637 1664 1707 1754 
EM10 A OOL 2307 2770 ERR17 A 006 1820 2214 1917 
EMION & 024 230€ 2771 2071 ERR18 A 006 1830 212% 0224 0293 0390 1359 1392 1422 14¢8 1500 1539 1541 1589 1634 
EM11 A 001 23DF 2773 € 1661 1702 
EMLIN A O31 23fF0 277% 2078 “ ERRLO A 006 1840 2128 0229 0298 0395 0484 0649 0654 0669 0727 0742 
€M12. A OOl 23FE 2776 _ ERR2O A 006 1859 2141 2217 
EM1LZ2N & 044 2429 2777 2084 : ERR3O A 004 10F4 0908 0878 0885 0890 
EM13 A COL 242A 2779 ' EXTBL A 001 2594 2884 2621 
EM13N A 038 244F 2780 2090 _ FAOID A 002 OA20 0033 
EMi4 A& 001 2450 2782 { fF A OOL 264E 2961 
EML4N A 042 2479 2783 2096 . FFPTN A 001 254D 2835 0648 0653 6726 
EM15 A OO1 247A 2785 _ FF2 A 001 2664 2988 
EMISN A 040 24Al 2786 2102 ( FHF A 002 25A3 2892 
EMl6e A OOL 2402 2788 ’ £1G & 002 2590 2889 
EM16N A 028 2480 273° 2108 2114 2121 2128 FIR A 002 2595 2885 
EMi7 A 001 24BE 2791 &{ HAEDEF C 001 0020 3073 0969 0974 0987 - 
EMLTIN A 0O9 24C6 2792 2115 . HALT C 001 0222 3109 0916 0953 1120 i1L77 1253 
DATE = 23AUG7TS OSNOV7S LOMARTS : PROG ID C12-2: Cio 23AUGTS OSNOVT75 LOMART6 proc 10° Cl2-2 
EC NO. 827785 827627 Ss278T2 PAGE 32, _ EC RO. 827785 827827 827872 PAGE 32A 
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C122 3340 FUNCTION TESTS - MOD 12 c C122 3340 FUNCTION TESTS - U0 12 
4... 
CROSS-REFERENCE CROSS-REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES f SYMBOL T LEN VALUE DEFN REFERENCES 
HAODEF C 001 0010 3074 0976 0980 0985 MSCNRE A005 2188 2718 1765 
HD A 005 2611 2914 1278* 1293 1302* 1350*® 2260 - 4 MSCNRH A 005 2180 2719 1777 | 
HH A 002 2652 2963 1339* 1361 1616¢ EK A005 2154 2698 1288 
HH2 A 002 2668 2990 MSG A001 2549 2900 2257* 2258% 2259% 2260® 2265 2270 2272® 2277 2282 22867 2296* 2301 
HLTE2 C 001 C1E2 3053 1118 1121 a 2306 2311 2336 2341 2346 2351 2356 2361 
HLTES C 001 ClE& 3054 0951 0954 MSGA A006 25AE 2901 1934* 1935% 1941 1967% 1953# 1954* 1968% 1974* 1980% 1986% 1992 2006% 
HLTSW C 001 0040 3060 1174 1180 1243 2021* 2028* 2036* 2062* 2045% 2071* 2078* 2084* 2090% 2096% 2102% 2108% 
HLTOO C O01 C100 3051 2508 2518 2548 e 2114* 2115® 2121% 2122* 21284 2129* 2135® 2141% 22398 
HLTO1l C 001 C101 3052 0914 0917 1178 1254 2248 “MSGN A O74 25F8 2902 1816 1816® 1967 1967* 2027 2027* 2048 2048* 2205 2205* 2247 2255 
HUNG C 001 ©080 3059 O877 0884 1838 1845 1874 2180 2187 2453 2468 : 2255* 2292 2294 2294* 2316 2321 2321* 2366 
IDDCF A 001 2628 2930 '£ MSGOA A OOL 20C1 2687 0949 
—IDDCFN A 010 2631 2931 1358 1588 1811* 2286 MSGOAN A 045 210E 2689 0949 0950 
IDDCR A 002 2621 2924 0172* 1068* 1187* 1813 1835 1851 1913 1916 2241 2276 _MSGOB AOOl 210F 2691 2330 
IDDDR A 002 2623 2925 0060* 0173* 0226 0234 0235* 0295 0303 0304* 0392 0400 0401% 0442 { MSGOBN A 026 2143 2693 2330 2331 
0457* 0463* 0472* 0478% 0479 0489 0490* 0630 0645 0671 0672* 1009 MSGO1 A001 1F9A 2659 2546 
1069* 1188* 1355 1394 1425 1504 1543 1576 1581 1636 1663 1706 _ MSGOIN A 019 1FAC 2660 2546 2547 
1753 1842 1854 2281 { MSGO2 A O01 IFAD 2662 2506 
IND A 001 25FA 2905 O877 0884 1065* 1174 1180* 1193* 1194* 1243% 1829 1838 1845 1860* MSGO2N A019 1FBF 2663 2506 2507 
1865* 1866* 1874 1882 1887 1907 1910 1996 2059% 2068 2149 2180 MSGO3 A OOl FCO 2665 2516 
2187 2200 2202 2207 2318 2389 2394 2398 2402% 2409 2411% 2453* { MSGO3N A O17 1FDO 2666 2516 2517 
24684 MSGOS A 001 1FDL 2668 1116 
INTERR C 001 0020 3061 1194 1329 1910 2149 2202 2411 . , MSGO4SN A 042 1FFA 2669 1116 1117 
INTVL A 001 2559 2843 '€ MSGO5 A001 1FFB 2671 1147* 1151 
K A 001 2577 2866 1130 1199 2578* 2581* MSGOSN A 025 2013 2672 1151 1152 
KL A001 2654 2965 1426 1505 . MSGO6 A 00} 2014 2674 1248 
KL2 A 001 266A 2992 { MSGO6N A G50 2045 2675 1248 1249 
KO24 A 002 2581 2873 2625 MSGO7 A001 2046 2677 1239 
KO34 A 002 257F 2872 2624 - _ MSGO7N A 028 2061 2678 1239 1240 
KO04 A 002 257D 2871 2623 ‘ € MSGO8 A 001 2062 2680 2252 
See LALUD A 002 2580 2879 2641 MSGO8N A 020 20A6 2682 2252 2253 
LOR C 001 6C0O 3118 2541 2556 . MSGO9 A 001 20A7 2684 2325 
LORGO A 004 1688 2556 2542 { MSGOON A 026 20CO 2685 2325 2326 
LORID A 002 OAIC 0031 2538 MWRCCD A 005 219F 2713 1675 
LORLD A 004 1£A6 25466 2539 '  MWRCKD A 005 219A 2712 1646 
LEXT A 002 258F 2880 2642  { MWRHAE A 005 2188 2709 1598 
LEXTAR A 002 2588 2878 2640 : MWRHAO A 005 2190 2710 1610 
LEXTZ A 002 2589 2877 2632 _MWRKD A 005 21A9 2715 1718 
LINK C 001 0216 3106 0070 0106 0141 0185 0245 0312 0346 0411 0495 059% 0680 0752 MWRREP A 005 21A4 2714 1687 
0800 0852 “MWRROO A 005 2195 2711 1626 ; 
LINKID A 002 25F8 2908 1218 1824 1920 NN A 001 2657 2967 1275*# 1320# 1387* 1416* 1468% 1491* 1495 1507 1532¢ 1536 1615* 1653* 
LIO. =A 004 «1808 1835 2447 = 1657 1658% 16946* 1698 1699% 1749% 1811 1814 
LOAD §=C 001 022A 3110 0922 1033 1256 2510 2552 NN2 A001 266D 2994 
Loop) 864 006 «#1328 = «1187 0068 0104 0139 0183 0243 0319 0409 0592 0678 0750 0850. 1031 _NOKMN A 004 1112 0922 0867 
1166 1235 €nwowR C001 0008 3075 0271 0329 0368 0435 0776 1088 1103 
LooPX A 004 136E 1210 1048* NULLS A 001 252B 2818 0628 0813 0996 1127 1196 1275 1320 1387 1445 1528 1615 1618 
LPCNT A002 2613 2916 0049* 0067* 0258* 0309*% 0442% 0463 0478 0481* 0486*% 0607* 0677* 0816* 1819 1821 1994 2152 ; 
0831 0848* 0849  E-nxorv A 003° 12031142 0065 0099 0134 0178 0238 0272 0307 0330 034% 0369 0404 0436 
LPSW C001 0040 3072 21125 1206 1207 1224 : 0493 0586 0675 0744 O777 0798 0844 1026 124% 1315 
MPL A 004 1686 2534 0920. 1060 _ NXDRVX A 004 1327 1182 1049% 1175 
MPLFLG C 001 0020 3082 0869 1059 1251 € NXDOl A 00% 12EF 1156 1145 
‘MPLX A 006 1EC7 2561 25348 “ NXDO2 A004 1307 1168 1159 
MPLXL A004 1E8F 2558 2535% Nl A 002 2549 2833 1295 1300 1343 1348 1507 
MPLX2 A 004 1€C3 2559 25368 { OPEND C 001 000% 3064 1193 1860 1865 1907 1996 2068 2389 2402 
MROCKD A 005 2168 2702 1440 GRIENT A 004 1866 1787 0213 0218 0276 0281 0287 0524 0536 0544 0552 0560 0574 0622 
MRODGN A 005 216D 2703 1463 be 0656 0709 0729 
MROHAE A 005 2159 2699 1370 | CCORINTX A 004 1876 1793 1787# 
MROHAO A 00S 215€ 2700 1382 PA A 00% 264D 2959 1361* 1392 1616 
MROIPL A 005 2186 2708 _PATRN A001 2552 2839 0508* 0509 0528 0588 0588* 0589 0591 0693* 0694 0713 0746 0746+ 
MROKD A 005 2172 2704 1484 O7T47* 0749 
MROLOG A 005 217C 2706 1555 PA2 A 00% 2663 2986 
MRDROO A 005 2163 2701 1410. _. PFC A 002 OA0? 0020 
MROSNS A 005 2161 2707 1569 { PIAR CC 001 0020 3027 
MROVKD A 005 2177 2705 1523 PID A 002 0AO1 0016 0815 0919 
MRECAL A 005 214F 2697 1270 PRINT C 001 O21A 3107 0910 0947 1114 1149 1237 1246 224% 2250 2289 2313 2323 2328 
MSCANE A 005 21AE 2716 1730 €.: 2363 2504 2514 2544 
MSCANH A 005 2183 2717 1742 PSR C 001 0004 3024 
€> 
DATE 23AUGT75 OSNOVTS LOMARTE ; PROG 10 C12-2 DATE 23AUG75 OSNOV7S 19MART6 PROG IO 
° EC NO. 827785 827827 827872 PAGE 33 ee NO. 827785 827827 827872 PAGE 
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C122. 3340 FUNCTION TESTS - MOD 12 | 
| 
| © SYMBOL T LEN VALUE DEFN REFERENCES 
| 
| 


Pl A 003 252F 2822 0067 0101 0136 0180 0240 0309 0406 0677 0848 0889 1028 1323 RSTX2 A 004 1F3A 2607 2572* 
1454 1475 1790 1895 1902 1998 2192 2589 259% 2598 RTN A 001 OA03 0018 
P1200 A002 2547 2831 0896 RTNOA A 001 0094 0504 0422 
P2 A 002 2531 2823 1514 1546 1666 1709 1756 RTNOB A O01 OE57 0603 0506 
P20 A 002 2530 2827 1332 1335 ; RTNOC A O01 OFLE 0689 0605 
P256 A 00% 2543 2829 0223 0292 0389 0481 1010 1017 | ~soaatNod «6A OOL «OFBD «(0761 0691 
P349 «=A 002 2545 2830 0835 RTNOE A 001 1006 0809 0763 
P4 A 002 2533 2624 0231 0300 0397 0486 1014 RTNOF A 001 1077 0861 0811 
PS A 004 2537 2825 0447 | RTNOL A 001 OA3A 0045 0020 
Ps A 004 2538 2826 0995 1617 | RTNOZ2 A 001 OAT4& 0079 0047 
P80 A 002 253F 2828 0899 RTNOZ A 001 OABL 0115 0081 
Q A 001 2648 2956 1272* 1317# 1372* 1384* 1412 1442# 1465* 1456% 1525* 1557* 1571# 1600* RTNO4 A O0Ol OAEA 0150 0117 
1612# 1628% 1648® 1677* 1689% 1720* 1732* 1744% 1767* 1779* 1857 1862 RTNOS A001 0838 0194 0152 
2210 | * RTNO6 A ODL OBAF 0254 0196 
Q2 A 001 265€ 2983 RTNO? A 001 0C33 0321 0256 
R A 001 2649 2957 1273% 1318 1373* 1385* 1413* 1443% 1466* 1487* 1526 1558* 1572* 1601% | RTNGB A O01 0C69 0355 0323 
1613% 1629% 1649% 1678* 1690% 1721# 1733* 1745% 1768% 1780* 1804 RTNO9 A OOL OCE9 0420 0357 
RDCKD A 004 157E 1438 0169 0215 0220 0278 0289 0379 0386 044% 0783 1002 1023 | sogtNic0 4A 001 1117 0932 0863 
RDDCF A 001 2632 2933 0231% 0300 0397* 1391 1420 1452 1497 1499 1538 1540 1633 1660 |. RUNMP A 002 257A 2868 1131 1200 
1701 7 . ROA & 006 OD98 0508 
RDDCFN A 010 2638 2934 1358 1588 1914® 2242* 2310C | ROAA & 004 ODAA 0515 
ROPCR A 002 2625 2927 1818¢ 12°48% 1852 1899% 1916 2008* 2300 | ROAB A 004 OD89 0522 0512 
RDDDR A 002 2627 2928 0457 0472 0893% 0902 0905 1355 1400 1430 1511 1543 1585 1626 : § ROABL A 004 O£lB 0571 0568. 
1663 1706 1753 1819* 1849* 1854 1900* 2009% 2305 :  poaB2 & 004 O0€35 0583 0580 
RDDGN A 004 15AE 1461 ;  ROAC A 006 O£41 0588 0513 
RDHAE A 004 14EA 1368 0091 0097 0132 0167 0211 0274 0339 0375 0438 0522 0620 0797 f ROB A 004 O&€58 0607 . 
0779 0829 0842 0971 | ~ popa & 004 OE6T 0613 
basco RDHAO A 004 14FR 1380 0175 0342 0982 | ROBB & 004 OEF76 0620 0610 0673 
RDHAGA A 005 1500 1387 1375 ; { ROBB1 A 004 OEA7 0635 0631 ai lac al 
a ee RDHAOX A 004 1538 1403 1368¢ 1380* ' " p9p62 A 004 OFBS 0642 0639 
RDKD A004 1507 1482 0468 0474 | _ ROBB3 A 006 OED2 0653 0646 
RDKDA A 004 15E7 1489 1723 | & ROBB4 A 004 CEDC 0656 0651 
RDKDB A 003 1623 1505 1508 ' 20885 A 004 OEEE 0665 0662 
RDKDX A 004 1636 1516 1482 1489 1514* 1716% i  ROBC A 006 OF1O 0677 0611. 
RDLOG A 004 1688 1553 0058 0063 ; & ROC A 006 OF22 0693 
RDROO A G04 153C 1408 0176 1007 : "ROCA & 004 OF34 0700 
RORODA A 005 1556 1420 1456 1477 | ROocB A 004 OF4&3 . 0707 0697 
RDROOX A 004 157A 1433 1408* 1438% 1447 1454% 1461* 1470 1475% | € ROCBL A 004 OF6D 0723 0720 
ROSNS A 004 16A0 1567 0057 0062 009% 0126 9161 0205 0265 0333 0366 0429 0516 0614 '  ROCB2 A 004 OF91 0738 0735 
O701 0770 0823 0959 i ROCC A 006 OFAT 0746 0698 
RDSMSA A 004 16C1 1581 1562 1578 : € ROD A 004 OFC1 0765 
ROSNSX A 004 16E0 1591 1553* 1567* RODA A 004 oOFC9 O769 
ROVKD A 004 163A 1521 0794 '  RODB «=A 003: «~OFDB «(0776 0766 
RDOVKDX A 004 1684 1548 1521% 1530 1546# € ropc A 004 1002 0800 OT6T 
RECAL A 004 1304 1268 0055 0089 0125 0160 0204 0264 0332 0365 0428 0515 0613 0700 ROE A 006 100A 0813 
0769 0822 0958 ROEA A004 1020 0822 
REGLP A 004 1F5E 2629 2647 : € ROEAL A002 102E 0827 0813* 0832 0846% 
REGRST A 00% 1F42 2618 0871 0908 2574 - ~ ROEB A 004 1033. 0831 0819 
REGX A G04 1F96 2650 2618* i ROEB1 A 005 103D 0833 0836 
REGX! A 004 1F92 2649 2619% | ( ROEB2 A 002 1056 0840 0832% 0833% 0834* 0835 0846 
RELOAD A 006 1108 0919 6903 0906 - " ROEC A 006 105F 0846 0820 
RETRY A 003 1372 1215 1962 2016 2022 2037 2043 2061 2109 2116 2123 2130 2142 2203 ' ROFA =A 006-1 MBA 0889 0891 
REZERO A OOF 2140 2695 1277 1278 1292 1293 i € ROL A 00% OA3E 0049 
RR A 001 2653 296% 1415% 1423 1448% 1471% 1490% 1495¢ 1502@ 1531* 1536% 1540 1652* 1657* ' ROIA A 004 OASE 0057 0052 
1693% 1698¢ 1704* 1748* a01B A 006 OA66 0067 0053 
RR2 A 001 2669 2991 £ Ro2 A 004 OA78 06063 
RSTAX A O04 IE1E 2471 2451% ROZA A 00% OA8& 0089 0086 — 
RSTBR A OGL ELL 2461 2455 — ROZAL A 0OL OA94 0094 0063* 0101# 0103 
RSTLP A OO5 IEEE 2583 2586 2587 £ pozB A 006 OASF 0101 0087 
RSTOR A O04 1E22 2478 0875 0882 1836 1843 1872 2174 2185 RO3 A 004 OABS 0119 
RSTORX A 004 LEZC 2480 24784 ROZA A 004 OAC1 0125 0122 
RSTRT A 004 1£12 2468 2460 § RO3ZAL A OOL OACD 129 0119% 0136* 0138 
RSTX A 004 1f3E 2609 2570% R03B 40 A 006 «(OAD §=0136 0123 
RSTXR1L A 004 LELA 2470 24364 2457 ROS A 004 OAEE 0154 s 
RSTXR2 A 004 1€16 2469 2437% ~€ ROSA A 004 OAFA 0160 
RSTX1 A OO4 1F36 2606 2571¢ ~ R048 A 004 O802 6163 0157 
DATE 23AUGTS OSNOVTS LOMARTO ‘ PROG 1D C)2-2, ~ pate 23AUGT5 OSNOV7S LOMART6 PROG ID _ C122 
EC NO. 827785 = 827627 - 827872 . cere o ice NO 827785 827827 827872 | PAGE 


34A 


—_ wee oy. S | Sige ct he, Sages P4 7 Fee tp ee 
CCOCCC CHC COE OHOOC HOS HOH HOO OCH OOO EHR EOH CEES 


@eeeoeo eoeeoeaeoeseeeeeeeeneengeeoeeeeege eee eee ee @ 
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Ci22 3340 FUNCTION TESTS - MOD 12 C122 3340 FUNCTION TESTS — MOD 12 


CROSS-REFERENCE CROSS-REFERENCE 


SYMBOL T LEN VALUE OEFN REFERENCES SYMBOL T LEN VALUE OEFN REFERENCES 





RO4Bi A OOi 0606 0164 0154% 0180* 0182 SKMSK2 A 001 26586 2979 
RO4SC A 0C& 0826 0180 0158 ' SKRST A 001 2647 2954 2397 
ROS A 004 083C 9198 SKRST2 A 001 265D 2981 
ROSA A 004 0848 0204 SKOO A 006 1417 1295 1298 
RO5B A 004 0850 0207 0201 SKOOA A 006 142A 1300 1296 1303 
RO5B1 A 001 OB54 0208 0198 0240* 0242 SKOOB A 005 1430 1305 1301 
RO5B2 A 004 OBST O211 0236 SK0l A 003 1457 1317 1310 
RO5B3 & 005 OBT7A 0228 0232 - $§K02 A 005 1462 1322 1324 
ROSC A 006 O89D 0240 0202 SK03 A CO6 1482 1332 1336 
ROG A 004 OB8B3 0258 SK04 A 003 1498 1338 1333 
ROGA A 004 ObBF 0264 *  §K05 A 006 1404 1343 aa. gsi 
ROG A 003 OBCE O271 0261 0305 SK06 A 006 1487 1348 44 
eee A 004 OBDD 0278 _ SNS A 002 2630 2936 0571 0583 0642 0665 0723 0738 1127* 1196* 1226 1229 19578 *759 
RO6B2 A 005 OCO2 0297 0301 t 2011* 2013 2030 2152 2155* 2157 2164 221° 2220 2269 2380 2382 
RO6C A 006 O0C25 0309 G262 ; 2388 2393 2405 2406 2591* 2592 
ROTA A 003 OC3F 0329 0326 SNSAVL C 001 OOOL 3066 1193. 2059 2200 2318 
RO7B A CO4& OC65 0346 0327 : SNSLP A 004 iFfO07 2591 2595 
RO8 A 004 OC6D 0359 SNS23 A 002 2593 2882 2055 
ROBA A 004 OC79 0365 SSWSV A 00& 2600 2910 1071* 1190 
RO8B A 003 OC8lL 0368 0362 : §SwOS C 001 0004 3032 ; 
RO8B1l A O01 OC8C 0372 0359% 0406* 0408 SSW1A C 001 0020 3040 1090 
RO8B2 A 00% OC9T 0379 0402  S$SW1B C 001 0010 3041 0865 1075 
RO8B3 A 005 OCB& 0394 0398 { SSW1l1 C O0O1L 0040 3037 0866 1076 
RO8BC A 006 OCD? 0406 0363 SSW12 C 001 0020 3038 1091 
ROO A 00& OCED 0424 ; SSw2F C 001 0001 3046 2490 
ROSA A 006 OCF5 0428 i §SW21 C COi 0040 3043 1085 
ROSB A 003 OD04 0435 6425 0491 SSK22 C 061 0020 3044 1100 
RO9B2 A 005 OD60 0483 0487 _ SVPFC A 025 OA39 0035 2496% 2550~ 
ROSC A 004 0090 0495 0426 { SVPREQ A 002 2574 2864 1063 2602 
R10 A 004 1118 0936 0956 SVPSEQ A 001 2563 2855 1129 1198 2576 
RLOA A 004 1127 0942 0939 _ SW C 001 0001 3076 0965 0968 0973 0979 0984 0993 
RLOB A 004 1145 0958 0943 4 Sws A 002 25FC 25907 1217* 1823 1919% 2908 
R10B1L A OO1L 1151 0962 96936¢ 1028% 1030 SYSRST A 004 1LECB 2570 1227 
R1OC A 003 115A 0968 o991 . TEST Cc 001 ©0212 3105 1172 
R100 A003 1171 O979 0966 { TIM3S A 003 2562 2850 oss7 1893 2190 
RLOE A 003 118F 0993 6968 TIO A 004 1803 1832 
R1OE1 A 005 118A 1012 1015 _ TIOBSY A 004 194E 1880 1808* 1809# 1877 1890 
R1 OF A 006 11E£O 1028 e940 i TIOERR C 001 OO008 3063 . 
R2 & 001 265F 2984 TIORDY A 004 1930 1868 1807* 1858 1863 2160 
SAVRSA A 005 IDET 2447 2442 UCKMSK A 001 2646 2953 2163 2404 
SAVRSB A 004 ID0F2 2451 2445 € uUCKMS2 A 001 265C 2980 
SAVRSC A 004 I1DF6 2453 2648 uDTO A 003 OadcC 0023 
SAVRST A 004 10C9 2435 0873 O880 1834 18641 1870 2172 2183 ; . UOTL A 063 OAOF 0024 
SAVRSX A 004 1LEOA 2458 2435*% 2439 i & URPACK C 001 O21E 3108 2262 2267 2274 2279 2284 2298 2303 2308 2333 2338 2343 2348 
SBYTEO C 001 0208 3098 : 2353 2358 
SBYTE1 C 001 0209 3099 _ UTAB C 001 0232 3112 0919 
SBYTE2 C 001 O20A 3100 0866 1076 1091 € WCPTN A 004 2551 2837 0228 0297 0394 0483 0508 0626 0627 0668 0693 O741 1012 
SBYTE3 C 001 O208 3101 0865 1075 1090 ; wORK A OOL 263E 2938 1290% 1295* 1300% 1305* 1307* 1312* 1322*% 1323* 1326 1326*® 1332 1335% 
SBYTES C OOL O20C 3102 1085 1100 | 7 1339 1341% 13437 1348* 
SBYTE5 C 001 0200 3103 1071 1190 2490 | ( :WORKN A 004 2641 2939 0887* 0889* 0897% 0900* 0902 0905 1010% 1014* 1045% 1046 1285* 1286 
$80 A-002 25A7T 2894 1398* 1400 1428* 1430 1510* 1511 1583% 1585 1893% 1895* 1902% 1994% 
SCANE A 006 IL7F6 1728 0530 0635 | 7 1998% 2030*® 2054 2176* 2177 2190 21927 2196* 2197 2225* 2226 2454* 
SCANH A 004 180A 1740 6538 0566 0716 | C 2479 2583% 2584 2589 2594*% 
SCANHA A 004 181A 1747 1735 1770 1782 ' WRCCD A 004 1787 ~ 1673 
SCANHX A 004 183A 1758 1728¢ 1740 1747 1756% 1763% 1775% WRCKOD A 004 1743 1644 0283 0382 0449 93786 0998 1019 
SCN A 002 2599 2887 { WRCKDA A 004 1753 1651 1680 
SCNRE A 004 183E€ 1763 0546 0658 WRCKDX A 004 1783 1668 1644% 1651 1666 1673*% 
SCNRH A 004 1652 1775 0554 0576 0731 WRHAE A 004 16€4 1596 0990 
SEEK & 004 13F8 1285 00932 0128 0163 0207 0267 0335 O371 0431 0518 0616 0703 O772 « WRHAO A 0O& 1L6FT 1608 0341 0977 
0825 0838 0961 WRHAOA A 005 1707 1615 1603 
SEEKA A 004 14CA 1353 1280 1349 WRKD A 004 L7E2 1716 0453 0459 
SEEKX A 004 1466 1363 3268* 1329% 4 wRREP A 004 1796 1685 0790 
$10 A 003 1938 1871 1804 1805¢ 2264 2441 WRREPX A 004 1L70E 1711 1685* 1692 1709 
SIGSNS A 0O3 I18CB 2284 2167% 2168% WRROO A 004 1718 1624 0377 0440 0781 1005 
SKEND C 001 0002 3065 41193 1866 1882 1887 1907 1996 2394 2398 { WRROOA A 004 1728 i631 1619 i 
SKMSK A 001 2645 2952 2392 wWRROOX A 004 4173F 1639 1596® 1608% 1624* 
DATE 23AUG75 OSNOV7S LOMARTS : PROG ID C12-2 DATE 23AUGT75 OSNOVTS 1OMART6 PROG ID Ci2-2 
EC NO. 827785 827827 827872 : PAGE 35 EC NOw 827785 627827 8278T2 PAGE 35a 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C122 


SYMBOL 
XEQ 


XEQX 
XEQO1 
XEQO02 
XEQ03 
XEQO4 
XR1 


XR2 


Y 


3340 FUNCTION TESTS - MOD 12 


T LEN VALUE 
A 004 187A 
A 004 19C6 
A 004 195C 
A 006 196D 
A 006 1989 
A 006 1973 
C 001 0001 
C 001 0002 
A 002 2587 


OEFN 
1802 


1923 
1887 
1893 
1902 
1895 
3021 


3022 


2876 


REFERENCES 
1353 1389 
1751 

1802* 

1880 

18685 1888 
1908 

1897 

0226% 0228 
0895* 0896* 
1051 1051 
1108 1109 
1286* 1290 
1341 1394* 
1470# 1471 
1576* 1577 
1747* 1748 
2439% 2441 
2535 2558* 
2621% 2634 
0038 0223 
0969 0973 
1079* 1980 
1206 1207 
1361 1361 
1416 1420 
1468 1471 
1507 1525 
1572 «41579 
1633 1648 
1690 1693 
1744 1745 
1811 1814 
2392 2397 
2637* 2638 


CROSS-REFERENCE 


1418 


0295* 
0897 
1052 
lil 
1305 
1395 
1489* 
1581 
1749 
2444 
2571 
2637 
o271 
0974 
1083 
1224 
1372 
1423 
1486 
1526 
1600 
1649 
1694 
1748 
1857 
2404 


TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 


DATE 
EC NO. 


23aUGTS 
B2TT8S 


NSNOVTS 
827827 


LOMARTE 
827872 


1450 


0297 
0899% 
1073* 
1156% 
1314 
1397 
1490 
1582 
1789* 
2444% 
2576* 
2644 
0292 
0976 
1088 
1272 
1373 
1426 
1487 
1528 
1601 
1652 
1698 
1749 
1862 
2418 


1473 


0392* 
0900 
1080 
1158 
1322 
1397* 
1491 
1582* 
1790* 
2447 
2583 
2644% 
0329 
os7T9 
1094 
1273 
1384 
1427 
1490 
1531 
1612 
1653 
1698 
1767 
2163 
2437 


1493 


0394 
1009* 
1081 
1161 
1328 
1398 
1504* 
1583 
1813* 
2450 
2585 
2646 
0368 
0986 
1095 
1275 
1385 
1442 
1491 
1532 
1613 
1657 
1699 
1768 
2167 
24639* 


1534 


0479% 
1012 
1081* 
1163 
1328* 
1425* 
1505* 
1651* 
1814 
2450* 
2585* 
2649* 
0389 
0984 
1098 
1309 
1387 
1443 
1495 
1536 
1615 
1657 
1701 
1779 
2210 
2494 


1560 


0483 
1013 
1095 
1163% 
1329 
1426% 
1506% 
1652 
1913* 
2451 
2586 


0435 
0985 
1103 
1317 
1391 
1445 
1495 
1536 
1616 
1658 
1704 
1780 
2257 
2523* 


1574 


0815 
1013* 
1096 
1164 
13314 
1427* 
1510 
1653 
1914 
2457*® 
2597* 


0447 
ose? 
1109* 
1318 
2395 
1448 
1499 
1540 
1616 
1660 
1720 
1804 
2378 
2536 


1631 


0816 

1046% 
1096* 
1168* 
1334 

1428 

15302 
16924 
22412 
2470% 
2598 


O776 
0993 
1125 
1320 
1412 
1452 
1502 
1557 
1617 
1677 
it2. 
1805 
2385* 
2559* 


PART NO. 
PAGE 

1655 1696 
0831% 0833 
1048 1049 
1105 1107% 
1169 1170 
1334* 1338 
1447% 1448 
1531 1532 
1693 1694 
2242 2436 
2493 2522* 
2606* 2619 
0965 0968 
0995 1017 
1161® 1170% 
1338 1339 
1413 1415 
1465 1466 
1505 1566 
1558 1571 
1£28 1629 
1678 1689 
1732 «41733 
1807 1808 
2386 2386* 
2572 2607* 
PROG ID 
PAGE 


{ 


\ 


4247603 
36 


7 £ Ck 


oy 


C12-2. 
36 | 
! 


nome oe 


wy 


Qf 


C122 


C 


ON 


THE CHARACTER 


1 THROUGH 16 


ry 


GBK GBD PN 42 


TCOYIOKH & BTe 


T YR 


oy 


 T+-724 & HICOHI/I 


on 


T6-pt Dll HV<B 


my 


“T10e< CC /1LD0H* 


I 


TUOSE N7 /1LDOH* 


oO 


T+-_A C /1LDOH® 


& 


TDE_LD-3<.M >) OHE 


Oo 


T+->] N7 /1LLDOH* 


: 
” 


T4+-2HH3YAIS! U _ 


“T+-0E E)> - OA 


m 


1 «KQ 


om 


‘T+-1 Mt AFS 


Qo 


Te-1l@ < 60_! /1' 


oO 


1C02-5<BGEDB8B C 


oy 


“74-36 N7 /1LDOH* 


i 


cy 


“T4-48 KQT+-DHHAB 


oO 


“T+-4°PS$-H < ED_] 


“T+-58H20L1 we 0 


cy 


T4-63D2N30 D(SL- 


tg 


“T+-7>D8— NT /1L 


‘DATE 23AUGTS 
_8C. NO. 827785 


a 


x 


© 


_ IBM MAINTENANCE DIAGNOSTIC PROGRAM 


3340 FUNCTION TESTS — MOD 12 


INDICATES A BLANK COLUMN AND THE CHA 


CL 


47602 EC 827872 


emae A & 

” /1G3BUBHRZBGD *L 
GD-+<H/ D>OH#L5<B 
K408 BZEV.34<BZL 
K408 B&4V.34<637 
Na~ 2 KO/+-DWHaB 
Ls<eceoc /1l8 
ORZsGEPS OHFORZB 
POHFKS0B BSEV. 34 
KeaBSE+, /1/WOR* 
SIL G0B+ OWH3Y 


MOHsOY<BGD"- NT 
“pacLoHeL= 
PF<BGEP SAOH*PE0H 
ECI~ /1eLC- <TBM 
* ALDOHePF OAIs< 
21 Zawe<BGE ) *BAEO 
ALS<: KQTOI (ACB 


DOH*ORT 3° 194<"S5 


OSNOV75 
827827 


OBJECT CARD LISTING 


17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 6 


3340 FUNCTION TE 


/1E-OH*OSCYAIS I 
GEDC /1LDOH*L= 
~/<;0H®BE-< B>Y 


-/<,OH®BE-E B3- 


GEIT /1M@0H*K408 


eeeaeaneeneeeonoerce 


GEPBSATEHMIM] J% 
<B5t —/<20H*BE-O 
N-=-G /1/WOH*PEOH 


AIS| U ?+0H*K40@ 


/LLDOH*O* 2BGEI7 


MOH#NA/O /EVER 
21ex<t< 002? /0H 
WHABGEPSAT HMIL- 
AIS<WE@BGEISGA 0 
Gb_{ /OHOB- +NOO 


#1946< SE-INL /1> 


LOBMARTGS 
827872 


STS ----- MOD 12 


” /1E-OH#0S<BGD_< 
a »COH*Ja0,AB_T 
a” sFoHsJa0%ee2$ 
 so0v.34<B0$ -/< 
OLEDWHS4C 2NJO 0 
* cC<aBSQLOH*Jsa0? 
* oH*QREBGEPSBTEH 
*ryevea AD2? /0H 
* LeLOHeBE-- C+U 
AF3 5 KOTLE<CING 
OBE (V<BGD*<(A 6 
“ic a Ass ~6 
ALSCWOBMAIS<< KO 
CINMVML3=INI /16 


6 £CAO1Z{ OHFQRZB 


PART NO. 
PAGE 


& CL 65 THROUGH 80 


84aa8se8 

} BQLIK"® J<,OH# 
71 |MOH*OY<BGD®- 
JL [MOH*OY<8G0"- 


JOH*BE-M Brad _ 
eccosveceeeesese 
st aAlTYV<a ABTY 
¢CBP /1{MOHSOY<B 
MIM] JOC ECOWHS4 
GAO <E*BGD+<<101 
a 2<0H#Ja02AC (> 
°° copwesm30 0 
goH*LS<BGEDC /11 
< KQTIS= “/15SA-" 
LIMC( O<VM® AES 
acsu+ceeGD'L /1E 


GF YA <GCFOT /1/ 


4247603 
36A 


RACTERS 0 E H INDICATE NUMERIC SHIFT. 


CL 81 THROUGH 96 


eeeeeeeo 


€1220000 


7-HC 1220001 


K2UC1220002 


BE-H 5.%C1220003 


Qx0C 1220004 


K/<C1220005 


eaeoan 


7HaC 1220006 


MOH® 40-C1220007 © 


8 KQ 90UC1220009° 


GD*- KT8C1220010. 
c”2N’ a3HC1220011. 
v> =" @S0C1220012 
er rt 
mee" ovvc1220014 
<c- 0L0€1220015 
8 D P&YC12Z20016 
<Q #1UC1220017 
1 KQ :S0C1220018 
-oH* LDUC1220019 


woH® 0A8C1220020 


PROG ID 


PAGE 36A 


C12-2— 


es Sp a ee 
MK<C 1220008 


‘ 


eee eeoeeeoeeeeeeeee 


@#eoeoeoseeoeoeeoesaeoaeeoegeeoweeoeeeeewcecmlcetcCCOeclUCcCOecCCVRecUCcCOleowlcetclUlcCOWClcOClUlceClUlCcelUle 
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PAGE 


4247603 
374A 


Cl22 3340 FUNCTION TESTS - MOD 12 


_. €122 
f 


, Te36 
OBJECT CARD LISTING ; OBJECT CARD LISTING 


CL 81 THROUGH 96 { CL. 1 THROUGH 16 


3340 FUNCTION TESTS - MOD 12 


CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 


T4+-8ZFCBA <GCFOT 
T+-9UM-D 08<4( 48 
Te-:-C1C /LIMOH® 
T+-#EA-OE IDMWZ<B 
T+-aNECBGFFS /1- 
T+-"60 DLHaBG /0 
T4#-=. 190XX60C IDD 
T+-"FUSBGFOEBEBG 
T+/ AD. /11HOH* 
THs ZOH*BE-8 DG* 
TI JAMOH#M: TMAI/< 
T+/BJOH*H: ZBGD_< 
T#/CE2LGDIN® /18 
T4/DG KN<(-DVI3E 
T+/EBCE B<-Y OHD 
TCJEEDI? 11 HOHE 
T+/F< NOB EC2DA$ 
T+/GGDND# EB< /E 
T+/HBO DJ>YOBEBN 
TA/HtTHIK 664 ve 
T4/18  H(0-DWE3U 
1+/H34-DB? +8 


DATE 
EC NO. 


23AUG75 
827785 


/1/WOH#QM-D O*F< 


GFOEBEBQ*O! E=aB 


OY<BGD"~ NF /1L 


GE"QA <GCC»P /1% 
= ECAQO#>OH®SAC/ 
<="C <VNKNJIIS 
VNL3"ID. 1-H &C 
04 $M 4CIDOVMS 
OY<BGD®- N6BB C 
<5 >1K2B EYAC D 


< JAOOBEs JAD C? 


< J SDEQ+ KOLIKe 
StH V=?HERSBGGEX 


AlTa6 KM"( DEES 


3/286 SY BD C#"30 
oy<acue- 
2 &B:H C #1LD>00 
V+00G I DMVH@BGE4< 
COH*PEOD GHEN~—G 


KaaJ=+ DHE® £GT 
& -%9& HHa@Z PO-H 


BCIHE #YH G3" <H 


OSNOV7TS 
827827 


$C#BGFFQa) 2E.0HF 


oe es 


GD_<+ BNLIN<: KN 


DOH*QRT3"1 98<"2; 


D+O wWI#BEF7Z8 KQ 
IT? UA, #C&<WOBN 
VN<BGD-< | &0=X0H* 


2 


AQO'_OH®$AC/ IT7 
AFSC /1eLC- VNBN 
“DA LOH#M:RBGELT 
WO@BGD+<E<1A.0H* 
=DEM( JAOIMP /A. 
"CBQKO DLH@BG /0 
31 G /19S4+H V=?H 
AIS*wlaBADE-( KO 


DONG /1G3DK3J8C7 


>2 >A OA O°#2% 


<BGEPB OH*PF<B 
JLLC-— JMKM?71 £0 


BH YROI 3 /TGEIRD 
WEXEB PHA .O C/ 


A1/*#4 KQOQ}EHA~72 


LOMARTE 
827872 


QB-D O*<+FABGFOE 
LinavMa AD2? /0H 


Y198< ZEUIND< KE 


Ta/ +C&<WDBN(O D 


JO DSEC-AIS<=: KQ 


LS<BGEDC /118 E 


DA_ECE<HZ2NIG D 
M4-DVNC7®INL = JK< 
JiIN= *BGE4<BD0eB 


L5<BGEDC 118 


eeeenonaee on 


‘OHFL= 

| app+s BB3V. -, 
&& OBIUDVG-881UD 
XIUG —JDHOH*+E38 
#1/K2-5-31G# /0H 
A .Y& <BGEI6: &B 
GELOS KOTC DWEKN 
JM#BB027 /OHD CE 
LIKNGL V=T301/& 


-32U ¢+:8 9H H 


@-DMOH*BFUQDG", 


8&B0'O1 E=aBGFFS 
080 {GTOHI/! /16 
JIND< KEAIKZS KQ 
$E<BGC_O( 2EZIM7 
TOI +)€BGD_<1 BQ 
)OH*M: ZBGFFOA"23 
SE<BGFFS /1/K &C 


2OH*BE-4 D $ /1G 


GES ZBD2BGETY6DeB 


eemeneeaeoenenaooes 
eeeeoateaeeveneescea 


UADK+2 HF#BGG4. 
VeaB-DILA0/B: << 
G /eFF2M/0EG /0H 
EJUB/ CZGUOH*BHEG 
#0 BeH C2u T /1$ 
CL <CINGK £61 KR 
HIUDS KRAG DL#éD 
< KO/ING< KOTINA 
+k BB?HEE@HBIV/ 


A8ZBG S.ABZBGDTD 


PROG ID 
PAGE 37 


T+/.>C OWI KM, <*M 


5 ee Jem 
3CXQ "2DC1220022. T4#/<Z(EDWEXT® 2H 


M- =$-C1220021 


oN 


Taz 7H0C1220023.  =T+s/tU OAISDVPEO 


- 


JZ #K0C1220024 T+/+r6 Bs& C UA- 


5 
18. * 


T4+/]E.CT3I/L AAC 


LIKa $RQC1220025. 


“ 


om 


1C18 8Q<C1220026 — T+/ENAKEI? F? D 
i e 
: | 


Aoda *: €1220027, 
. 
3C*- #Q9C1220028 


“y 


T4/JEKESALU VK-H 


“T4#/Ke EC /AcL? 


oy 


> 


o 
GD_< EC-C122002°, 


# 


“T+/LF EDEL KRAIL7 


” 


@eeoe \ 


*T*C1220030' 


“T4/MAS 1KT0H#Q 3-4 


[ 
! 


ODHC1220031. 


114 6HYC1220032 


ny 


“T+/M@ABQEHNE@ &E 


ry 


T+/NTBAN'C GWAKE 


Q 


wWI3M 2S<C1220033.  T+/O2F1$ /0 ¢ - 


9 


SOED *C8Ci220034 ~ T+/P_ABQEHO6A EE 


“T+/0Y 


© 


UOH* QC8C1220035_ 10 E&G /1/ 


9 


LD&C1220036 - T+/RTEKQXO DSE-8 


oy 


a 


UOH* *A&C1220037 ‘T+#/E5 "2080 O$<H4 


‘ 


AIL< ~0<C1220038  T+/$ROLEHE><<ABO 


om 


* J< "S2C1220039 T+s/@MIT? JZOOH* 


< 20 LEUC1220040 ——« Te/ dl aveet -PE-0 


& -D 984C1220041' — T+/3H? HG(EDP/Z0 


om 


2&  #DHC1220042 


T+/~EC EWAKF=?7 H 


Ci2-2 23AUG75 


827785 


DATE 
EC NOs 


e 


a aAe 


VRCGEIP-LIKN:C728 


ACXMB "HA TEAI/$ 


AIS<vPO04CI~ BC*# 


{oH* {10-T I-0 


2 OH*FBFYQ*HFDAaBQ 
GT UNIKZ<ASQ<HMY 


BB-Q-1-0V.<BGE At 


F?2. GT UNIKZs KR 


/1KB_ D+T DELUD 
ALS<WI2 AF1Q(BKQ 


@BEs <BUMVH@BGFGY 


ee 


T? DF? -G? J? 


N-E0DI-M/E -OAAyO 


@A 38 AMS JINX 


Se- JELT®IT? JS 


AETUV<#BG  4BAE 


EDKO70 DS< 4AIS< 
EHOFS EEBAG. /1/ 
** CEHESH<ABQEHQ> 
DI-M/VSOBA, OF AaB 
"Dese AMAOH#O;08 


F? ~GOH*PM3EHE=D 


OSNOV75 
827827 


Ki/.Faak OH* | 
” 71<,0-DWEBEAI/R 
AD-O#A2P:4+3 V=-0 
*—2P#OHD 3<CTOI/L 
M+U V=ZBG0_1 /0H 


<ABQJHMX2/ SH4BBR 


+ BQ=IMX2--YFDBQ 


A -a 178V.a AEFH 
4 KO"C-DWI2NI2YH 


LIT? JZO, <.0<B 
— 20682 AF3 5 KQ 


NOH*Q; YSHEBQ:0 D 


BABOCEBKM, (E0N-RO 


J <BGFGY+ JN'IK" 


OTe-MIT, 


JZ0? 


GC SWAKET? DF? < 
wla AF1Q+ JEGILG 
= (EDWH7UB 7HE #0 
a -Ea 6-2/1 4BA) 
GFGDIBAEW+S AF3. 


DJOa*10(BAEWtTS 


<ABQEHEKa —Ea 0# 


L19MART6 
827072 ° 


DAT701/L2-JH< B. 
5 -G /OHK+D V=?H 
AI T4VH3GEIOE11KN 
Lit>a” semwiee 
E/TH-JLE-B/X /0H 
A(EDWEEODI-M/NAO 


JIK3 /1EDG HWEEH 


« 2 


+ KRAIT®K <4 JL 


HAS WBBMZOH#MZ 8 


6 4BAM#C EWAKE 
TX -MBCHABLEATIUD 


$<.0 OLMAIS4& JH 


DEC /1/2T HMITY 


JINO( -0+E0DI-6 


J(EDWHEQAD, QAEHS 


GT HMIKS5 JEGX 


70 =( -Q800DI-" 


CMAISIK J-& KR 


BC EWAKFE&? HF? U 


( KQTIS~ J2Q0H* 


AF3 . KQTIS~ J2 


5 Jn/X J 10 EEG 


eI/L SOHES/U-033 


EBZBG SoA LL Ine 


8<*MV5-7"D5ZL0"1 
tckea Kolay = 
SOEG /OHDECEHE+U 
BIU BC QWCBEHC & 
sicher sec 


20-D 4ALUDVI-H 
AIUDVK~HBB-Q-I-8 
R? DF? DGaYeEt - 
( KRAIS=  J00H* 
6 JE4 KRACEOWEKO 
4 SNCTK® SENOC - 
7% ,0AA,0 AZMAETH 
“EKNIO HOD3EAIUD 
J 10 E66 /1/25-. 
J>-0AA, OEASBGFGs 
ACEDWEKOXO DSE-4 
GT -NIK>£ 1 6TH 
* CEHESO<ABQEHRD 
OC-DP/SM10H* CE 


Ss tem JESI"EQ4 


‘PROG ID 
PAGE 


CL 81 THROUGH 96 


O1/& 7/-C1220043 
“70 MY&C1220044 
O-.- RZ0C1220045 
WEBM )3%C1220046 
<ABQ 4RYC1220047 
HDKD Q10C1220048 
WixXs 67201220069 
BC)H $LHC1220050 
Ve< €DHC1220051 
N+00 622C1220052 


C& $98C1220053 





xO D 08601220054 
oeatsiaaeseons 
* aD =-1C1220056 
«KQ #- €1220057 
JEL4 *28C1220058 
”71Q a1<c1220059° 
11TD @.aC1220060 
MILE *C4C1220061 
@ -a Q1<c1220062 
HEBO *H*C1220063 
HEBQ 6C4C1220066 


C12-2 
BTA 


ee 
a 





ee 
ke 
IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO.~ 4247603: 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247603 
PAGE 38 Ot PAGE 38A 
Ct22 3340 FUNCTION TESTS ~ MOD 12 ~ C122 3340 FUNCTION TESTS — NOD 12 
OBJECT CARD LISTING " OBJECT CARD LISTING 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 


CL 65 THROUGH 80 Ci 81 THROUGH 96 € CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 60 CL 81 THROUGH 96 


CCC COCCCOCSOOC OOOO OC OOH HOO OOS EOE HOES 


T+/- #23 AF3Ba AD 


T¢/-# OF@ 9 /1- 


T#/16 4ba-*C & 
T4#/$1/0 ( -R2KO 
Te/TRI2M,C #W) KM 
T+/UX2LGDIS! /18 
T#/VS40EV=TYBins 
Te/WiC RE/VIOE 
T#/KOSL—-I>, DA. 
T+/YLCBQVS5KG2aY: 
14/144?HGE-O_110 
T4/DIFUCZ/0Q<HBP 
T+/,DIUDWI “HSH 0 
T4/ 9 MCC#WSLOOIXM 
T4#/B2L@HGPOOZ1)- 
T4+/_53@BGD7H<E 2P 
Te/>OCCHHEL-AITT 
14/7 -<<EHEESAIUD 
T+sOWF] OLKRAt O 
T+/1/0 DE®ZBGF3U 
T+/2*CHSBEZICIAT 


T+/3PG-HH KP. 1 <U 


DATE 
EC £0. 


23AUGTS 
827785 


( KQTIS~ J20C-D 


Et -Qt&0D1-M/Z#0 


WAKF&? <F? OGOH* 


AFLYGo~ R+EHZ AU 
1K VECGAIN? —JB 
StH V=?H&3LCFISM 


A AYQOH*)2~<  <B 


Et OBIUDVQ-8B1UD 


PAKMLOH® CEHETU 
CA, OBA3MAFCO® AD 
QFTSHFC4<ABQEHS6 
1 SO FMAB+-DRL20 
OOfEINT=--In, DA. 
O1LBQXC EDWHKQV2-G 


GGSH8-BP 28 /CCOFH 


Vo@B-FVLA0/V¥3<<Q 


T(EDWHJOEITZICED WHKQVO DSHC 1-0 
” CAaV3SHKaY#<CA@ V3SHKC -¥_2H$aae 
SECBGF6<<HKPQHZ. 2/0@<HBPPH, 22/00 
PHIDOLSQV<<EWI3C EIT48 KGS0A E<B 
OlseT0aBGDTH<HSP RHBS /4(2CDaV=EF 
2 KPIQH®L®ZGDF7H SABPrazZ ICASvISI 
U;7HGN-OXT}QUY“H GLEO$T*YU?*BGD 7K 
1. 4<BBOTI(T f1¢ 2CAUVZBL2aY#HCA< 
“pazaC $$sU108 swBO FOHD<E WETH 
VOR AFZB-BP:GA R2EBGGEXS - /18 
wee EFDM: KP2+B V=ZBEOTH<L2°8 IU 
QEBOteEaWI< GEZ? 7 IDUC<MWEL~A TUG 
A +BG /DASKBWCD@ v=6P9. v0-0<ABO 
v328G6 /8B1SDV4aB 6 /BBIS<VE<BG /8 
OSNOV7S LOMART6 

827627 


827872 


ec 


CABQEHEKa -Ea + 


xX N *BGFGYC KO 


@ Obaten S1-Et - 
LETDNESDWHOOI BUM 
TOPHRE*BGGSULLSO 


MC EDWHZOKO OR #- 
RLEBGES.A AVES H 
WILCDISS+ SRAIK™ 
¢-SPROHDS<KBC 
B<<MW{L-AIT7206- 
<eBPSHO—< KRAIKE 
GDIH<GSPCH3C sik 
occavasiFl W/E0 
pay} :CABYV3KI avi 
KF PHL 6 CBSUTICS 
JOSMFOHSLS71D T- 
ERSO Fa05+-DS3<G 
S+H V=E EFIUC SR 


SDBPL01 *.#4BA 
DAD YGH*ENC CHGNA 


2 Y=-#<ASOSI-O<ABC 


HITOVeseG /DAMBP 


/1PXE€ —QLeE0dI-* 
TIS, JZOC-DQIKM 


Q:#HA™E 6 KM20 0 
<LZPBIAUS KQVIKE 
/GH®SHTS Isy2D4C 
DATHEDTYDI-b' $ 
V=?HES7HGDL-BI>, 
"Vv Ap NOSE INTUF Eos 
CGSPLHTYSA206HS? 
“71 (2CDav=BPSCAB 
QASP2@/ HC~DWEKM 
2CDAV=BPICADYOS { 
OLVSH/EOAIWAWELG 


ICBEVSESEZAY) YCBK 


£i L2CABW2SKEC - 


440 $DHC1220065 
LOH* 6¢MC1220066 
Q$z 330C1220067 
< KQ 2K2C1220068 
"7/14 $,UC1L220069 
2 G- #£4C1220070 
2D Y =/UCi220071 
“URU GHMC 1220072 
2/BU 126C1220073 
V3KH PS-C1220074 


20B 1$aC1220075: 
2 e 
BC D RZOC1220076: 


GIR< R1HC1L220077. 


V5BE 6F#C1220078 | 


i 
i 


¥_26 MYUC1L220079 


ing 2D Gi KQEIK? 2 G& SH4C1220080. 
BEVL /LTI<#EVGRB deck peaericen 
AIOHS SRAIK® YAO ®O08H #4C1220082 
AFXHS<BRD0 DEST4 Bla 9201220082 
ZAKODHE<S KQ/G U WeOU #0HC1220086. 
niyG sONs LUTl4s "saat elas. 
ecDav=8P9j (uv3age G /8 NR&C1220086. 
PROG ID er 
PAGE 38 


{ 
i 


e 


T+/4K SQVED| 70H 


T4/5(6aBG /8DIXD 


T+/6H-V V=<BG 


om 


T+/TCUB—-Z AT ALS 


eo 


Te/7= <BG “BAB 


T4+/89 0OC <sDLM 


’ 


&, 


Te/S4SZEAGKG4S 7/3 


a) 


Te/2? <BGE «BE 


i) 


T+/#DBTUHE<BG SY 


oy 


‘T+/QVABNTG OWEED 


on 


 yest-G2 LIKQI<KEM 


e 


” T+s=$/CGELQMLIKO 


8=P 


ey 


“ T+/*O0SLI54} 


© 


TeS JIOCSLS1T2)P 


Wigs 


FH#Sa<i 3g oCOUN 4d 


“ 


T¢SBG53( LPXREFA 


& 


<b 


& 


” T4SCBECLDOPV 


om 


i 


” T4SC 24 aPCB4C064X 


2 


7<$DBA0C 261 XEB_-> 


# 


Amy 


“TeSEBAW<¥ BPA-QEA 


mo 


TeSESLEPR LIXDSES 


 T+#SGZ83A5*TS68P 
DATE 
_—C NO. 


on 


23AaUG75 
827785 


Oo 


. 


' 


¢ SQX1}T /0H38SQ 
VZ<BG /SDEXMV>*B 
4BATHE HE ICCEIT4S 


Bin, 2/0-@AAT +08 


({ DiGLEBG/US5 J8 
AG/T /0 OH*:DTD 


ACA-H+6YQCEDHG/9 


Q-H <8G 4BA# 


OcaA~ /6080-D <H 


LIKRA4-DB-72 O D 


Ww} 7863 3<<HA C 


16 W/ iLKOEG 


C8SXO5MCC S771 526 


GE(SFE+.NBUCSO>1 © 


Rise TOPXTECLIO%%X 
* gePTos/ LZG14aP 
DoMCF1LZICOatH2<T 
YRMCTSUCE IMC I52X 
EG={ 19ePLIDTOAFA 
~a?boalasaicoe*P 


G*LSS3 oRECKP SES 


#137 /OHE-N V=C- 
G /BDIXUVORBG /8 
B KQ'@/AH(EHWE »M 
veSO GEMD+E WICU 


(L& FLT2 ESK GI 


<B 


1408 0-0 


»a-DICEE J9,aYD 


HE DsOTEBGZAC EY 
a C/O { —7ELE 
3 €-OALUDV. 3CEITS 


B- “OH® C&HGSU 
¥/-D11KOG<*MVS36 
O2)PGE+E0=115_N 
*gne-anl 5_V a4e 
as*xooaPse_SREFA 


DELUXVECEMLDA &<1 


HE PXK4AL LIC ENS EX 


a © 


T2*GL23XF1D_ Ete 
~OQFCGa4CO* FA-OFCT 
COPISESPKECXDZ<G 


R2<GEI_XHO) SWEIX 


RisoCSPXHLIXREI. OGAlA QOCL21S$GaNA 
OSNOV7TS LOMART6O 
827872 


827827 


Al~» 2UEECL2PBI-X 
DIX4v2aBG /8DIYD 
B L-cIT4BABP:a/_ 
HIT72D asDBP:+S” 


2/0_¢ Q6*HAATH 


G 4BAB7C < 


2R 
SOH*BFUQLGERA <B 
#Gy92 EUL OOAGes 
AG3U4 /a* OH#-E2H 
8 KQ*aZ HC-DWEKM 


& J=NO-DVVCGEIP4 


E1Q41L1K014-DB+-~3 


* oxGosePCBaxOSMC 
~a*1.6#PC5>PE6*P 
” gap SBaXN1SCTLIX 
¥44A EDA 263 EDA 
EOt) 1<KAL*POS>I 
NSUCS9>1 a*E-a41 
0° 4CO=F A-OFC LAME 
E6*LHO)S$R1L(XO5_% 
O5>+ 20" DE _ ACOaL 


~8<GTeaGC2{LE53 6 


JOHE-JY-O<BG /D 


V5<BG /8DIVYMV 78 


‘%. 2-68 BQa+ H 


V=? 1D~ZBGG*G31 C 


AACEAGSD@-BP?C < 
AOH® CEHGYMS 6H 
G SYDCAX /OHEU/D 
2-J- /GHES/<74<0 
AlO<a@ BNT+H HEH 
20B ~A@HAI-GS KM 
LIKN®<#MV—LGE I0< 
"o DaPSHA. C/O. 
Cav 6ePALSTIS3P 
DE<GFaaPRE+) 6¢P 
M2) PABBPDE (OIL 
“BSxOEDA &+-NBUA 
104CS1)PSIMCDOS 
* pePLL®ITE<LA2zsP 
LAaWA-OFCEEMCL HA 
DO*.D6*LD1* PRIS - 


WOIXES*SRAZS Bi 


O>LS2DA~BaxOQde 


AtKD 99%C1220087 
G s¥ a1-C1220088 
Ve?H &2-C1220069 


8 - :22HC1220090 


WEE 4:C1220091 . 


(aZ o10C1226G092 


~4<D P36C1220093 


CA- 28601220094 


GACO 3 a@C1220095 
208 %3<C1220096 
a BM SHNC 1220097 
~g°Q LTHC1220098 
asa €DaC1220099 
Teey 4 YC1220100 
ASeM &-<C1220102 
“gp 32001220102 
ASsM *RMC1220103 
E8u  Qquc1z20104 
-OF 8H0C1220105 
SMU SHMCA220 106 


AS@H NYFC1L220167 


erence RETINAL ICD, 


Pesu N24C1220108 
PROG ID Ci2-2 
PAGE 384A 


oe 





eee eoeeoeee08d80 86. 


* ere em dem 


ee ed 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C122 3340 FUNCTION TESTS - MOD 12 


Ct 1 THROUGH 16 


T#SHUS_V B*R 83K 
14S 1-24LN14C ISMC 
T+SHES_V 8°R 8&X 
T#S.NGUCCS<I_1€X 
T#S<E5)R BLPESUC 
TeSt.12CAEFA OUP 
14S+F SaPC8aPDE<X 
T+S}AaCR QDCALK<G 


T+S}28aGT9+.1aDA 


 TeSE7TB"G2EFA 136 


TS 52831 ASMCEG*L 
T4+SK_64C008{U6—5 
T¢SLYSZXOS<GLECK 


TeSMTSZI ASMCE6CL 


TKN 


%+#S0& JY BROIVE 


5d 


TE2ZOVBE 8.0 _ Be 


e @eeveoeoeeoooeas 


T KP: 


TAKRG 1G BHA 


TAKR) §.HAD — 


Eee tee7se~0C PHS 


CL 17 THROUGH 32 


Oali CDCd1<IREé<L 
RLIGEO#TIS_N 4°S 
OalR QDCSZ2IR 1<x 
seieoasesiae exe 
15NCP6) $G6%PS87C 
184CC2<PC4UCO6MC 
sscaapieanceecs 
PBAPRECIKE (SNE (X 
6 (POE ( $PE<PNIDC 
L8ZN 22PTLIXRO(> 
AS4CD285 S)STELS 
SEFA 9(PES*-€021 
NO*SRESPCE*GTEFA 
AS@.0EFA 9_X16QN 


1 A WA “ 


WX29—- H D*BOH 


<O WV B¢lHO xX-8* 


eee G08 202 Oaee 
Seen eeeeeonooaene 
SO ee eeeeeeeaneoed 


wO7MGF i { Cc 


A LLL ILE ALL LOOT LE IE 


DATE 23aUGTS 
EC NOW 827785 





OSNOVTS 
827827 


OBJECT CARO LISTING 


CL 33 THROUGH 48 


LLOCN5>( 4" $A10€ 
OS*CSEFA LEXVELP 
pE(Poascsis( O31 
EAUCBOE. YEECTZIR 
QEFA 05 1TO#1HS<P 
NSWCO54C S8aGT9+. 
"2UPTLIXRI(nTE+S 
DECLI08) 8&_PSE<G 
153 £6) xXUS<]1aMA 
TE{ES8L 15%) 0+ 
CO=LRa=J QDCES*+ 
ELDC SOAGNE<TIBSA 
" LeLCOsGBEFA 1<L 
” 2)PH2. 18aPD1)X 


eeen © eo #ee0e0e @ 


H AGE M & 


ISO8HCY-BH U O 


oe eeeoeneoe ee 
loc* 

Seeseeeeoeeenee ee 

See eeeeeeeeoeooeee 


ae woe een ©@ 


FZ asc RA 


eee 





LAST 


LOMARTE 
a27a72 ° 


CL 49 THROUGH 64 


C5_XR1*|T4=TOSsa 
OB4CR1+/ 5_V 9tP 
TO*1H5<PN84SCB94. 
-a1/ ODcsisPKE<. 
N84CB94.VEFCT2IR 
004A-E<GD0)I-T1IV 
18a/ 5)R 2PTLIX 
FSSPRE<LROMCU5#X 
-E(POE+.E1)1 08S 
1SWA O*SNI<XT2)$ 
EO=1E 1DCSCaGNE<T 
-8aXOQDCC5_P02; ! 
C12G9EFA 1<LD176 
RE}.0a"A QOCRI*G 
APEK7PEBABAENe )7- 


+ H C@shH 


7-80 H 
eenvneeoeneeoeaeaneeoeeneo 
SOeeeoaeseeeeseesne 


eee eaeeeoeeeen oe 


sc @Q 


PART NO. 


4247603 


PaGE 39 


CL 65 THROUGH 80 


“ECLDL(XO*DA-E+~ © 


184CC4UA-8aXx0Q0C 
YEFCT2Z)R-a1) QDC 
Ua>/ Q+)I5WA 93X 
“ECLILOCNS>( 1°R 
* paTEO* .01DA-E4L 
RO(ATE<. 184C 15MC 
TEC IKE (SRE(POQIS 
MS* {EQN 2)PTLIX 
Nat QDCE9'£0=| 
184A-8ax0Q0CD2*5 
15_P1L*UA-ECLDLIV 
ALFA 9(PE9'~E0=| 
DE<XP44CFORXL9 IX 


eeeaeneveeoeeoed 


en 


B NH ZAC 


ee @ 

< -a 
Seeeneeneaeeeoeeeve 
Seve se aeeeoveeeeee 
Seeeseeeeeeeeeoeoeve 


Sea eveeeeosneaeeoee 


eeee 


18570630750 


C&L 81 THROUGH 96 


15u J0QC1220109 
pes 314€1220110 
$1#M 8:0C1220111 
120 #9@C1220112 
"sq PC-C1220113 
N13* aeHC1220114 
$53H L8-C1220115 
PEsH $2%C1220116 


Rots mDaC1220117 


EID ©HC1220118 


59Q Q8-C1220119 
6*M 3,HC1220120 
£10 72-Ci220121. 


E 9HEC1220122 


#1HC1220123. 


BCe 32%C1220124 


arzc1220125° 


31€C1220126 


62UC1220127 


~1I-C€1220128 


31876a-NC1 220129 


PE 


- 


proc 1D C12-2 


PAGE 39 




















ee 02eoeeee@eegee ee 8@ @ 


pete tine dae os 


mere: 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C141 


ERR LOC OBJECT CODE 


0000 


OA00 


OA00 
OA02 
OA03 
0A04 
OA06 
OA08 


OAOA 
OAOD 
OA1LO 


OAl19 
OALA 


OA1B 
Oal0 
OALF 


OA21 


OATE 
EC NO. 


3340 ATTACHMENT TESTS (PART 


C141 
00 
01 
0000 
OA3A 
FFFE 


C14000 
101000 


00 


21AUG75 
827785 


OA01 
OA02 
0A03 
OA05 
OAO7 
OAO09 


OAOC 
OAOF 
OALS 


Oalg9 
GAIA 


OAC 
OA1E 
OA20 


OA39 


OSNOV75 
827827 


ADOR STMT 


. @ @ 
; . 
“ 
‘ 
XN 


{ 
! 
C 
| 
ie 
PART NO. AztTE05: IBM MAINTENANCE DIAGNOSTIC PROGRAM PaRT NO. 4247605 
PAGE 1 | C3 PaGE la 
1) MODEL 12 | C141 =3340 ATTACHMENT TESTS (PART 1) MODEL 12 
SGURCE STATEMENT C err LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
2 LAST CHG: 12 OS 75 ! G J tteeaessesecessecesensscccoessssssscossestsseesececceeesesesssessecese 
7 ' 
: cen : | 38 * RTNO] - LIO ACCEPTABILITY TESTS "ATTACH BUSY® AFTER SYS RESET s 
5 TREP ' 39 @ ( EB571- AlQ2 ) LIO (OF LSR) SUCCESSFUL * 
6 START START 0 | @ 40 # " 
7 ge ene anne tor nees oer sssreneesaecnneeseseetaseesseeets) 41 ¢ ERROR 4010 - ae LetceG : SEC noes ¢ 
8 * 42 ¢ 40ll -~ Lt L 
9 SECTION PREFACE x ©} a . yaeus S acvarecaee : 
10 * 
il oJ setesessseseseussseesesseseaunasanessnenenessecceecessesesennnensees| Q 45 * PROCESSOR CK STOP DUE TO DBO PARITY © 
46% : CHECK OR 1/0 LSR CHECK co 
1S . ORG X*Oa00? | 47 SOSSSSSSSSS ASSESS EERE S ESSERE SES SeNSEEEESESTERESSEEESTESERESEEEESECECEse 
16 * a 48 
15 PIO oc XL2°C141° SECTION ID AND REVISION LEVEL i cane o oan _ RTNOL be peor ROUTINE 01 
16 oc XL1l*008 SECTION FLAGS 
17 RTN oc XL1L*0O1* CURRENT ROUTINE NUMBER c OA3C 0A83 OA3D 51 oc ALZERTNO2) NEXT ROUTINE ADDRESS 
18 oc XL2*0000* RESERVED : 52 * 
19 PFC oC AL2(RTNOL) ADDRESS OF ROUTINE PREFACE | OA3E CO 87 22F3 53 8 BSNIOP ROUTINE INITIALIZATION 
20 oc XL2°*FFFF® RESERVED GS 54 * 
aa es 55 *#* START TEST 1 #8 
esunte Bc Siatiologes oan uor Fon Ande 1 | OAS2 CO 87 260A ae : 8 BGNTST START YEST 
23 UDT1 DC XL3* 1010008 5471 UDT FOR A LINK = 
24 DS xXL9 RESERVED { OAS6 Cl C2 OATL 58 TIO =LE003,x*C2* BR IF "ATTACHMENT BUSY? 
25 * OASA CO 87 242C€ 59 8 NORMN ELSE LOOP ON TiG 
26 COM oc XL1°008 3340 PROGRAM Epo CATION AREA i 60 & 
27 OS xXL1 RESERVED | © 61 **® START TEST 2 ees 
28 * 62 * 
29 LORID os AL2 MICROCODE LDR (C17) IN STORAGE CG OASE CO 87 2404 63 8 BGNTST START TEST 
30 A4OPID DS AL2 AMOP (C19) IN STORAGE | See 64 
3 FAOID os AL2 ATTACHMENT MICROCODE (FAO) IN STOR | OA52 OC 01 2856 2846 65 MVC = WORK1¢2),ZERO INITIALIZE INPUT AREA 
32 ¢ | C: OAS8 31 CL 22E4 6 LIQ) -FFFF,X*C4 LOAD *ODOR* WITH *"FFFF® 
a oe = a a Par ee anne Anes OASC 30 C4 2856 re . SNS WORKI,X*C4* GET *ppoRe 
ae OA60 OD O01 2856 2264 69 CLC =WORK1(2),FFFE SEE IF AS EXPECTED 
| ae OA66 F2 01 OD 70 JNE L1006 BR IF NO 
71 * 
Peas OA69 CO 87 242¢€ 72 8 NORMN ELSE LOOP "LQ" TEST 
| &  oa6d Co 87 216 73 B LINK EXIT 
| 14% © GET HERE IF "ATTACHMENT 5USY* WAS ON AFTER SYSTEM RESET 
" OAT1 CO 87 246A 75 L1003 B ERRPRT 
| C OATS 00 OA75 76 oc XL1*°008 ERROR 4010 
77 * GET HERE If DOOR SENSED NOT EQUAL EXPECTED 
OA76 CO 87 246A 78 L006 B ERRPRT 
| ooaTa 16 GA7A 0s 79 oc Xtitis? ERROR 4011 
| OA7B 22E3 OA7C 80 oc AL2( FFFF-1) 
OATD 2264 OATE 81 oc AL2(FFFF) 
| Ci oate zess OAsO 82 DC = AL2(WORK1-19 
| OAB1 2856 OA82 ss 83 oc AL2(WORK1) 
. 84 
| © OA83 02 OA83 85 RTNO2 oc XL1*02° ROUTIRE 02 NOT USED 
0A84 00 OA8& 86 oc xXL1°008 
, OA8S OA8B OA86 = 887 oc AL2(RTNO3) NEXT ROUTINE ADORESS 
| € — oaez co 87 0216 88 8 LINK 
| 
| 
i@ 
| 
| @ 
} 
PROG ID Ci4-1' € DATE —.21aU675.—sosNov75 PROG ID C141) 
PAGE 1 EC NOw 827785 827827 PAGE 1A 
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C14i 


ERR LOC OBJECT CODE 


OA8B 
OA8sC 
OA8D 


OA8F 


0A93 
OA9T 


OAS9 


0a90 
OAAL 
OAAS5 
OAAGP 
OAAB 
OAAD 
OAAE 
OAAF 
OACI 
0AB3 


OABS 
OABB 


OABE 
OAC2 


OACS 
OAC9 


OACA 
OACE 


OADL 
OAD7 
OADB 


OADF 
OAE3 


OAET 
OAEB 


OAEF 
OAF3 
OAF4 
OAF6 


OAF8 
OAF9 
OAFA 


! DATE 
EC NO. 


3340 ATTACHMENT TESTS (PART 


03 
00 


OAF8 


CO 87 22F3 


CO 37 2A0B 
A8A2 


co 


3c 
3c 
co 


87 


FF 
cE 
87 


0089 
0000 


00 
89 


004D 
2CF5 
0023 


oo 
F2 


38 
F2 


co 
oo 


30 
F2 


OE 
38 
co 


3c 
co 


co 
co 


co 
12 


00 
ol 


ol 
10 


87 
01 
81 
oo 
FO 
90 


01 
87 


87 
87 


87 


Oaad 
2cF5 


04 
00 


0860 


240A 
OAAD 


2CF5 
2A08 


2CF5 
31 


2662 
05 


246A 
OAAD 
16 

OAAD 
OAAD 
OAAL 


QAAD 
OAAL 


242C 
0216 


246A 


21AUGTS5 


827785 
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PART NO. 
PAaGE 
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2: 


1 
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1 


| 


rene een nie ee a TE A AE RRO Rerreer mem On 
eter ere fete eee eo mere atte ence an cee nt SOARES See, 


eoo0o0 6 © 


ADOR STMT SOURCE STATEMENT 
90 SEREETE SESE SESEREESESEEETEEE NEDSS O92900000800500045208008884ES8999EESEE 
91 ® * 
92 * X-REG - TESTS THAT ALL X-REG BITS CAN BE SET/RESET * 
93 ¢ (EA316) PATTERN IS *FF* = "FE® IN ©2121" INCREMENTS AND *01° s 
94 TO TEST ODD PARITY s 
95 © ® 
96 * ERRORS - 4030 X-REG CHECK * 
97 * 4031 X-REG NOT AS EXPECTED,e V1 = EXPTOD e 
98 V2 = Rcvo e 
99 ¢ NOTE: IF V2 = °CE® TRANSFER MAY HAVE FAILED, 
100 CERSESEREERERE ESE SR ESESERSEEEEEES ESE ESSEEEEESE CEES ESE EEE SEEEEEEEREETRRE! 
101 
OA8B 102 RTNOZ oc XL1°O3°* ROUTINE 03 
OAsC 103 oc xL1°OO°* 
OASE 104 oc AL2(RTNO4S) NEXT ROUTINE ADDRESS 
105 # 
106 B BGNIOP INITIALIZE 
107 * ATTEMPT TO TURN OFF K3 (CLOCK RESET) 
108 B SVP 
CA9& 109 oc XL2*ASA2* 
110 * 
111 ¢&# START TEST | eee 
tl2 © 
113 B BGNTST START TEST 
114 * 
115 MVI XREGO5 eX "FFP INITIAL X-REG VALUE 
116 XREGOS MVI OPREGsX*CE* INITIALIZE INPUT = "CE® 
117 B svP 
OAAA 118 oc XL2*o0089° "00 —> X-REG 
OQAAC 119 DC XL2*000D* SENSE X-REG TO PULSE DATA 
QAAD 120 XREGOS oc AL1(#-#) SET X-REG = *VALUE® 
OAAE 121 oc XL1*898 
OABO 122 oc XL2°004D° READ X-REG 
OAB2 123 oc AL2(OPREG) INTO WORK AREA 
OAB4 124 oc XL2*0023* CHECK SENSE 
125 
OAAD 126 cLe OPREG(1} »XREGOS ACTUAL = EXPECTED ? 
127 JNE XREGOS BR IF NO 
128 * 
129 TEN IOPIN,X*OL® X-REG CHECK 2? 
130 JT XREGO? BR IF NO 
131 
132 8 ERRPRT 
Gacg 133 oc XL1°00? ERROR 4030 
134 * 
135 XREGOT CLE XREGOS,X*01* SPECIAL (ODD PARITY) TFESTED ? 
136 JE XREGOSB BR IF YES 
137 * 
2B47 138 ALC XREGO5(1),ELEVEN ADD *11" YO X-REG VALUE 
139 TBN XREGOS»,X* FOF LAST *VALVE* TESTED ? 
140 BF XREGO4 BR IF NO 
141 * 
142 MVI XREGOS,X*O1?* ELSE SETUP *QDO PARITY® DATA 
143 8 XREGO4 
144 ¢ 
145 xXREGOS 8 NORMN 
146 8 CINK - EXIT 
147 * 
148 & GET HERE IF X REG RECEIVED NOT EQUAL TO EXPECTED VALUE 
149 ¢ 
150 XREGOS 8 ERRPRT 
OAF3 151 oc XLi*z2t ERROR 4031 
OAF5 152 oc AL2(UXREGOS5} X EXPECTED 
OAF7? 153 oc AL 2(OPREG) KX RECIEVED 
154 
OAF& 155 RTNOS oc XLIifO4? ROUTINE 04 NOT USED 
OAFQO 156 oc xXL1*00° : 
OAFB 157 OC AL2(RTNO5} NEXT ROUTENE ADDRESS 
OSNOVT7S PROG ID Ci4-1 
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C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT '% ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
160 S8SSSSEEEEREREEEEESSESEREEEESEE ESSE EREEREEEEERERESERAESRESEASSESESESESEE 0869 00 0869 228 oc xL1*°00* 
161 * K-REG - TEST SET/RESET GF Kile 29 4s Se 6 & 7 a f OB6A 0870 0868 229 oc AL2(RTNOT) NEXT ROUTINE ADDRESS 
162 * (EA318) * OB6C CO B7 0216 230 8 LINK 
163 * ERRORS: 4050 - K RECIEVED NOT EQUAL EXPECTED ©) gy 
164 * ( BITS FAILED TO SET } *| cS 
i 165 © #051 - K BIT(S) FAILED TO RESET * 
a 166 © 4052 ~ K3 FAILED TO INHIBIT "READ X-REG® ®, 
167 * e © 
; 168 ee ENT Tle ree ae Rees core eR eee ere Smee tenet ee CEES ESESSS SCONES TSE 
169 i 
| 0800 05 O0B00 170 RTNOS oc XL1°05° ROUTINE 05 | © 
0601 00 0801 171 oc xL1*00* 
OB02 0868 0803 172 oc AL2(RTNO6} NEXT ROUTINE ADORESS ! CQ 
; i773 * ar 
0804 CO 87 22F3 174 8 BGNIOP INITIALIZE 
: 175 * a 
; 176 *** START TEST 1 #0 
: 177 * 
0808 CO 87 240A 178 B BGNTST l ¢ 
179 * OQ 
} OBOC 3C 00 2802 180 MVI = ALSBIN,O 
181 * — 
182 * SET K-REG, K TO X-REG, READ X-REG 1 @ 
183 * 
i 0810 CO 87 2A08 184 8 svP 
i 0814 7FB2 0815 185 oc XL2*7F82° SET Kle 25 39 “2 5) © & 7 me, 
OB16 0084 OB17 186 oC XL2"0086' K-REG => X-REG 
0818 004D 0B19 187 oC XL2*004D! READ X-REG 
| OB1A 2802 0B1B 188 oc AL2(ALSBIN) INTO LOC *ALSBIN® '@ 
OB1C 6FB2 0810 189 DC XL2"6F82° NOT K3 
OB1E 0086 OB1F 190 oc xt2*0084" K-REG -> X=REG 
ae 0820 0020 0821 191 oc XL2*002D° READ X-REG INTO LOC *IOPIN® '§ 7 5 
192 * 
0B22 3B 02 2662 193 SBF ss IOPIN, X*02° MASK OFF NON-K BITS 
0826 30 BC 2862 194 KREGO3 CLI IOPIN,X*BC* TEST XOs2e3e%e5eT(K2e4e5eGn Tol? ' © 
| OB2A F2 01 24 195 JNE  KREGO6 BR IF NOT AS EXPECTED 
196 * 
082D 3D FO 2802 197 CLI ALSBIN,X*FO* SEE IF X-REG READ WITH K3 ON  & 
| 0831 F2 81 2F 198 JE KREGO9 BR IF YES 
199 © 
| 200 # RESET ALL K BITS EXCEPT BIT 2 (SERVICE MODE) © 
201 * 
0834 CO 87 2A0B 202 8 sve 
0838 2082 0839 203 OC = XL2* 2082" : © 
OB3A 0084 0838 266 oc XL2"0084* K-REG -> X-REG 
OB3C 0020 0830 205 pc XL2*°002D° READ X-REG 
206 * i © 
OB3E 3B 02 2862 207 SBF Ss TOP IN, X*02¢ MASK OFF NON-K BITS ; 
0B42 3D 81 2862 208 KREGOS CLI IOPIN»xX*sl* (X-REG 0 = K-REG 2, Ki OFF = X7 ON) 
| 0846 F2 01 11 209 JNE KREGOS BR IF NOT At EXPECTED © 
210 # 
0849 CO 87 242C 211 B NORMN LOOP TEST 
OB4D CO 87 0216 212 B LINK EXIT | @ 
213 * GET HERE IF K-REGISTER BITS DO NOT SET 
0851 CO 87 246A 214 KREGO6 B ERRPRT 
OB55 02 0855 215 oC 3 XL 1 "028 ERROR 4050 '@ 
OB56 0827 0857 216 oc AL2(KREGO341) EXPECTED 
OBS58 2662 0859 217 Dc AL2(1OPIN) RECIEVED i 
218 © GET HERE IF K BITS DON'T RESET / & 
OBSA CO 87 246A 219 KREGOS 8 ERRPRT 
OBSE 12 O8SE 220 DC XLL*12° ERROR 4051 
OBSF 0843 0860 221 DC AL2(KREGOS41) EXPECTED ¢ 
0B61 2862 0B62 222 oc AL2( I1OPIN) RECIEVED 
223 GET HERE IF K3 DOESN'T INHIBIT READ X-REG 
0863 CO 87 246A 224 KREGOO = B ERRPRT © 
0867 20 0867 225 oc XL1*20° ERROR 4052 
226 
| 0B68 06 0B68 227 RTNO6 oc XL1*06* ROUTINE 06 NOT USED | @ : 
‘ 
| be 
' DATE 21AUGTS OSNOV75 PROG ID c1is-1' £ pate 21AUGT5 O5NOV75 PROG 10 Cia-1) 
‘ EC NO. 827785 827827 PAGE 3: EC NO. 827785 827827 PAGE 3A 
| @ 
4 ! : 
, ! © 
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3340 ATTACHMENT TESTS (PART 


ADDR STMT 


232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

OBTO O7 0870 252 
O87 06 OB7L 253 
OB72 OCcCO OB73 254 
255 

OB74 CO 87 22F3 256 
257 

258 

25S 

OB7S CO BY 2404 260 
261 

OBTC 3C 1F 0896 262 
See OBS8O 3C FF 0898 263 
OB84 3C FF OB9A 264 
OB88 3C OO OCBF 265 
266 

OBBC 3B 70 OCBF 267 
OB90 CO 87 2aA08 268 
269 

O0B94 A882 OB95 270 
OB96 00 OB96 2T1 
OBST 88 Q697 272 
0698 0G 09698 273 
0899 8A O899 274 
OB9A 00 OB9A 275 
OB9B 88 0898 276 
OBSC 0048 OBSD 277 
OB9E 2CF3 OBSF 278 
OBAOD 004A OBAL 279 
OBA2 2CF4 GBA3 280 
OBA4 0048 OBAS 261 
OBAG 2CF5 OBAT 282 
OBAB 0023 OBAD 283 
264 

OBAA 38 40 2862 285 
OBAE F2 10 05 286 
287 

OBBL CO 87 246A 288 
OBBS 00 OBBS 289 
290 

CBBE 38 2E OBS6 29h 
CBBA F2 90 OC 292 
293 

OBBD 3C 30 O8B96 294 
OBCi 32C 0G 0898 295 
OBCS 3C GO OBGA 296 
eo? 

GRES 28 21 6896 296 
OSC F2 96 OC 23S 

: CATE 24bUGTS OSNOV75S 
EC NO. 8277e5 827827 
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PART NOo 4247605, 16M MAINTENANCE DIAGNOSTIC PROGRAM 

PAGE 4... 

1€ 
1) MODEL 12 C141 3340 ATTACHMENT TESTS (PART 
SOURCE STATEMENT |. ERR LOC OBJECT CODE ADDR STMT 
TERRE ASSES EERE SEEEELES EE TECERESOTEEREESERESEES SESSEREEREREEES ESS ERERSS| es 300 
* ee OBD0 3C 2E 0R96 301 
* OP REG TEST - INSURE THAT ALL OP-REG BITS CAN BE SET AND * OBD4 3C FF OBge 302 
* READ VIA THE ®SVP DATA BUS* (NORMAL AND e 0808 3C FF OB9A 303 
* INVERTED), FORCE OP-REG CHECK ee 304 
* * CBDC OD 00 2CF3 0B96 305 
* PATTERNS USED IN TEST ~ | OBE2 F2 OL 04 306 
* Cy CRe Y = LEFFFE ( ALL BITS ON, NORMAL } e | 307 
€ 010006 ( ALL BITS OFF, NORMAL ) * OBES 3A 10 OCBE 308 
* 2FFFFF € ALL BITS ON, INVERT } * OBES OD 00 2CF4% 0898 309 
2 310000 ¢ ALL BETS OFF, INVERT } e | OBEF F2 O01 04 310 
* * 311 
® ERRORS: 4070 - GP-REG CHECK ON * OBF2 3A 20 OCBE 312 
* 4071 - FORCED GP-REG CHECK NOT ON * OBF6 OD 00 2CF5 0694 313 
* 4072 ~ C,CR,Y ALL FAILED TO LOAD * OBFC F2 OL 04 314 
* 4073 - CeCR OR Y WAS SUCCESFULLY LOADED® ,. 315 
* Vl ~ V3 = EXPTD C, CR E Y ef OBFF 3A 40 OCBF 316 
* V4 —- V6 = RCVD Cy CRE Y * 0CO3 38 70 OCBF 317 
FERERSESEESEEEEREREESESEEKESEE SHE ESESEESERSEEEERAEEEREEESSERSERES EEEEES ERE ge OQCOT F2 co 58 3i8 
a 319 
RTNOT oc XLL®OT® ROUTINE OT OCOA 38 08 OCBF 320 
oc XLi*oot a» OCOE F2 90 15 321 
pc AL2{RTNOBI NEXT ROUTINE ADDRESS PRs 322 
* OC11l 38 04 OCB 323 
B BGNIGP INITIALIZE | a,  OCLS F2 90 22 324 
* i &3 325 
*e® START TEST 1 eae 0C18 38 02 OCeF 326 
* fe OC1C F2 90 2F 327 
8 BGNTST 1&3 328 
* OC1E CO 87 242 329 
MYE  -CPAT,X*1E# INITIAL PATTERN TO STRING w. 0€23 F2 87 73 330 
MVI - CRPAT,X*FEE INITIAL PATTERN TO STRING is 331 
MVI = - YPAT, X FES INITIAL PATTERN TO STRING : OC26 3& 08 OCBF 332 
MVE = CRYSw_X #008 INTTIALIZE CONTROL SK - IC2A 3C OL OB96 333 
* Pa OCZE 3C 00 OBSs 334 
CRYOL SBF = CRYSHKEX*E7GE TURN OFF "READ OK* BITS 0C32 36 00 OB9A 335 
8 SvP ss 0C36 CO 87 OB8C 236 
‘ SET °CK STOP GVRIDE*, "SERVICE MODE* & "STOP IoRe e 337 
oc XL2*ABe2e SET KOe K2, K6 OC3A 3A 04 OCBF 338 
CPaT oc ALL (*~8} C PATTERN GOES HERE oe OC3E 3C 2F 0896 339 
9c XLL'88? oom O0C42 3C FF OBg8 340 
CRPAT oc ALL (#-6} ER PATTERN GOES HERE 0C46 3C FF OBSA 341 
Dc XLEe BAe . gx OCGA CO 87 OBBC 342 
YPAT DC ALI (S-9} Y PATTERN GOES HERE | & 343 
oc Xi i? set i OC4E 3A 02 OCBF 344 
DC XL2°G04R° READ C-REG ‘an  OC52 3C 31 0896 345 
oc ALZEC} INTO LOC *C* _&2  0C56 3C 00 0898 346 
oc XL2°O04A6 READ CR-REG OC5A 3C 00 OB9A 347 
oC ALZ{CR} INTO LOC *CRE ' am,  OCSE CO 87 OBBC 348 
DC = XL 00468 READ Y-REG : €3 349 
oC ALZCY} INTO LOC *y® i 0C62 38 10 OCBF 350 
oc KL2°O073% CHECK SENSE ow OC66 F2 10 LE 351 
* ; » & 352 
TBN OPIN, x'4Q8 OP~REG CHECK ? OC6é9 38 20 OCBF 353 
JT CRYOZ BR IF NO 1 gy OC6D F2 10 18 354 
* : 355 
8 ERRPRT OC70 38 40 OCBF 356 
oc XLE®OO# ERROR 6070 lon  OCT& F210 LE 357 
* 3 358 
CRYOZ2 TBN  CPAT,X*2E¢ DATA = *FE® AND INVERTED ? i O0C77 CO 87 246A 359 
JE CRYOR BR IF NO a.) OCTB 26 OC7B 360 
* k= OCTC CB96 OC70 361 
MVE CPAY.KEBQe ELSE SETUP EXPECTED C, : OCTE OBS OCTF 362 
MVE CREAT. X*O08 CRs Ek OCEG OBSA OC8L 363 
MVI YPAT SX &OGS Y fe OC82 2CF3 OC&83 364 
+ OCB4 2084 0C85 365 
CRYO3 TBN CPAT,x*31° DATA = 'O00* AND INVERTED 2 i ye.  OC86 2CF5 O0C87 366 
JF CRYO4 BR IF NO + Rai? 367 

PROG ID C141) © pare 21 AUG7S OSNOVT7S 
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1) MODEL 12 


SOURCE STATERENT 


e 
MVi 
MVE 
MVE 
2 
CRYO4 cic 
JNE 
* 
SBN 
cLe 
JNE 


CRYOS 


SBN 
CLE 
JRE 


CRYGE 


SBN 
TBN 
JF 


CRYO? 


TER 
JF 


TeN 
JE 


TBN 
JF 


8 
J 
* GET 
CRYII SBN 
MVi 
MVE 
BVI 


* GET 
CRY12 SBN 
MVE 
MVI 
MVI 


* GET 
CRY13 SBN 
MVE 
RVE 
MVE 


* GET 


crRy14 TEN 


JT 
* 


TSN 
* 


* GET 


* GET 


PART NO. 4247605 
PAGE SA 
CPAT,X*2Et ELSE SETUP EXPECTED C, 
CRPAT,X*FE¢ CRe 
YPAT»X*FFE Y 
COL} eCPAT *C*® READ = EXPTO ? 
CRYOS BR IF WO 
CRYSWeX*1OF ELSE SET "OK® Sw 
CR(L) CREAT ‘CR READ = EXPTD 7 
CRYO6 BR IF NO 
CRYSW,»X*20¢ ELSE SET "OK ® Sw 
YOLPeYPAT *¥® READ = EXPTD ? 
CRYO? BR IF KO 
CRYSWsX*408 ELSE SET *OK* Su 
CRYSWeX* TO? ALL Qa ? 
CRY14 BR IF NO 
CRYSWeX*08* 2ND PASS COMPLETED ? 
CRYLI BR fF NO 
CRYSWeX* G48 3RD PASS COMPLETED ? 
CRY1i2 BR IF NO 
CRYSWeX*O2* 4TH PASS COMPLETED 7 
CRYL3 BR IF NO 
NORMN 
Crvyie 
HERE EF LST PASS SUCCESSFUL 
CRYSW,X*O8t SET "PASS 2 COMPLETE® Sw 
ChAT eX*O1* SETUP PATYTERM 2 
CREAT eX O08 SETUP PATTERN @ 
YPATeX*OQ? SETUP PATTERN 2 
CRYOL 
HERE IF 2ND PASS SUCCESSFUL 
CRYSWeX #04? SEY *PASS 3 COMPLETE*® Sw 
CPAT,X*2F SETUP PATTERN 3 ( INVERT } 
CRPAT eX* FEE SETUP PATTERN 3 
YPAT,X*FF¢ SETUP PATTERR 3 
CRYO1 
HERE IF 3RD PASS SUCCESSFUL 
CRYSWeX*O2* SET *PASS & COMPLETE® Sw 
CPAT,X*31° SETUP PATTERN 4 € INVERT } 
CRPAT »X# O08 SETUP PATTERN 4 
YPAT, X*O08 SETUP PATTERN 4 
CRYOL 
HERE IF ANY ERROR DETECTED 
CRYSHeX*LOF 
CR¥YES BR EF *Ce READ GK 
CRYSWeX*26! 
CRYLS BR TF °CR® READ OK 
CRYSW eX #408 
CRYLS Sk IF &¥* READ OK 
HERE IF ALL (C, CR & Y} FAILED 
ERRPRT 
XLE*Z6t ERROR 4072 
ALZ(CPAT} EXPO °C* 
AL2(CRPAT) PCRS 
AL2(YPAT) eye 
AL2(C) RCVO °ce 
AL2(CR) fcRée 
AL2ty? eye 
HERE IF ANY ONE (C, CR GR Y} WAS SUCCESSFUL 
PROG 10 Ci4—13 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247605 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOW 4247605 
PAGE 2 gs PaGE Sa 
C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 C141 = 3340 ATTACHMENT TESTS (PART 1) MODEL 12 
oo 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT \.. ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
OC88 CO 87 246A 368 CRY1L5 8 ERRPRT . 412 SetSeSessseesesesessesececsseseeeseseseeceesesasseeseeeseseeeeeeseeesee]s 
Ocec 36 OC8C 369 oc XL1°36¢ ERROR 4073 © 413 *« 2 
OC8D 0B96 OC8E 370 oc AL2(CPAT) EXPD °C? 414 *& 8-REG TEST - USE B-REG CHECK AND EVEN/ODD PARITY DATA s 
OC8F 0898 0090 371 oc ALZ(CRPAT} ‘eR? : 415 * ERRORS: 4090 - FORCED B-REG CK DIDON*T OCCUR 2 
0C91 OB9A 0C92 372 oc AL2(YPAT} tye ig 416 % 4091 - B-REG CK s 
0C93 2CF3 0C94 373 oc AL2(Ci RCVO °C 417 4093 - IOP CHECK STOP NOT SET e 
: 0C95 2CF4 0C96 374 oc AL2{(CR) *cR* 418 * REFER TO ALD PAGE EA223 2 
OC97 2CF5 0c98 375 oC AL2(Y) sys 2 419 ¢ 2 
376 *# ‘ 420 SPSESSSAS SS OSE SEeESEseeeeeEeseseeseRseseResseseeeSSeseeeeseeeeseNsese]s 
377 * FORCE *OP-REG' CHECK WITH "CRY SW* CHECK { BAD PARITY -> CRY oe 421 
378 * CR = "00" §€& C&# OQ) PAS occs os OCC8 422 RTNOO oc XL1*a9¢ ROUTINE 09 
379 #%® START TEST 2 eee : Occs 00 OcCC9 423 oc XL1°008 
380 ® ee OCCA 0030 OCCB 424 oc ALZ(RTNOAD NEXT ROUTINE ADDRESS 
0C99 CO 87 240A 381 CRYLO B BGNTST ee 425 ©€ 
382 * OCCC CO 87 22F3 426 8 BGNIOP INITIALIZATION 
OC9D CO &7 2A06 383 8 SvpP 427 % 
OCAl A882 OCA2 384° oc XL2*A882° KO» 2: 4 G 428 * FORCE *FF* WITH BAD PARITY VIA *UNUSED INPUTS® 
OCA3 0088 OCA4 385 oc XL2*00885 "00" ~> C-REG 429 8 { REFER TO ALO PAGE £a221 } 
OCAS 008A OCA6 386 oC XL2*OOB8AS "00" <-> CR-REG ‘ 430 #2 START TEST 1 ¢#0 
OCA7 208F VCA8 387 oc XL2*208F* CR => CRY Sw &: 431 * 
OCA9 0023 OCAA 388 oc XLZ2*0023* CK SENSE OCDO CO 87 240A 432 B BSGNTST 
389 * c OCD* CO 87 2a08 433 8 SvP 
OCAB 39 40 2862 390 TBF IOPIN,X*4O* OP-REG CHECK ? t ocos 2082 OCD. 434 oc “L2*2082¢ SET K2 
OCAF F2 90 04 391 JF CRY22 BR IF NO OCDA 058F OCOB 435 oc XL2*0S8F° *FF* YO B-REG 
392 ¢ — OCOC 0043 OCOD 436 oc XL2°0043" CHECK SENSE 
OCB2 CO 87 242C 393 8 NORMAN be OCDE 2CF5 OCDF 437 oc AL2{(OPREG) INTO LOC *OPREG? 
394 * OCEO 00846 OCEl 438 oc XL2*0084" K-BUS -> X-REG 
OCB6 CO 87 246A 395 CRY22 B ERRPRT . OCE2 0020 OCE3 439 DC XL2*002D8 SENSE X-REG TO LOC *IOPINe 
OCBA 10 OCBA 396 oC XLi*10° ERROR 4071 nG 440 * 
397 * OCE4 39 08 “CF5 441 TBF OPREG,xX*O8* B-REG CHECK ? 
OCBB CO 87 8216 398 8 LINK as,  OCEB F2 10 05 442 JT BREGOS 8k IF YES 
eee: eee 399 * : CG 443 * G°T¥ HERE IF 8-REG CK FAILED TO COME ON 
OCBF 00 OCBF 400 CRYS*® oc XL1*008 O01 = *C* READ OK i OCEB CO 87 246A 444 B EPRPRT 
401 * O02 = "CR* READ OK : OCEF 00 OCEF 445 oC XL1°00* ERROR 4090 
402 * 04 = *Y* READ OK © 446 & 
403 * O08 = PASS 2 COMPLETED OCFO 38 02 2862 447 BREGOS TBN IOPIN,X*O2* ‘IOP CK STOP*® ? 
404 ¢ 04 = PASS 3 COMPLETED » ee OCF& CO 10 242C€ 448 BT NORMN BR IF YES 
405 * 02 = PASS & COMPLETED © 449 * 
406 OCF8 CO 87 246A 450 B ERRPRT 
OCCO 08 OCCO 407 RTNOS oc XL1°08¢ ROUTINE O08 NOT USED OCFC 30 OCFC 451 oc XL1°308 ERRGR 4093 
OCC1l 00 OCC1 408 oc XL1*06* 6 452 
OCC2 oOccs OCC3 409 Oc AL2(RTNO9) NEXT ROUTINE ADORESS 452 
OCC CO 87 0216 410 8 LINK e 453 % NOW SET B-REG WITH EVEN PARITY DATA 
454 *% 
} 455 ##& START TEST 2 #8 
| 456 * 
| ¢ OCFD CO 87 240A 457 B SGNTST 
ODC1 CO 87 2a08 458 8 SVP 
Fe 0D05 asBs2 OD06 459 oc XL2*°A882* SERVICE MODE 
G OD07 FFS8A OD08 460 DC XL2°FFBA *FF* TO *CR® REG 
0009 208F ODOA 461 DC XL 2° 208F * CR -> CRY Sw 
: OD0B 018F OD0C 462 oC XL2°O18F® CRY —> 8-REG 
© OD00. 0023 ODOE 463 oc XL2°0023° CHECK SENSE 
464 % 
| re ODOF 38 08 2862 465 T8N {OPIN,X*o8t B-REG CHECK ? 
| ae 0013 F2 90 16 466 JF BREGOS oR If YES 
467 2 
| 468 * SET B-REG WITH ODD PARITY DATA 
i ©) 469 * 
0016 CO 87 2a0B 470 8 SvP 
\ OD1A A882 OD18 471 oC XL2°ase2¢ 
C ODIC OL8A 0D10 4672 oc XL2*018A* | "Ol* TG fCR* REG 
OODLE 208F ODiF 473 oc XL2° 208F CR -> CRY SW 
se 0020 018F OD21 474 oC XL 2°O18F* CRY -> 8-REG 
©? op22 0023 0D23 475 oC XL2*0023¢ CHECK SENSE 
476 * 
co OD24 38 08 2862 477 TBN I0PIN,X*O8* B-REG CHECK ? 
j %- 0028 CO 10 242¢ 478 BT NORMN BR IF NO 
{ 
t 
! DATE 21AUG75 OSNOV7S PROG ID cia © DATE 21AUG75 OSNOV7TS PROG ID 
EC NOw 827785 827827 PAGE 5 | EC NO. 827785 827827 PAGE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 4247605) 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247605 
PAGE 6 iC: PAGE 6A 
C141L 3340 ATTACHMENT TESTS (PART 1) MODEL 12 : C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 
fo 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT >. ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
479 * GET HERE IF B-REG CHECK OCCURS ie 49% FESRESEEEES SEETESOESESESESEEEEESEDSEEEEEESEESEECESCESEEGGSESESEEESSOREETE 
OD2C CO 87 2Aa0k #80 BREGOS 28 svP © 495 @ 
0030 A8&&E2 0031 481 pc XL 2*aG62¢ : 496 © D-REG TEST - USE D-REG/ALSD IN SW/ALS OUT REG PATH TO MOVE DATA © 
0032 OLAF 6233 ae P oc XL2°O1AF* CRY -> B-REG FOR PROBING eo 497 * { SEE "DREGTB® BELOW FOR PATTERNS USED } * 
* 498 © * 
CD34 CO BT 2464 484 8 ERRPRT 499 © ERRORS: 4080 - D-REG CK e 
0D38 10 0038 485 oc XL1*108 ERRCR 4091 ‘ 500 * 4081 - *HOT* BIT(S} IN D-REG PATH s 
486 © , @ 50: ¢ 4082 - "DROPPED® BIT(S) IN O-REG PATH & 
0039 CO 87 0216 487 8 LINK 502 * * 
488 §QOF SESSKSSHESSKESESSS SASSKE STAKE CAKE KRESS SS SSS TASSSSANAATESKSSSRSASESSRVSRSSKASE 
0030 OA 0D3D 489 RTNOA oc XL1"OA? ROUTINE OA NOT USED © 504 
OD3E 00 OD3E 490 oc XL1*oo* 0045 OB 0D45 505 RTNOS oc XL1°0OB* ROUTINE OB 
OO3F 0D45 0040 491 oc AL2(RTNOB} NEXT ROUTINE ADORESS i ae 0046 0c 0046 506 oc XL1*O00® 
OD41 CO 87 0216 492 8 LINK > Ne 00647 OEOB 0048 507 oc AL2(RTNOC? NEXT ROUTINE ADDRESS 
: 508 * 
Oo 0049 CO 87 22F3 ac 8 BSGNIOP INI EALIZAT ION 
Sil * O-REG PATH TEST, DATA FROM OP-KEG TO X-REG VIA ALSO IM SH 
1 es 512 ¢ AND ALS OUT REG 
6 513 * 
514 @#& START TEST ] #90 
ey 515 @ 
; 2 0D4D CO BT 240A 516 8 BGNTST 
‘ 517 © 
oo 0051 3C FF ODED 518 MVE DOREG26,X*FF* INITIAL PASS © 1°S 
OK 0055 3C 22 oDFS 519 MVI OREG27,x*22¢ ERROR = 4082 
0059 3C FF OD7L 520 MVE =OREG22,X°FF* 
Ce OD5D 3C FF OD7A 521 MVI OREG23—X*FFE 
Dk 0061 C2 OL 22E4 $22 LA FFFF,XR1 
0D65 34 CL ODFB 523 ST DREG28 eXR1 
‘ 524 * 
= scat) ta i € ones CO 87 2Aa08 525 DREG2L 8 SVP Bis atles oe ecient 
OD6D Ass2 OO6E 526 oc XL2*a8s2° SET KO, K2_ K4 
; ex  ODGF 0888 OD70 Se? oc XL2*0888* *O8* (C4) -> OPREG *C* 
| © OD71 528 DREG22 EQU * 
OOTL FFSA O072 529 oc XL2°*FFEAS ‘FE® —> OPREG *CR® 
i =  OD73 228F 0074 530 DC XL2°226F CR => CRY SW => A =—> D-REG 
1&3 OO75 0085 OD76 531 oc XL2*0085? 9-REG => X-REG 
i 0077 002D 0078 532 oc XL2*002D° READ X-REG 
i §33 * 
| © ODTA 534 OREG2Z3 EQU 41 
OD79 3D FF 2862 535 CLI I10PINexX*FES D-REG READ = EXPECTED 2 
oO OOD70 F2 O01 65 536 JNE OREG25 BR IF NO 
= 537 ¢ 
0080 30 00 ODTL 538 CLE OREG22,x*00* O*S TESTED YET 7? 
t 0084 F2 81 1C 539 Je DREG24 BR IF YES 
| © 540 ¢ 
i O08? 3C 00 ODED 541 MVI OREG26,X*008 SETUP OFS 
ae OD8B 3C 00 OD71 542 MVI =DREG22,xX*00t 
i CS ODSF 3C 00 ODTA 543 MVE OREG23,xX*00* 
| 0093 3C 12 ODFS 544 MVI DREG2T,»X*12° ERROR 4081 
i wn.  OD9T C2 01 2846 545 LA ZERO »XRL 
0098 34 01 ODFB 546 St OREG28 eXR1 
ODSF CO 87 0069 547 8 DREG21 TEST “ITH DATA = O°S 
548 ¢ 
| © ODA3 CO 87 242C 549 DREG24 86 NORMN 
550 
{ 551 * TEST FOR D-REG CHECK WITH VARIOUS DATA PATTERNS 
| © 552 * 
553 *#e START TEST 2 ees 
| 554 ¢ 
| © ODA? CO &7 240A o27 B BGNTST 
6& @ 
| ODAB C2 01 ODFE 557 LA OREGTB eXR1 PATTERN TABLE POINTER 
i C? ODAF 1C 00 ODBF 00 558 DREGOL MVC OREGO2(1),06,XR1) SETUP "C* FIELD 
| CD84 1C OO ODC1L Ol 559 MVC OREGO3(1L) 526 eXR1L) SETUP *CR* FIELD 
560 a 
© 561 © MOVE DATA -> CR-REG -> A-REG ~—> D-REG 
DATE 21AUG75 OSNOVTS PROG ID citct) Coare 21auGT75 OSNOVTS PROG ID C14-1) 
EC NO. 827785 82782T PAGE EC NO. 827785 ' g27827 PAGE 6A 
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) ) PART NO- 4247605 ISM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247605 
IBM MAINTENANCE DIAGNOSTIC PROGRAM Aree a | acess Sak 
Cia1 3340 ATTACHMENT TESTS (PART 1) MODEL 12 C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC GBJECT CODE ADDR STMT SOURCE STATEMENT 
a 562 B svP 0£15 0£18 0£16 630 DC — AL2 [RTNOE) NEXT ROUTINE ADDRESS 
ce ca re oc CXL 2*ABB2¢ SET KO, K2e K4 E17 CO 87 0216 631 |B LINK 7 
ODBF 00 ODBF 564 DREGO2 OC = AL1(*-*) *C* DATA GOES HERE 632 
O0CO 88 00CO 565 pc 8 «xk ees LOAD OPREG *C° 0£1B OE 0£18 633 RTNOE OC  XL1‘OES ROUTINE O£ NOT USED 
00C1 00 ODC1] 566 OREGOS DC ALLI*-*} ‘CR® DATA GOES HERE OE1C 00 0£1C 634 pC —_- XL1*00° | 
00C2 8A O0C2 567 oc XL at LOAD OPREG *CR® OE10 0£23 OE1E 635 DC AL2(RTNOF) NEXT ROUTINE ADDRESS 
opc3 228F ODC4S 568 oC = XL2"228F* CR -> CRY SW -> A-> O i. QELF CO 87 0216 636 B LINK 
! oDCS 0023 ODC6 569 pc 3—: XL2":0023° CHECK SENSE - 
570 * i 
o0C? 36 04 2862 $71 TeX 1OPIN,X*04%* D-REG CHECK ? tne 
| once F2 90 12 572 JE DREGOS BR IF YES jhe 
: 573 * GET HERE IF D-REG CHECK OION'T OCCUR 
ODCE D2 02 02 514 LA 202 XR1)oXR1 THEN BUMP PATTERN POINTER |. 
ODD1 7D FF OO 575 CLI Ol eXRL) 9 X*FFS END OF TABLE 7? hits 
00D4 CO O1 ODAF _ 576 BNE DREGOL CONTINUE IF NOT 
577 * ioe 
opps CO 87 242C 578 8 NORMN ee. 
ODDC CO 87 0216 579 8 LINK 
580 - 
581 * GET HERE IF D-REG CHECK GCCURRED poh 
ODEO CO 87 246A 582 DREGO6 8 ERRPRT 
ODE4 00 ODE4 583 pc = XL "008 ERROR 4080 re 
584 | 
585 * GET HERE AFTER A O-REG DATA ERROR TO PRESENT 
586 * ERROR STOP WITH OP-REG TC D-REG GATES OPEN FOR aes 
587 * SCOPING |X. 
588 * | 
ODES CO 87 2A08 589 DREG25 BB svP 3 = 
ODEO AgB2 ODEA 590 pc 20 «XL2*a882* SET KO» K2, K4 pe 
ODES 0888 opec 591 oc 40 -:« XL2" 0888" "og" (C4) <> OPREG *C* | 
ODED 592 DREG26 EQU * | an 
ODED FFBA ODEE 593 pC 0=s- XL2* FFSAS ‘FES -> OPREG *CR® jC 
ODEF 22AF O0FO 594 DC —- XL2*22AF* CR -> CRY SW -> A -> D-REG | Reap 
, «$95 * FORCE ERROR *STOP* FOR SCOPING Ft 
ODF1 3C 01 2CF6 596 VI «—- LPCNT,»X*01° ee 
ODFS CO 87 2464 | 597 6 —° ERAPRT 
ODF9 22 opF9 $98 DREG27 BC xL1*22° ERROR 40B1 GR 4082 a 
ODFA 22€4 ODFB $99 OREG28 OC AL2¢FFFF) EXPECTED | & 
ODFC 2862 ODFD 690 | OC «= AL2C LOPIN) RECIEVED 
601 a i 
602 ccesansusensseeseeheeaesesessestsseseeteOeehtEseseCenessGSeeeeseseeeess ¢ 
603 * «| 
604 * TABLE CF DATA FOR O-REG PATH TEST en, 
605 * FORMAT? 1ST BYTE - B17 4 = Cé (PARITY) FOR CR -> CRY | A’ 
606 ¢ BIT 5 GN = GOOD PARITY GENERATED = * 
607 * 2ND BYTE - DATA FOR OPREG -> D-REG TRANSFER = * 
608 # «| cS 
609 * NOTE: BAD (EVEN) PARITY DATA SHOULD BE CORRECTED IN *CRY* Sw # 
610 * BEFORE BEING XI-RD TO D-REG Le. 
611 * . «| €3 
612 eee SSSESESSHSHERORSEDHUERSESSSS SES Besse $OEFRESEESESSESE TESTES SES RESSESSEEESESE SE 1 
613 ; 
ODFE 614 DREGTB EQU * 1 €- 
ODFE OCO0 ODFF 615 oc xL2*0C00° GOCD (00D) PARITY O*S 
O£00 0000 OEO1 616 DC = KL2* 00004 BAD (EVEN) PARITY O¢S ite : 
O£02 OCFF O£03 617 DC —-_- XL2 "OC FF* GOOD (ODD) PARITY F*S eh 
O£04 OOFF Q£05 618 DC  —«- XL2 OFF * BAD (EVEN) PARITY F*S 
O£06 0401 007 619 DC = XL2*0401° GOOD (ODD) PARITY DATA - 
O£08 0801 0£09 620 pc —._-« XL2*0801* BAD (EVEN) PARITY DATA an 
OEOA FF QE0A 621 oc = XL‘ FF* TABLE TERMINATOR os 
622 s 
O08 OC O£CB 623 RTNCC OC xXL1OC* ROUTINE OC NOT USED rhe 
CEO 00 DECE 624 - pe XL "00° 
OECD £13 CECE 625 DC = AL2(RTNOD} NEXT ROUTINE ADDRESS sate 
OEOF CO 87 0216 626 8 LINK bs 
627 
©£13 0D 0£13 628 RTNCD 60 CCXL''OD" ROUTINE OD NOT USED : 
0£1¢ 00 0£24 629 oc = xL.2*°00* 1C. 
DATE  22LAUGTS  OSNOVTS PROG 10 Cl4-1 DATE 21AUG75  oO5NOVTS PR 
0G 10 C142 
£C NO. 827785 827827 PAGE 7 EC NO. 827785 827827 PAGE 7: 
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IBM MAINTENANCE DIAGNOSTIC FROGRAM PART NOW 4247605 | 
PAGE 8. PAGE 8A 
C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 ' 
ERR LGC OBJECT CODE ADOR STME SOURCE STATEMENT ERR LOC OBJECT COEDE ADDR STMT SOURCE STATEMENT i 
638 SHSERESREERESEKEKE ES SES CSESKESES KE RHSES AESCEKEKEERKELERERSEERHEEKSEERESRSESETES SE 0£93 F2 10 DOC 706 JT ALSER2 BR IF VES { 
639 * ALS TEST * OE96 F2 87 E2 707 J ALSER3 GO IF ALSD ERROR 
640 * { PART 1 )— LOAD ALSB, TEST DO-REG FOR DATA THEN READ ALSB * 708 * : 
641 * AND TEST FOR DATA. LOAD ALSD, TEST D-REG FOR DATA * OE99 CO 87 242C 70S ALSO7 8 NORMN ; 
642 * THEN GET ALSD AND TEST FOR DATA. LOAD ALSB O - 31 * 710 * 
643 * AND TEST: THEN LOAD ALSD O - 32 AND TEST. * CESD 3C 00 OFEC 7il MVI = ALSSWy X* 00° ; 
644 * 712 * 
645 * ERRORS: 40FO - IMM. DATA NOT XFRD TO D-REG * 713 #%% START TEST 2 *e% 
646 * 40F1/40F2 - DATA IN ALSB/ALSD NOT AS EXP * 714 * : 
647 * Vl = ALS EXPTD, V2 = ALS RCVD # OEAL CO 87 240A 715 B BGNTST 
648 2 40F3 - DATA IN BOTH ALSB/D NOT AS EXPECTED? 716 * 
Seas = 717 * NOW LOAD ALS LOCATIONS 00 - 31 WITH HEX DATA *O0* - *SF* 
ESQ SKEKEREKESERAEARERAHESLLEKCAEKREA RSE KKSERSKSKREKKALSEKSESKERKSSSEKSHAEESEKESKAKKESE 7is8 * 
651 OEAS 3C 00 O€BB 719 MVI ALSO9eX*008 INITIALIZE EXPECTED ADDRESS 
O£23 OF 0E23 652 RTNOF oc XL1*OF® ROUTINE GF OEAS 3C CO OEBD 720 MVI ALSOA,X*00* -f DATA 
0E24 09 OE24 653 DC XL1°O08 OEAD OC 01 OEBA OF69 721 MVC ALSO84+3(2),SALSBA INITIALIZE TO READ ALSB 
OEZ5 OFEF 0E26 654 DC AL2(RTNLO} NEXT ROUTINE ADDRESS 722 # 
655 * O€83 CO 87 OFAB 723 6 ALSLOD SETUP ALS 00 - 31 = *00* - ‘OF 
CE27 CO &7 22F3 656 B BGNIOP 724 * 
657 * OEB7 CO 87 27F2 725 ALSO8 8 SALSB GET ALSB (ALTERED TO *SALSD* FOR 2ND 
O£2B 3C 00 OF6C 658 MVI ALSSWO O£BB 00 OEBB 726 ALSO9 DC AL1(*-#} ADDRESS 00 - 32 PASS) 
OEZF 3C CE GEBD 659 MVI ALSOA,X*CE* INITIALIZE *EXPECTED!* OEBD 727 ALSOA EQU = #4) 
660 * OEBC 3D 00 2662 728 CLI TOPIN»X*00! ALS AS EXPELTED 7 
661 #** START TEST 1 *¥9# O€CO F2 81 2C 729 JE ALSLO BR IF YES 
662 * 730 * 
0£33 CO B7 240A 663 B BGHTST OEC3 0D 00 OEBA OF6B 731 CLC ALSCB43(1},SALSDA TESTING ALSD ? 
664 * OEC9 £2 81 13 732 JE ALSOD BR IF YES 
665 * SET ALSB/D AT LOC 0000 = *CE* 733 * 
666 % OECC 3A OL OFEC 734 SBN ALSSHeX*O1* ELSE SET ALSB ERROR 
OE37 3C 00 2862 667 MVI  IOPIN,O INITIALIZE INPUT AREA OEDO OC 00 2802 OEBD 735 MVC ALSBIN(1),ALSOA SAVE EXPECTED DATA 
OE3B CO 87 2737 668 8 LALSB OED6 OC 00 2803 2862 736 MVC ALSBIN41(1}_2FOPIN AND RECIEVED 
OE3F 00 CE3SF 6469 Oc AL1(0} 6 OEDC F2 87 10 737 J ALSLO Sire craic ce ae SaaS Ss ea 
OE40 CE 0E40 670 oc XLI'CE® 738 % 
671 * TEST D-REG TO INSURE THAT INSTRUCTIGN DECODED OK OEDF 34 02 OFEC 739 ALSOD SBN ALSSWeX*02! SET ALSD ERKOR 
O£&41 CO 87 2918 672 8 SDREG OEE3 OC 00 2804 OESD 740 MVC ALSBIN#2(13,ALSOA SAVE EXPECTED DATA 
OE45 3D CE 2862 673 CLI IOPIN,X°CES D-REG AS EXPECTED ? CEES OC 00 2805 2B62 741 MYC ALSBIN¢3(1),IOPIN AND RECIEVED 
OE49 CO 0] OF6D 674 BNE ALSERI BR IF NO 142 * 
675 * OEEF 3D 1F OEBB 743 ALS10 CLI ALSO9e31 LAST ALS TESTED ? 
OE4D CO 87 27F2 676 8 SALSB GET ALSB LOC 0005 OEF3 F2 81 18 744 JE ALS15 BR IF YES 
0E51 CO OE51 677 0c AL1(0)- e ; 745 * 
678 * : OEFS OF OO OEBB 2836 746 ALC ALSO9CL)»T1 ELSE BUMP ALS ADDRESS 
OE52 3D CE 2862 679 CLE JYOPIN,X*CE® SEE If DATA AS EXPECTED OEFC 35 FF OEBD 747 CLI ALSOA,X*FFE "FE TEST IN PROGRESS ? 
OE56 F2 81 OA 680 JE ALSOS BR IF YES OFOO CO 81 OEBT 748 BE ALSO8 BR IF YES 
681 ¢ : 749 * 
OE59 34 O1 OFC 682 SBN ALSSWeX*OL? ELSE SET "ALS8 ERROR® GFEOS OE 00 OEBD 2836 750 ALC ALSOACLIsI2 BUMP *DATA® 
OE5D OC 00 2802 2862 683 MVC ALSBIN(1),10PIN AND SAVE DATA : OFOA CO 87 OEBT 751 8 ALSOB AND CONTINUE 
684 * 3 752 * 
O£63 3C OC 2662 685 ALSO5 MV} 1OPIN,O INITEALIZE INPUT AREA OFOE OD O1 OEBA OF6B 753 ALSI5 CLO AL5084302),SALSDA ALSD TESTED YET ? 
CE67 CO 87 2760 686 B LALSO LOAC ALSD LOC 0000 OF14 F2 81 1A 754 JE ALS20 BR IF YES, RUN *FF® Test 
O£6B 606 OE6B 687 oC AL1(0) ; 755 * 
OE6C CE GE&C $88 pc XLL*ZES OF17 OC 01 OEBA OF6B 756 MVC ALSOB843(2),SALSDA ELSE SETUP YO READ ALSD 
689 € TEST D-REG TO INSURE INSTRUCTION DECODED OK OF1D 3C 00 OEBB 757 MVI ALSO9,0 SETUP ADDRESS = *oo* 
OE6D CO 87 2918 690 8 SDREG OF21. 30 FF OEBD 758 CLI ALSOAsX*FFE SEE TEST IN PROGRESS ? 
C£E71 30 CE 2862 691 CLI IGPIN,X*CES D-REG AS EXPECTED ? OF25 CO 81 OEB7 759 BE ALSOS8 ' pR YF YES 
GE75 F2 01 FS 692 JNE ALSERL 6R IF NO 760 * 
693 * - OF29 3C 80 OEBD 761 MVI ALSOA,X*80! INITIALIZE EXPECTEO DATA 
OE78 CO 87 2801 694 8 SALSD GET ALSD LOC 0000 OF2D CO 87 OEK7 762 8 ALSO8 , GOB READ ALS*O®: 
OE7C 00 GETC 695 Oc AL1(0) 163 * 
696 * OF31 39 03 OF6C 764 ALS20 TBF ALSSWsX'03* ANY ERROR ? 
OE7D 3D CE 2862 697 CLE IOPIN,X*CE? ALSD AS EXPECTED ? OF35 F2 10 OA 765 JT ALS21 BR IF NO 
OE81 F2 81 04 698 JE ALSO6 BR IF YES 766 * 
co? * OF38 38 Oi OF6C 767 TBN = ALSSWsX*O1* ALSB ERROR 2? | 
OE84 3A O2 OFEC 700” SBN § ALSSW,X*02¢ ELSE SET "ALSO ERROR® OF3C F2 10 33 768 JT ALSER2 BR IF YES 
Tok * : OF3F F2 87 39 769 J ALSER3 ELSE BR GN ALSD ERROR ‘. 
OE88 39 03 OFC 702 ALSO6 TBF ALSSW,X*03* ANY ERROR 7  % 770 * 
OEBC F2 10 OA - 703 JT ALSO? 8R IF NO OF42 CO 87 242C 777i ALS21 8 MORMN 
704 ¢ i, 72 * - 
OEBF 38 01 OF6T 705 TBN =ALSSW,X*O1* ALSB ERROR 7? ne OF45 3D FF O£BD . 773 CLI ALSOA,X*FF* *FF* TEST DONE ? | 
DATE 21AUG75 OSNOV7S PROG ID. C14-1: DATE Z2LAUG7TS OSNOVT5 PROG ID C14-1.5 
EC NO. 827785 B2782T PAGE 8: EC NOw 627785. 827827 PAGE 8A 
ig. : 
Ss 
: 
5 be 
| > 
«— 
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C141 
ERR LOC 


OF4A 


OFSE 


OF52 
OF5S6 
OF5A 
OF60 


OF 64 


OF68 
OF6A 
OF6C 


OF6D 
OFT71 


OF72 
OF76 
OFT77 
OF79 


OF7B 
OFT7F 
OF80 
oFs2 


OF 84 
OF8B 


OFB9 
OF8D 
OF91 
OF95 


OF98 
OFSF 
OFAS 


OFAS 
OFAC 
OFBO 
OFB4 


OFB8 
OFBS 
OFBE 
OFCS 
OFCcs 


OFCS 


DATE 
EC NO. 


3340 ATTACHMENT TESTS (PART 


1) MODEL 12 














PART NO. 
PAGE 





OBJECT CODE ADOR STMT SOURCE STATEMENT 
co 81 0216 774 BE LINK BR If YES 
, 775 : 
776 %&* START TEST 3 #08 
777 * 
CO 87 240A 778 8 SGNTST 
79 * 
3C FF OEB8D 780 MVI AL SOA,X*FF® SETUP SATA = *FFe 
3C 00 OEBS 781 MVI ALSO9,X*00° INITIAL ALS LOC = 0000 
OC 01 OEBA OF69 782 vc ALS084+3(2) -SALSBA FIRST TEST ALSB 
CO 87 OF89 783 8 ALSLOF SETUP ALSB/0 = *FF* 
T84 * 
CO 87 OEB7 785 8 ALSOS8 TEST 
786 2 
27TF2 OF69 787 SALSBA oc AL2(SACLSB) SENSE ALS*B® ROUTINE ADDRESS 
2801 OF68 788 SALSOA OC #£AL2(SALSD) SENSE ALS‘'O® ROUTINE ADDRESS 
OF6C 789 ALSSW os xL1 
790 # 
CO 87 246A 791 ALSER1 B _ ERRPRT 
00 OF7L 792 oc XL1°00* ERROR 4OFO 
793 * 
CO 87 246A 794 ALSER2 8 ERRPRT 
12 OFT6 795 oc XL1*12° ERROR 40F1 
28D2 OF7T8 796 oc AL2CALSBIN) 
2803 GFTA 797 oc AL2(CALSBINGLI 
798 ¢ , 
CO 87 246A 799 ALSERS 8 ERRPRT 
22 OF7F 800 oc xL1i* 22° ERROR 40F2 
2804 OF81 801 oc AL2( ALSBINe2) 
2805 OF83 802 oc AL2UALSBING3S) 
803 + 
CO 87 246A “806 ALSER4 8 ERRPRT 
30 OoF6e 805 oc xL1°30° ‘ERROR 40F3 
806 3? 
807 
g07 
808 2 = annem enem ana 2 
809 s s 
$10 # ALSLOF — SETUP ALS8/0 = *FF* s 
811 * s 
812 * , * 
813 * ALSLOD — SETUP ALS LOCATIONS AS OG = *60* + 
814 ¢ 60 = *80* s 
815 * if = *16* ETC & 
816 @ s 
818 ; 
34 08 OFEE 819 ALSLOF st ALSLOE*3, ARR SAVE RETURN LINK 
34 O1 OFEA 820 st ALSLOC 43, XRi xR1 
3C FF 2801 821 MvI ALS8431,X*FF® 
oc 1€ 2800 2801 822 evC ALS8+30(31),ALSB431 
823 * : 
3C FF 2C11 824 MvI ALSO¢31,K*FF® 
oc 28€ 2C10 2C12 825 @vC ALSD*30(31),ALS0431 
f2 87 37 826 J - ALSLOS 
827 
827 
34 08 OFEE 828 ALSLOO ST ALSLOE¢3, ARR SAVE RETURN LINK 
34 02 OFEA 829 St ALSLOC43,XR1 xR1 
C2 01 2682 830 LA ALSB,XR1 POINT TO ALSB TABLE 
3€ 00 OFBS 831 MVE ALSLO4sX*00°* INITIAL DATA = *00* 
OFBS 632 ALSLO4 €QU e+1 
7C OO 00 833 ALSLOS aVI O€,XR19.X*00* DATA TO ALS FIELD 
O2 01 91 834 La 10-XR1) XR BUMP ALS FIELD POINTER 
OE€ OO OFB9 28326 835 ALC ALSLO4, 11 BUMP DATA BY 1 
3D 20 OFSS 636 CLI ALSLO4,32 ALSB FIELD SETUP 2? 
f2 01 OC 837 JNE ALSLOBSB SR IF NO 
938 * : 
C2 O1 2bF2 839 — La ALSO,%R1 €LSE POINT TO ALSD FIELD 
21AUG75 OSNGV75 PROG ID 
S27T385 827827 PAGE 
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@eeeeveeeee. 


6247605 1BM MAINTENANCE DIAGNOSTIC PROGRAM 
iP ., 


C141 
ERR LOC 
OFCF 
OFD3 
OFD7 
OFOB 
OFDF 
OFE3 
OFE7 
OFEB 
< 
we 
tes 
_ 
{ 
a 
{ 
leg 
t ae 
c 
I 3 
i 
e 
AL 
é 
i 
rr 
ph 
fo 
\. 
C141 DATE 
9 EC NO. 
| &3 


GBJECT CODE 


3c 
co 


80 
87 


OFB9 
oFBs 


30 
co 


Ao 
01 


oFBS 
OF88 


co 
co 


C2 
co 


87 
87 


2720 
2756 


01 
87 


0000 
e000 


21AUG75S 
827785 


3340 ATTACHMENT TESTS (PART 


ADDR STMT 


840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 


OSNGVTS 
827827 


aS 


a 


1) MODEL 12 


SGURCE STATEMENT 
MVI ALSLO4,X*80* 
8 ALSLOS 
& 
ALSLOSB CLI ALSLO04,160 
BNE ALSLOS 
s 
ALSLOY 8 LALSB1 
8 LALSD1 
* 
ALSLOC LA #-3,XR1 
ALSLOE 8 *—% 


PART NOW 


4247605 
PAGE 9A 


INITIAL ALSD DATA = °80° 
MOVE ALSD DATA 10 FIELD 


ALSD FIELD SETUP ? 
BR IF NO, CONTINUE 


GO LOAD ALSB 00 - 31 
GO LGAD ALSO 00 - 31 


RESTORE XR1 
RETURN TO CALLER 


PROG 10 
PAGE 











18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247605 IBM MAINTENANCE DIAGNOSTIC PROGRAM ss PART NOw 4247605 ; 














PAGE 10 PAGE 10A 
C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ? ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
852 Staae0te6048t248854SS88SEEEREE ESSE ES EEEEEESSESERSSEESES SEESEES CESS SESS 1066 30 FF 10446 920 CLI ZLSOA,X*FE* ‘FEY TEST IN PROGRESS ? 
853 * * 106A CO 81 103E 921 BE z.sos 6R IF YES 
854 * 2LS TEST ( PART 1 ) LOAD ZLS, TEST O-REG FOR DATA THEN READ * ' 922 * 
855 * 2LS AND TEST DATA RECIEVED. LOAD ZtS LOC * 106E OE 00 1044 2836 923 ALC ZLSOACL)211 ELSE BUMP EXPECTED DATA 
856 * ATIONS 00 - 31 WITH X*00* — X*31° AND * 1074 CO 87 1LO3E 924 ) zL$08 
857 * READ, THEN LOAD WITH X*FF* AND READ. % 925 * 
858 * . 1078 CO 87 242C 926 ZLS20 8 NORMN 
859 * ERRORS: 4100 - IMM. DATA NOT XFRD TO O-REG * 927 * ‘ 
860 * 4101 — DATA READ NOT AS WRITTEN * 107C 30 FF 1044 928 CLL ZLSOAsX*FF* emee TEST COMPLETE ? 
861 * V1 = EXPECTED, v2 = RECIEVED * 1080 CO 81 0216 929 BE LINK BR IF YES ‘ 
862 * 4102 - ZLS CHECK . 930 * Bg 
863 CeReeHeeOCESEESESESEESESESERSERESSEEREEESESEESSSSSSESESES SES SE STESSESSS 93] START TEST 3 *%2 LOAD THEN READ ZLS 00 - 31 « FF : 
B64 * 932 * 
OFEF 10 OFEF 865 RTN10 oC XL1°10° ROUTINE 10 . 1084 CO 87 240A 933 8 BGNTST i 
OFFO 00 OFFO 866 oc XL1°00* 934 * 
OFF1 1131 OFF2 867 oc AL2(RTN11) NEXT ROUTINE ADDRESS 1088 3C FF 1044 _ 935 MVI ZLSOAsX*FF* EXPECTED DATA 
868 * 108C CO 87 1064 936 8 ZLSLOF GO SETUP ZLS DATA = ‘FF j 
OFF3 CO 87 2329 869 8 BEGIN 937 * i 
870 * 1090 CO 87 103A 938 8 ZLS07 Test 
OFF? CO 87 2837 871 8 LMBI SET LEVEL 5 MODE REG TO ‘00° 939 
OFFB SBFF OFFC 872 oc XL2*S8FF* 940 * GET HERE If IMMEDIATE DATA NOT TRANSFERRED TO D-REG : 
673 * 1094 CO 87 246A - 941 ZLSERL 8 ERRPRT i 
874 #*® START TEST 1 #8¢ 1098 02 1098 942 oc xL2°02° ERROR 4100 : 
875 * 1699 1018 109A 943 DC AL2(ZLS03) EXPECTED 
OFFD CO 87 240A 876 8 BENTST 1098 2862 109C 944 oc AL2(IOPIN) RECIEVED ‘ 
877 * 945 * GET HERE IF OATA READ FROM ZLS NOT AS EXPECTED { 
1001 3C 00 2862 878 MvI . LOPIN,O INITIALIZE INPUT AREA 109D CO 87 246A 946 ZLSER2 8 ERRPRT i 
1005 OC 01 2860 2646 879 MVC = ZLSAR(2),ZERO ZLS ADDRESS = 9000 10A1 12 10Al 947 oc xLi¢i2¢ ERROR 4101 
100B :3C CE 2C32 880 MVI 0 ZLSeX*CE* DATA = *CE* 10A2 1018 10A3 948 oc AL2(ZLSO033 EXPECTED i 
100F CO 87 2602 88) 8 L2Ls 10A4 2B62 10A5 949 oc AL2(TOPIND RECIEVED 
882 * ae 950 * GET HERE IF DATA READ FROM ZLS NOT AS EXPECTED 24 
Ato, Sie 1013 CO 87 2918 883 8 SOREG GET D-REG ee 10A6 CO 87 246A 951 ZLSER3 BB ERRPRT ent 
1016 884& 2tS$03 equ #41 1OAA 12 1OAA 952 oc XL1i*12¢ ERROR 4101 
1017 3D CE 2862 ess CLE TOPIN,X*CE* AS EXPECTED 2 2 10AB 1044 10ac «(953 pc AL2(ZLSOA) EXPECTED I 
1018 F2 O01 76 886 SNE ZLSER1 BR IF NO : 10AD 2862 10AE 954 oc AL2CIGPIN} RECIEVED 
687° | 955 © GET HERE IF ZLS CHECK OCCURS . 
101E CO 87 1103 888 8 ZLSSNS ELSE SENSE ZtS ADDRESS 00 is 10AF CO 87 246A 956 ZLSER& =iBB ERRPRT 4 
1022 00 1022 889 oc xL1°00° Roe 4 1083 20 1083 957 oc XL1°20° ERROR 4102 . 
1023 30 CE 2862 £90 CLI FOPIN,X*CE* AS EXPECTED ? 958 i 
1027 F2 01 73 ® 891 JNE 2ZLSER2° BR IF NO tdi 959 geen nn rn 
892 * [oe 960 * s 
102A CO 87 2420 893 8 NORMN 961 * ZLSLOF - SETUP ZLS 00 - 31 = “FF* * 
oe 894 * 7 east 962 © * 
895 tease START TEST 2 *#¢%# TEST ZLS LOCATIONS 00 - 31 963 * * 
896 * * 964 * ZLSLOD — SETUP ZLS LOCATIONS AS 00 = *00° * i 
102E CO 87 240A ao 8 BGNTST Ls 965 * 01 = ‘01° s ' 
se 898 * ; i 966 * 31 = ‘1F* ETC © | 
1032 3C 00 1044 899 MVI  2ZLSOA,X*00° INITIAL DATA = AC 967 * * 
1036 CO 87 10C9 900 8 ZLSLOO SETUP ZLS 00 -31 = "00% — *1F* eS 968 %----- = -----~---- = ------* 
901 * a 969 
103A 3C 00 1042 902 2LS07 MVI 24 S09,X*00° INITIAL ZLS ADDRESS = 00 10B4 34 08 1102 970 ZLSLOF ST ZLSLOE*3 2ARR SAVE RETURN LINK i 
103E CO 87 1103 993 ZLS08 8 ZLSSNS SENSE ZLS 1088 34 01 10FE 971 -  §T ZLSLOC+3,XRE xR1 ! 
1042 00 1042 9046 Z1S09 oc AL1(#-#) AT LOCATION 108C. 3C FF 2C51 972 MVI «- ZLS#31 X°FF* | 
1044 905 ZLSOA EQU #41 10CO OC 1E 2C50 2C51 973 MVC .2LS430031),52Z0S¢31 : 
1043 3D 00 2862 906 CLI IOPIN,x*00" -- AS EXPECTED ? { 97% * 
1047 F2 01 5C 907 SNE ZLSER3 BR IF wO eae 10C6 F2 87 24 975 J ZLSLO9 
908 * 976 * 
104A CO 87 2a08 909 8 sve 10C9 34 08 1102 977 2LSL00 86 ST ZLSLOE*3, ARR SAVE RETURN LINK 
104E A882 104F 910 oc XL2*A882¢ S¥C MODE 10CD 34 O1 LOFE 978 st ZLSLOC+3,XR1 ; xXR1 
1050 0023 1051 911 Dc XL2*0023¢ IDLE SENSE 10D1 C2 01 2032 979 LA ZLS_XRI POINT TO ZLS TABLE i 
912 * 1005 3C 00 10DA 980 MMVI ZLSLO4,X*00° INITIAL DATA = *O0* ' 
1052 39 20 2862 913 TBE IOPIN,X*20° ZLS CHECK ? : 10DA 981 ZLSLO4 «=60EQU FF] i 
1056 F2 10 56°. 914 JT ZLSER4 ‘OR IF YES 10D9 7C 00 00 982 ZLSLO5) MMVI © Of eXR19,X*00° DATA TO ZLS FIELD i 
915 * 100C 02 01 01 983 LA BCU yXRLPeARI | BUMP ZLS FIELD POINTER i 
1059 30 1F 1042 916 CLI = =2LS09,31 LOCATION 31 TESTED ? < 10DF O£ GO 16DA 2i36 984 ALC ZLSL04011 BUMP DATA BY 1 
105D F2 81 18 917 JE ZL$20 BR IF VES, RUN *FF* TEST 10€5 3D 20 10DA 985 CLI = ZLSLO4, 32 ZLS FIELD SETUP 2? eee Ne 
-- 918 * A», 10E9 CO O1 1009 986 BNE ZLSLO5 BR IF NO “ a 
1060 OF GO 1042 2836 919 ALC} «=. ZL SO9C1)211 ELSE BUMP ADDRESS Lao. : 987 * o 
DATE . 2240675 omovTS . PROG 10 Cl4-1 . DATE 21AUGTS. OSNOVTS : PROG 10 Cla-1) 
EC NO. B27785 | 8z762T ; PAGE 10 EC NO. 627785 627627 . PAGE 10A 
ay ‘ : “ 
+ we 
. a og . ‘ * % . } 2 $ 
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C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 Ci41 3340 ATTACHMENT TESTS (PART 1) MODEL 12 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT €RR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


DATE 
EC nO. 


10ED OC 01 2860 2846 988 ZLSLO9 MvC ZLSARC2).ZERG INITIAL ZLS AODRESS = 0000 

10F3 3C 20 2863 989 MvI LENGTH, 32 ALL LOCATIONS 

10F7 CO 87 2602 990 8 tZus 
991 * 

10FB C2 01 0000 992 ZLSLOC LA we%_XR1 RESTORE XR1 

10FF CO 87 0000 993 ZLSLOE 8 — RETURN TO CALLER 
994 
G95 $484S4SESESESEEEEEEESEREREESEESESEREEERERESESESES ESSERE SSERES SS SEESERE 
996 * * 
997 * ZLSSNS - SENSE ANY ZLS ADDRESS, RETURN RESULTS IN *IOPIN® * 
998 * = 
999 FERRET EEEREREEEEESEESERES SEES EEEEEEEEESEESELERESSSESSSESESEEEESEESERE 
1000 

1103 34 08 1130 1001 ZiLSSNS st ZLS$5243,ARR 

1107 34 01 112C 1002 ST ZLS5143-XRi 

1108 35 01 1130 1003 t ZLS5243,XR1 GET PARM ADDRESS 

110F 1€C 00 1121 00 1004 MVC 71850 20(1-XR1) PUT ZLS ADDRS INTO STRING 

1114 D2 01 O21 1005 LA 1(0,XR1L9,XR1 BUMP LINKAGE POINTER 

1117 34 O1 1130 1006 ST ZLS5243,XR1 
1007 * 

1118 CO 87 2408 1008 8 sve 

11l1F Ags82 1120 16009 oc XL2*A882* SERVICE MODE 

1121 1010 2LS50 EQU * 

1121 OO8A 1122 1011 oc XL2°*OO8A® GO -> CR-REG 

1123 o28c 1126 1012 oc XL2*028C* 2LS => ZLS GUT REG 

1125 0086 1126 1013 oc XxL2°'0086! ZLS OUT REG -> X—-REG 

1127 0020 1128 1014 oe xL2*002D°* SENSE X—REG 
1015 © 

1129 C2 01 0000 1016 2LS$51 La *-#,XR1 

1120 Co 87 0000 1017 2L$52 8 *-* 

21auG75 OSNOVTS PaoGg ID C14-1 
627785 827827 PAGE il 


: 


: € 3 


ne 


1132 
1132 
1133 


1135 


1139 
1130 
1141 
1145 


1147 
1148 
1151 
1155 
1159 


1150 


1161 
1165 
1169 
1160 


1173 
1177 


1179 
1178 
1170 
LI7F 


1182 
1183 


1185. 


1187 
1189 


1188 
2180 
116F 
1191 
1193 
1195 


1197 
1199 


DATE 
Ec NO. 


S8ss 8 S&88S 
° 


co 87 
A882 


0088 
O28F 
8B8E 
SESE 


0088 
008A 
006s - 
028F 
0880 


0088 
oosA 
oo8B 
AESE 
CESE 
OES8E 


0048 
2CF3 


21AUG7 
827785 


2329 


1191 
1193 
2837 


240A 
128C 
1280 
128A 
1179 


1186 
118) 
116F 


2cFs 
2CF4 


2a08 


5 


2846 


2crs 


1131 
1132 
1134 


1146 


1178 
1179 
117A 
117¢ 
L17E 
11380 


1182 
1184 
1186 
1188 
118A 
1188 
118C 
1180 
118E 
118F 
1190 
1192 
1192 
1193 
1194 
1196 
1198 
1194 


' OSNOVTS 


827827 


1019 EEEEREKEREEEREEESEEEESESEESS TE EERESEEAESEEESEESESESE SSS FE EEESSESSETERSS 


1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1042 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1960 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 


* 
* COARSE CONTROL STOR TEST - THIS TEST PRECEDES USE OF CS BY s 
* PART 1 OF THE ADAPTER TEST. CONTROL STOR IS RIGOROUSLY * 
* TESTED BY THE MICROCODE LOADER CS TEST ( cll }. 2 
* HERE THE CS LOC 0000 IS TESTED VIA ALL CONTROL STOR DATA s 
* IN BUFFERS ( PRIME AND ALTERNATE FOR EACH LEVEL » USING * 
* ALL 1*S AND ALL OfS. * 
x = 
* ERRORS: 4110 - SOME Cu DATA IN BUFFER PATH SUCCESFuL * 
* 4111 - ALL CS DATA TESTS UNSUCCESSFUL * 
2 = 
SEREEEERAEERSEESSERERESESESRESRSSEREREESESRESERESESSS SES FEE SBESE SSEESSEE SES 
RTN11 oc XLi¢ii* ROUTINE 11 

oc XL2°OO° 

oc ALZCRTNI2) NEXT ROUTINE ADDRESS 
* 

8 BEGIN 
* 

SBF LCSt,xX*10* INITIAL FOR *PRIME® PATH 

S8F LCSRX*10° INITIAL FOR *PRIME® PATH 

8 LMBI ALL MODE BUFFERS = 00 

oc XL 2°8S8FF* 
* 
*%e START TEST 1 ##* 
* 

8 BGNTST 

uvCc CSSW441(2).ZERO INITIALIZE CS BUFFER MEMO 

MVI CSSHW442,0 

MvI CSsw.0 AND ERROR SWITCH 

Vi €S03,0 INITIAL POINTER = 000 
* 
csoo MvI CSDTC.x*10* INITIAL *C* 
= 

MVI CSDTCR.X*00' INITIALIZE OATA LEFT = *00* 

MVI CSOTY.O INITIALIZE DATA RIGHT = *O00* 

4VvVI OPREG,O CLEAR READ IN AREA 

MVC OPREG—1 (2) ,OPREG 
+ 
* WRITE/READ CONTROL STORAGE LOCATION 0000 
* 
csol 8 svP 

oc XL2* A882 * KO. 2. 4 € SERVICE MODE } 
cso3 EQU * 

oc XL 2°0088° POINTER VALUE -> Y-REG 

oc XL2*O28F * Y -> D-REG 

ac XL2*SBS8E* O -> INDEX 

oc XL2° SE BE ® SERVICE ACCESS ( RETAIN INDEX ) 
= 

oc XL2*0068* "90" -> C 

oc XL2*O008A* *BLOCK® -> CR 

oc XL2*O008B* *pIsP* ( 60) =—> Y 

oc XL2*O28F * Y=>> A -> D-REG 

oc xL2*088D* R2 - 7/D-REG -> CSAR B/D 
.Csore eEQU. * CONTROL STOR DATA *C* 

oc XL2°0088° TG OP-REG C 
CSOTCR €QU * CONTROL STOR DATA CR 

oc XL2°O08A* TO OP-REG CR 
CSDTY EQU * CONTROL STOR DATA Y¥ 

oc XL2*0088* TC OP=-REG Y 
ucst EQu * 

oc XL2°AESE* WRITE CS LEFT 
Lcse equ) * ; 

oc XL2°*CESE® WRITE CS RIGHT 

oc XL2*OE8E* SERVICE ACCESS 

oc XxL2°0048° SENSE INTO °C* 

oc AL2(C) 


PROG ID C14-1) 
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C141 
eRe LOC 


1198 
1190 
119F 
L1al 


11A3 
11a9 


11A0 
1183 


1187 
1180 


LiCl 
11C7 
11€0 
1103 
1107 


LIDA 
110E 


11e1 
LIES 


11€8 


LIEC 
11FO 


L1F3 
LLFT 
1L1FB 


LIFE 
1202 
1206 


120A 
120E 
1212 
1216 


121A 
121E 


1222 
1226 


1229 
122F 


1233 
1237 


123A 
123E 


1242 
1246 
124A 


28240 
1251 


DATE 
£C ND. 


i 


. 4 : f~ : io Arg bBo tee 
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19 MODEL 12 
SOURCE STATEMENT 


OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT 
004A 1:9C 1087 oc XL2°004A° SENSE INTO "CRE 1252 CO 87 246A 1155 CS1§ 
2CF4 119E 1088 oc AL2(CR} 1256 10 1256 1156 
0068 11a0 1089 pc XL2*'006B¢ SENSE INTO *¥® 1157 * 
2ce5 L1A2 1090 oc ac2(y?) 1158 # 
1091 * 1159 ® 
0D 00 1188 2CF3 1092 CLC CSOTC(1)-C DATA READ AS EXPECTED ? 1257 00 00 1280 128B 1160 CS30 
co O01 1257 1093 BNE CS30 BR IF NO 125D F2 81 08 1161 
1094 * 1162 # 
0D 00 1180 2CF4 1095 CLC CSOTCR(1),CR DATA READ AS EXPECTED ? 1260 3A 20 128A 1163 
co 01 1257 1096 BNE CS30 BR IF NO 1264 CO 87 LLEC 1164 
1097 * 1165 * 
OD 00 118F 2CFS 1098 CLC CSOTY(1)sY DATA READ AS EXPECTED ? 1268 OD 00 1288 1179 1166 CS30A 
CO O1 1257 1099 BNE CS30 BR IF NO 126E€ F2 O01 12 1167 
1100 # 1168 # 
OC 00 1288 1179 1101 MVC = CSSW4 01.) 9 CS03 SAVE POINTER FOR BUFFER IN TEST 1271 OO 00 128C 1192 1169 
OC 0O 128C 1191 1102 MVC = CSSW441 C1 De LCSL SAVE MODE (PRIMARY GR ALTERNATE) 1277 F2 01 08 1170 
OC 00 1280 1188 1103 MVC = CSSW442013 e CSOTC SAVE DATA PATTERN 1171 *# 
30 FF 1180 1104 CLI CSOTCR»XtFF* ALL 1¢*S TEST IN PROGRESS ? 127A 3A 20 128A 1172 
F2 81 07 1105 Je CSO03A BR IF YES 127E CO 87 LILEC 1173 
1106 @ 1174 # 
3A 10 128A 1107 SBN CSSW,X*10* ELSE SET O*S SUCCESFUL. THIS BUFFER 1282 3A 60 128A 1175 CS308 
F2 87 08 1108 J CS04 CONTINUE TEST 1286 CO 87 LIEC 1176 
1109 * 1177 # 
38 10 126A 1110 CSO3A TBN CSSW»X*10! WERE OfS SUCCESSFULs THIS BUFFER ? 1178 * 
F2 90 04 ill) JF CS04 BR IF NO 1179 # 
1112 # 1284 00 128A 1180 CSSW 
3a 80 128A 1113 SBN CSSW,X*80* ELSE SET "ANY BUFFER SUCCESFUL* 1181 # 
1114 # 1182 * 
3D FF L1LED 1115 CS04 CLI CSDICR»X*FE? WERE FFYS WRITTEN ? 1183 * 
F2 01 17 1116 JNE  CSO5 BR IF NO 1184 * 
L117 * re (1288 21185 CSSW4 
3B 10 128A 1118 SBF CSSW»xX*l0* TURN OFF "O'S SUCCESFUL', FHIS PATH « 1288 128D 1186 
38 10 1191 1819 TBN LCSL»xX*10° *ALTERNATE® PATH TESTED ? 
F2 10 1C 1120 JT CS06 er 1F YES # 
1121 ¢ ae 
3A 10 1191 1122 SBN  LCSL»x*10° ELSE ENABLE *ALTERNATE® 
3A 10 1193 41123 SBN LCSReX*10* CS DATA IN BUFFER r 
CO 87 1150 1124 B csoo 
1125 * 
3C FF 118D 1126 CSO5 MVI  CSOTCR»X*FF* ELSE SETUP LEFT DATA = *FF® 2 
3C FF 118F 1127 MVI CSOTY,X*FF¢ ELSE SETUP RIGHT OATA = *FF* <q 
3C OF 1186 1128 MVI  CSDTC,X*OF* AND C4 - C7 = ‘F* 
CO 87 1173 1129 B csol ss 
1130 * ris 
38 10 1192 1131 CS06 SBF LC SL» X*10° RESET *ALTERNATE® CS DATA ‘ 
38 10 1193 1132 SBF LCSR»X*10° IN BUFFER BS 
1133 ry 
30 CO 1179 1134 CLE CS$03—xX*CO® INDEX PTR = *110* 2? | 
F2 81 OA 1135 JE cso¢ eR IF YES o 
1136 ® . 
OE 00 1179 283C 1137 ALC CS23s132 ELSE BUMP POINTER BY 1 
CoO 87 1150 1138 eB csSoo AND CONTINUE 
1139 * 
39 7F 128A 1140 CS09 TBE CSSWeX*7F* ANY ERRORS OCCUR ? 
F2 90 08 1141 JF CS14 BR IF YES i 
12142 * e 
CO B87 242C 1143 8 NORMN 
CO 87 0216 1144 8 LINK 
1145 
1146 # IF ANY ERRORS GCCURRED DETERMINE WHICH ERR MSG TO OUTPUT 
1147 ¢* 
3C Ol 2CF6 4148 CS14 MVI = LOCNT>2 OUTPUT ERROR IMMEDIATELY 
38 CO 128A 1149 TSN CSSWeX*CO* ANY UNIQUE PATH SUCCESFUL 7? 
F2 30 05 2150. JF csis BR IF NO 
1151 * 
CO 87 2464 1152 8 ERRPRT 
00 1252 1153 oc xL1*00* ERROR 4110 S 
21154 * ve 
21AUGTS OSNOVTS PROG ID C14-1 DATE 21AUG75 OSNOV7S 
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B ERRPRT 


oc xLi°10° ERROR 4111 


Mena bees seen tim Minne ARE ee oo 


GET HERE ON ANY READ COMPARE ERROR 


CLC CSSW4*241),CSDTC DATA SAME AS SUCCESFUL READ ? 4 
JE _CS30A BR IF YES 
SBN CSSW»X*20° ELSE SET *SOME ERROR® | 
8 CS04 ; 
CLC CSSW461),CS03 BUFFER SAME AS SUCCESFUL READ ? 
JNE S308 BR IF NO : 
CLC CSSW4*1C1)2LCSL ALT/PRIME SAME 2 
JNE S308 oR IF NO 

SBN CSSWeX*20! SET *SOME ERROR* | 
8 CS04 AND CONTINUE 

SBN CSSWeX*60° SET *SOME CTHER CS BUFFER PATH ERR® 

B CS04 AND *SOME ERRORS 


RESULT SWITCH 


oc XL1°00* 80 - ANY CS DATA IN BUFFER SUCCESSFUL 
40 ~ SOME CS DATA IN BUFFER FAILED . 

20 - SOME ERROR OCCURRED 

10 - O*°S SUCCESSFUL» HIS BUFFER J 

equ ¢ | 
oS = XL3 MEMO TO IDENTIFY CS DATA IN BFR PATH_ ! 
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; PAGE i3 PAGE 13A 
C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 
ERR LOC OB8JECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1188 gcepeneettstatEsHeeeGneSeETteEEOSSSEREAEESERER ERASERS SESS OS EES SSSI IISS 1256 * 
1189 * 1311 3C 10 1302 1257 MVI  TRAPO6.X*10° SETUP TRAP B ERROR 
1190 * HOT TRAP BIT TEST - ATTEMPT TO RESET TRAPS Ap B & Cy THEN * 1315 3C 05 12€93 1258 MVI  TRAPOS»X*05* AND INDEX 
1191 * INSURE THAT INDEX *LINK® WORDS ARE NoT * 1319 CO 87 12DA 1259 ) TRAPO4 | 
1192 * AFFECTED 8Y ANY TRAP BIT. * 1260 * 
1193 * * 1310 3C 20 1302 1261 TRAPOS MMVI TRAPOGeX*20! SETUP TRAP A ERROR 
1194 # ERRORS: 4120 — TRAP C HOT * 1321 3C 03 12€8 1262 MVi  TRAPO5sX*03* AND INDEX 
1195 * 4121 - TRAP B HOT * 1325 CO 87 12DA 1263 B TRAPOG 
1196 # 4122 — TRAP A HOT * t 1264 # 
1197 * * 1329 CO 87 242C 1265 TRAP10 8 NORMN 
1198 * aegeaenedGeeeseHeehee sessed tt SSEEEESSEEEEEEESES TREES ESAT ESS IIS STIS, 132D co 87 0216 1266 B LINK 
1199 
128E 12 128E 1200 RTN12 oc xL2°12° ROUTINE 12 : 
128F 00 126F 1201 oc xL1°00* ie 
1290 1331 1291 1202 oc AL2(RTNL3) NEXT ROUTINE ADDRESS 
1203 * 
1292 CO 87 2329 1204 8 BEGIN i 
1205 * : 
1206 * SCN, DST AND FHF REGISTERS ARE RESET DURING *BEGIN® ROUTINE 
1207 * TO INHIBIT TRAPS Ay BEC 
1208 * l 
1296 CO 87 2637 1209 8 LMBI SET ALL REMAINING MODE BUFFERS = 00° - 
129A SB69CFF 129C 1210 pC . XL3*8s9CFF* 
1211 * 
1290 CO 87 2871 1212 8 cs! ny 
12A1 0000 12A2 1213 oc xL2*0060° ‘c 
12A3 080000 12A5 1214 pc XL3* 080000° NO-OP . 
1246 OOOOO1FF 12a9 1215 oC XL4* OOOOO1FF * 8 0001, HANG - 
; 1216 * , 
1217 #** START TEST 1 e* | 
1218 * Bes 
—  «L2AA CO BT 240A 1219 8B BGNTST ba 
1220 * 
- 12AE 3C 00 2601 1221 MVI- ALSB+31-X*00° e 
1282 OC 1& 2800 2801 1222 MVC =: ALSB#30(31),ALS8+31 cs 
1288 3C 00 2C11l 1223 MVI  ALSDe31,.X*00" : 
128C OC 1lE 2€10 2Ci3 1224 MVC ALSD+30(31) ,ALSO*31 — 
12C2 3C 03 2689 1225 MMVI ALSB#79X*03* INDEX TO ALLOW TRAP A _ 
12C6 3C OS 268D 1226 MVI ALS6+119x°05* INDEX TG ALLOW TRAP B 
12CA 3C 06 288F 1227 MVI  ALSB+13eX*06" INDEX TO ALLOW TRAP. C a 
12CE 3C €7 2801 1228 MMVI  ALS84+15,_X*ET* INDEX TO SERVICE ANY TRAP . 
12D2 3C 06 12£8 1229 MVI TRAPOSseX*O6* INITIAL INDEX 
1206 3C 00 1302 1230 MvI = TRAPOG.O INITIAL ERROR CODE Le 
1231 * nL - 
120A 3C 00 28F2 1232 TRAPOS MMVI ALSD»O INITIAL BASE LVL MIAR = 0000 
12DE 3C 00 2C0E 1233 MVI ALSD+28,0 INITIAL TRAP EVE MIAR = GO00 
12E2 CO 87 2720 1234 8 LALSB1 LOAD ALS 8 1 € 
1266 CO 87 2756 1235 8 LALSOL LQAD ALS OD | 
1236 * ie 
12£8 1237 TRAPOS EQU ¥+12 mA 
12EA 3C 06 2866 1238 MMVI - ENDEX »X*06* PREPARE INDEX ar 
1239 @ “a = 
12G€E CO 87 29CF 1240. a 10PG60 RUN TOP i 
1241 ¢ : 
12F2 CO 87 2801 1242 8 SaLsO STOP 10P, GET -MEAR FOR LvL 7 as he teh ce 
12F6 1C 12F6 1243 oc AL1028) v a Shee 
1244 % 
L2F7 3D 00 2862 1245 CLI IOPIN,xX*00* ANY TRAPS TAKEN ? a 
12F8 F2 81 05 1246 JE TRAPOT er IF NO a 
1247 @ 
12FE CO 87 246A 1248 B ERRPRT a 
1302 00 1302 1249 TRAPO6 OBC xL1°00° ERRGR 4120, 4121 GR 4122 tc, 
1250 * : 
1303 30 03 12€8 1251 TRAPO? CLI TRAPOSsX*03° TESTED ALL TRAPS 2? ‘ 
1307 F2 81 1F 1252 JE TRAP1O BR IF YES ee 
1253 * 
130A 30 OS 12E8 - 1254 CLI TRAPOS.»xX*O5* TESTED TRAP B ? : 
130€ F2 81 OC 1255 JE TRAPOS BR IF YES mS : 
DATE 21AUG75 CSNOVTS PROG I0 Cl4-1 DATE 21AUGT5 OSNOV7T5S PROG ID Cl4-2; 
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PART NO. 4247605 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247605 
PAGE. 14 . ‘ PaGE L4&A 
CiX41 3340 ATTACHMENT TESTS (PART 1) MUDEL 12 C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1268 REAKEREEREEEEREREREKER EERE ESEESEERERSRETS SESE SEKEEESESS ESSE SEESEAEAT EES 1336 
1269 % & 1391 OO4F 1392 1337 oc X¥L2*O00GF* READ ALSB USING PROCESS POINTER 
1270 * ALS TEST (PART 2) -— LOAD ALSB OO —- 31 THEN READ ALSB USING = 1393 2803 1394 1338 cc AL2(ALSBIN41 3 
1271 * ALL POINTER/MODE COMBINATIONS VIA ACCESS * 1339 * 
1272 * AND PROCESS POINTERS AS WELL AS INDEX REG* 1395 004C 1396 1340 oc XL2*004C * READ INDEX WORD FROM ALSB USING 
1273 * * 1397 2804 1398 1341 oc AL2(ALSBIN¢2) LINK ADDRESS 
1274 * READ PROCESS AND ACCESS POINTERS THEN * 1342 * 
1275 # TEST "TIME SLICE FL® AND "ADDRESS EQUAL * 1399 0047 139A 1343 oc XL2*0047* READ PROCESS POINTER 
1276 * COMPARE® CONDITION ( USE CSAR = 0000 - * 1398 2B05 139C 1344 oc ALZ2(ALSBIN+¢3) 
1277 *® FFFF IN O1OL INCREMENTS } * 1345 * 
1278 * 1390 0065 139E 1346 Oc XL2°0065* READ ACCESS POINTER 
1279 * ERRORS: 4130 -— ACCESS POINTER READ FAILED * 139F 2BD6 13A0 1347 oc AL2(ALSBING4}) 
1280 * 4131 — PROCESS POINTER READ FAILED * 13468 * 
1281 * 4132 - INDEX READ FAILED * 13Al 38 03 1503 1349 TBN ALSEXP»2X*03* INDEX GNLY ADORESS ? 
1282 * 4133 - PROCESS POINTER NOT AS EXPECTED * i3A5 F2 10 20 1350 JT ALS37 BR IF YES 
1283 * 4134 - ACCESS POINTER NOT AS EXPECTED * 1351 * 
1284 * 4135 - TIME SLICE FL FAILED TO SET/RESET * 13A8 10 0O 2802 01 1352 CLC ALSBIN»1(15XR1) ACCESS POINTER METHOD WORK ? 
1285 * 4136 - "ADDRESS COMPARE* FAILED TO SFT/RESET * 13A0 CO 01 14C7 1353 BNE ALSERS BR IF WO 
1286 * 4137 - "CSAR* CKECK * 1354 * 
1287 * + 1381 38 G2 1503 1355 TEN ALSEXP »X*G2° VALID PROCESS POINTER AODRESS ? 
1288 RRERHRELSEREREEE EEE ESSERARERERE SEEKS SEREARERESESELASESRESERERERE ESES SEE EEE 1385 F2 10 09 1356 JT ALS36 BR IF NO 
1289 1357 * 
1331 13 1331 1290 RTN13 oc xLi¢i3¢ ROUTINE 13 1388 1D 0O 2803 O21 1358 CLC ALSBIN41.1¢1¢—XR1) PROCESS PUINTER METHOD OK ? 
1332 00 1332 1291 oc XL1°00° 13B0 CO O01 14D0 1359 BNE ALSER6 BR IF NG 
1333 1559 1334 1292 oc AL2(R™N14} NEXT ROUTINE ADDRESS 1360 # 
1293 .# 13C1 38 O1 1383 1361 ALS36 TBN ALS35,X*O1® GDO ALS ADDRESS ? 
1335 CO 87 22F3 1294 8 BGNIOP 13C5 F2 90 09 1362 JSF ALS40 BR IF NO 
1295 © 1363 * 
1339 CO 87 OFA8 1296 8 ALStOD SETUP ALS 00 - 31 13C8 iO0 OO 2804 01 1364 ALS37 cLc ALSBIN¢25141,XR1) INDEX READ OK ? 
1330 C2 O1 1504 1297 LA ALSTBL-2-XR1 POINT TO DATA TABLE 13C0 CO O1 1409 1365 BNE ALSER7 BR IF NO 
1298 * 1366 * 
ae. 1299 *** START TEST 1 #*% 130i 38 03 2805 1367 ALS40 SBF KLSBINA3 2X *O3* IGNORE "ADORS CMPR® & *TIME SLICE® se 
1300 # 1306 1368 ALS36A £QU *¢+) 
1341 €O 87 240A 1301 ALS30 B BGNTST 1305 30 00 2605 1369 CLI ALSBIN¢3,X*00* PROCESS POINTER AS SETUP ? 
1345 1° 00 1376 0} 1302 MVC ALS33,1(12XR1) GET ALS ADDRESS TO BE ACCESSED 1309 CO 01 14E2 1370 BNE ALSERS BR IF NG 
134A 34 80 1378 1303 SBN ALS33,X'80° SETUP SMODE INSTR *CR* FIELD 1371 #* 
134E 1C 0O 1383 OO 1304 MVC ALS35,0(1,XR1} SETUP INDEX CPTR/LINK) 130D 38 03 28D6 1372 S8F ALSBIN#4,X*03° IGNORE *ADDRS CMPR® & *TIME SLICE* 
1353 1C 00 1503 01 1305 MVC ALSEXP,1(1,XR1) SETUP EXPECTED "*DATA® 13E2 1373 ALS36B8 EQU e+] 
1358 0C 01 2803 22E4 1206 MYC ALSBIN41(2) ,FFEF INITIALIZE READ AREAS 13£1 3D 00 2806 1374 CLI ALSBIN+4,X*00* ACCESS PINTER AS SETUP 2? 
135E 3C FF 2862 1307 MVE IOPIN,X* FFE 13€5 CO Ol 14EB 1375 BNE ALSERS Bk IF NO 
1362 1C OO 1306 02 1308 avec ALS36Ae2C12eXR1) SETUP EXPECTED PROCESS POINTER 1376 * 
1367 1€ OO 13£2 02 1309 MVC ALS368-201,XR1L) SETUP EXPECTED ACCESS POINTER 13E9 CO 87 242C 1377 8 NORMN LOGP ON LAST TABLE TEST 
136C 38 C2 1503 1310 TBN ALSEXP,X*02°* OSAR GR INDEX MODES ? 1378 * 
1370 F2 %O 04 1311 JF ALS32 BR IF NO 13—ED 02 O01 03 1379 LA 30 _XR19-XR1L THEN BUMP TABLE POINTER 
1373 3A 16 13E2 1312 SBN ALS368eX'10° ELSE TURN ON *MG(DS) BIT IN EXPTD 13F0O 70 FF OO 1380 cLI Ol ge XRLIeX*FFFE END OF TEST ? 
1313 * ACCESS POINTER 13F3 CO O01 1341 1381 BNE ALS30 BR IF NWO 
1314 # SETUP MODE BUFFER PER TABLE ENTRY 1382 * 
: 1315 * 1383 # TEST *TIME SLICE FLIP LATCH? 
1377 CC 87 2837 1316 ALS32 8 LmMBI 1384 * 
1378 1317 ALS33 EQU * 1385 * 
1378 66 i378 1318 oc AL1(*-*) 1386 ***# START TEST 2 #%*% { 
137C fF 137C 1319 DC XLI‘FF® 1387 * i 
1320 * 13F7 CO 87 240A 1388 8 BGNTST 3 
1321 * SETUP INDEX REG, PRCCESS AND ACCESS POINTERS 1389 * ‘ 
1322 * THEN READ ALS USING THESE 3 METHODS. 13F8 3C OO 1408 ° 1390 MMVI ALS555X*Q0* INITIAL *INDEX* i 
1323 * 13FF OC O1 2803 283 1392 ALS5O MVC ALSBINGEL(2),F2 CLEAR INPUT AREA ‘ 
1370 CO 87 2A08 1324 6 sSvP 1392 * 
1381 E882 1382 1325 oc XL2*E882° SERVICE MODE AND PREVENT TRAP 1405 CO 87 2A08 1393 8 SvP 
1383 1326 ALS35 EQU * 1409 E882 140A 1394 oc XL2*E8B2* 
1383 00 1383 1327 oc AL1(*-*%)} DATA (POINTER/LINK) 140B 90 1408 1395 AtS55 oc AL1(#-*) INDEX REG DATA GOES HERE 
1384 BA 1384 1328 Oc XL1*8A* TO *CR* REG 140C 8A 140C 1396 oc XL1*°SA®* DATA -> CR REG 
1385 228F 1386 1329 oC XL2'*228F * CR -> CRY SW -> A -> D-REG 1400 228F 140E 1397 bc XL2*228F * crRY -> A-> OD ; 
1387 8BBE 1388 1330 oc XL2*8B8E°* RUN TOP, D-REG -> INDEX REG 140F 8B8E 1410 1398 oc XL2*888E* D -> INDEX REG ; 
1389 BEBE 1384 1331 oc XL2°*8ESE* RUN IOP, AGAIN (RETAIN INDEX REG) 1411 F8B2 1412 1399 oc XL2*F882° KOs le 22 39 & ; 
1388 F882 138C 1332 oc XL2*F882° KOy Klye K2_9 K3—e K& CLK RST E& PRVNT 1413 0045 1414 1400 oc XL2* 00456 SNS ACCESS POINTER \ 
1333 * TRAPS 1415 2802 1416 1401 ov AL2(ALSBIN) *TS LATCH® SHOULD BE ON 
1380 004D 138E 1334 oc XL2*004D* READ ALSB USING ACCESS POINTER 1402 * NOW RESET *TIME SLICE FL* = : 
138F 2802 1390 1335 oC AL2(ALSBIND 1417 £882 1418 1403 DC xUL2*E6882° KOe le 20 4 : 
: DATE 214UG675 OSNOV75S PROG ID Ci4-1 DATE 21AUGT75 OSNOV7S PROG 10 Ci4-1) 
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C141 
ERR LOC 


1419 
14168 
1410 
141F 


1421 
1425 


1428 
142C 


142F 
1435 
1439 


1430 


1441 
1445 


1449 
1440 


1453 
i457 
1459 
1458 
1450 


145F 


1461 
1463 


1465 
1467 
1469 
1468 
1460 
146F 
1471 


1473 
1477 


147A 
147E 


1481 
1485 


1487 
1489 
1465 
1480 
148F 


1491 


1495 
1498 
149C 
1440 


DATE 
EC NO. 


OBJECT CODE ADDR 

8B8E i4+1A 

Fes2 141C 

0065 141E 

2803 1420 

38 02 2802 

F2 90 CC 

39 02 2803 

F2 90 C5 

OE 00 1408 263C 

30 EO 1408 

CO 01 13FF 

CO 87 242C 

3C 00 1459 

3C 00 1487 

CO 87 240A 

OC 01 2BD3 283A 

CO 87 2A08 

E882 1458 

OO8A “145A 

228F 145C 

oc 80 145€ 

Fas2 1460 

0045 1462 

2802 1464 

£882 1466 

O18A 1468 

228F 146A 

oseD 146C 

Fa82 146E 

0065 1470 

2803 1472 

38 01 2802 

F2 90 7F 

39 01 2603 

F2 90 78 

CO 87 2A08 

£882 1486 
1487 

OO8A 1488 

228F 148A 

0880 148C 

0063 148E 

2802 1490 

39 02 2802 

F2 10 66 

CO 87 242C 

3D 40 1459 

CO 81 0216 

21AUGTE OSNOVTS 
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1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
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1441 
1442 
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1444 
1445 
1446 
1447 
1448 
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1451 
1452 
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1454 
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1462 
1463 
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1466 
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1) MGOEL 12 


SOURCE STATEMENT 


eo % 


TSF 
JF 


ALC 
cLI 
BNE 


TEST "ADDRESS COMPARE® 


MvI 
MMVI 


* 
wae START TEST 


* 
ALS60 


* 
ALS61 
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ALS63 


8 
MVC 


6 

oc 
oc 
oc 
oc 


EQU 


oc 
oc 
oc 
DOC 


TOF 
JT 


cul 
BE 


XL2*BB8E* 
XL2*F882° 
xL2*0065' 


AL2(ALSBINGC)) 


ALSBIN«X*02' 


ALSERA 


ALSBIN4¢1,X*02" 


ALSERA 


ALS554132 


ALS55yX*r0° 


ALS50O 


NORMN 
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D-RES ~> INDEX REG 

K2,_ 3 

SNS ACCESS POINTER 

'TS LATCH’ SHOULO BE OFF 


TS FL ON, AS EXPECTED ? 
BR IF NO 


'T S FL® OFF, 
BR IF NO 


AS EXPECTED ? 


AOD X*20" TO NEXT INDEX 


LAST TEST COMPLETE ? (POINTER 110) 


BR IF NO 


ELSE CONTINUE 


t 


ALS62-1-0 INITIAL CSAR VALUE = 0000 
ALS63,0 INITIAL CSAR VALUE = 0000 
2eae 
BGNTST 
ALSBING102) 413 RESET EXPECTED BITS 
SvP 
XL2*E882° KOe le 25 4 
XL2*008A* *00* -—> CR REG 
XL2°228F* CR -> CRY -> A -> D-REG 
xL2*OC8D* R => CSARB, OD -> CSARD, 
R-BUS & D-REG -> *ADDRESS COMPARE ® 

XL2*F882° KO - K4 
XL2*0045* SENSE ‘ACCESS POINTER ® 
AL2(ALSBIN) INTO *ALSBIN® 
ADDRESS COMPARE UNEQUAL 
XL2*E882° KOe le 20 4% 
XL2*O18A* "01" -> CR REG 
XL2*226F* CR -> CRY -> A -> D-REG 
xi2°0880° R -> CSARBe D -> CSARD 
XL2*FBP2° KO - K4 
XL2*0065° SENSE "ACCESS POINTER® 
AL2(ALSBING#1) INTO LOC *ALSBINGL® 
ALSBIN,X*01° ADDRESS COMPARE GN, AS EXPECTED ? 
ALSERB BR IF NO 
ALSBIN41¢X*01* ADDRS COMPARE OFF, AS EXPECTED ? 
ALSERB BR IF NO 
SvP 
XL2"E882° KOe le 22 & 
s 
XL2*008A® "00" -> CR REG 
XL2*228F° CR -> CRY -> A -> D-REG 
XL2*088D* R -> CSARB, D ~> CSARD, 
XL2°0063° GET *CHECK SENSE® 
AL2(ALSBIN) INTO *ALSBIN® 
ALSBINeX*02° CSAR CHECK ? 
ALSERC eR 1F YES 
NORMN 
ALS62-15X*40* OONE 7? 
LINK wR IF YES 

PROG ID C14-1 
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3340 ATTACHMENT TESTS (PART 


ERR LOC OBJECT CODE 


14A4 
14A8 


14AB 
14B1 
1487 


1488 
14BF 
14C3 


14C7 
14CB 
14CC 
14CE 


14D0 
1404 
1405 
1407 


1409 
1400 
140E 
14E0 


14E2 
14E6 
14E7 
14€9 


14EB 
14EF 
14FO 
14F2 


14F4 
14F8 


14F9 
14FO 


14FE 
1502 


1503 
1504 
1507 


DATE 
EC NO. 


ADDR 
30 FF 1459 
F2 81 10 
OE 00 1459 2847 
OE 00 1487 2847 
CO 87 1449 
3C 40 1459 
3C 40 1487 
CO 87 1449 
CO 87 246A 
02 14C8 
1503 14C€0 
2602 14CF 
CO 87 246A 
12 14D4 
1503 14D6 
2803 14D8 
CO 87 246A 
22 1400 
2BD4 14DF 
2862 14E1 
CO 87 246A 
32 .4E6 
1306 14E8 
2805 14EA 
CO 87 246A 
42 14EF 
13E2 14F 1 
2BD6 14F3 
CO 87 246A 
50 14F8 
CO 87 246A 
60 14F0 
CO 87 246A 
70 1502 
00 1503 
000000 1506 
00010C 1509 
21AUGT5 OSNOV75 
827785 827827 


STMT 


1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 





PAGE 
1) MODEL 12 
SOURCE STATEMENT 
s 

CLI ALS62-15X°FF* EVEN PARITY DONE ? 

JE ALS64 BR IF YES 
* 

ALC ALS62-1(1),ELEVEN 8UMP CSAR DATA ( i7 7 

ALC ALS63(1},ELEVEN BUMP CSAR DATA ( #17 ) 

8 ALS60 CONTINUE 
* 
ALS64 MVS ALS62-1+X*40* GND PARITY 

MVI ALS635X°40° OOD PARITY 

8 ALS60 CONTINUE TEST 
* GET HERE IF ACCESS POINTER FAILS 
ALSERS 8 ERRPRT 

DC XL1°02* ERROR 4130 

oc AL2(ALSEXP) 

oC AL2(ALSBIN) 
* GET HERE IF PROCESS POINTER FAILS 
ALSER6 8 ERRPRT 

oc XLLE12¢ ERROR 4131 

oc AL2UALSEXP) 

DC AL2(ALSBING1) 
* GET HERE If INDEX FAILS 
ALSERT 8 ERRPRT 

oc XL1°22° ERROR 4132 

oc AL2(ALSBING2) 

Dc AL2( IOPIN) 
* GET HERE IF PROCESS POINTER NOT AS EXPECTED 
ALSERS 8 ERRPRT 

oc xL1*32¢ ERROR 4133 

oc AL2(ALS36A) EXPECTED POINTER 

oc AL2(ALSBIN+3) RECIEVED ee 
* GET HERE IF ACCESS POINTER NOT AS EXPECTED 
ALSERO B ERRPRT 

DC XL1°42¢ ERROR 4134 

DC AL2(ALS368) EXPECTED POINTER 

oc AL2(ALSBIN+4) RECIEVED ae 
* GET HERE If TS FL FAILS TO SET 
ALSERA B ERRPRT 

DC xXL1°50° ERKOR 4135 
* GET HERE IF "ADDRESS COMPARE® TEST FAILS 
ALSERB 8 ERRPRT 

OC XL1°60° ERROR 4136 
* GET HERE IF *CSAR CHECK" 
ALSERC 8 ERRPRT 

oc XL1*70° ERROR 4137 
Soe eee ere SO YAS SA SA AES A UY a ND A AS AF OI CY A RE ome & 
= 2 
* ALSTBL — DEFINES INDEX (PTR/LINK) VALUEr * 
* DATA FOR SMODE INST AND EXPTO DATA * 
* AS FOLLOWS: BYTE 1 — XXXY 7222Z WHERE * 
* XXX = PTT AND * 
* NOTE: POINTERS TESTED FOR 2222 = Li — L& C INDEX) * 
* MODES 00+ O1 & 10, = 
* INDEX TESTED WITH BYTE 2 - XX WHERE XX * 
* MODES 01 & 11. 1S THE DATA IN THE AODRESED* 
* ALS LOCATION (BIT O IS * 
* ADDED TO XX FOR SMODE INST)# 
2 s 
* BYTE 3 - EXPECTED POINTER * 
s = 
Forno ore wow Se DD ES A ES AE A LE YD ED 0 NS A AED tO ONE A EP EOD “ND — * 
ALSEXP DC AL1(*-®) EXPECTED DATA SAVE AREA 
s 
ALSTBE OC XL3*000000* PTR COO MODE 00 EXPTD PTR 00 

oc XL3*00010C* 01 


sponge eat toe cea cnapweegns Hidethr mit nay Forsiantiwagd all wise © 


aes = 
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4247605 


oc 


15A 


C14-1) 
15A_ 








IBM MAINTENANCE OIAGNOSTIC PROGRAM PART NO. 4247605 IBM MAINTENANCE DIAGNOSTIC PROGRAM . PART NO. 4247605 
PAGE 16 PAGE 16A 
| €141 3340 ATTACHMENT TESTS (PART 1) MODeL 12 C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 
| ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
150A 000204 150C 1540 oc XL3*000204° 10 04 1575 ERORT ERE REEEEERREESEESSEEEEHERESEEEEREEE EER SEEESTEEESSESES EERE SESE S OSS 
41500 010308 ISOF 1541 oc XL3*010308* 12 os 1576 * ; * 
1542 * 1577 * ZLS TEST ( PART 2.) — READ ZLS, ADDRESSED BY THE POINTER * 
1510 200424 1512 1543 oc XL3* 200424! FTR O01 1578 * { LOCATIONS OO - O6 ) AND 6Y THE POINTER AND '*BIT 0 -> s 
1513 220528 1515 1544 oc XL3*220528° 1579 * ZLSAR* (LOCATIONS 10 - 16 } * 
1516 200620 1518 1545 oc XL3*200620°* . isso * . 
1519 23072C 1518 1546 oc XL3*23072C° 1581 * ERROR: 4140 — ZLS DATA READ NOT AS WRITTEN * 
1547 * 1582 * * 
151C 400844 151E 1548 oc XL3°400844! PTR 010 i 1583 CERSEEESEREEEEESERENOCEREEEESEESEEESEOSESEEEEEDESES ESTES SET SES OF SSE SESS 
151F 440948 1521 1549 DC XL3°440948° . 1584 
1522 400A40 1524 1550 oc XL3*®400A40° 1559 14 1559 1585 RTN14 oc XL1*14* ROUTINE 14 
1525 %50B84C 1527 1551 oc XL3°450B4C* 155A 00 155A 1586 oc XL1°00* 
1552 * 155B 15€4 155C 1587 oc AL2(RTN1L5) NEXT ROUTINE ADDRESS 
1528 600C60 152A 1553 oc XL3*600C60* PTR Ol 1588 * 
152B 660D6C 152D 1554 oc XL3*660D6C* 1550 CO 87 2329 1589 8 BEGIN 
152E 600E64 1530 1555 oc XL3*600E64* 1590 * 
1531 670F68 1533 1556 oc XL3"*670F68° 1561 CO 87 2837 1591 8 LMBI ALL MODE = 00 
1557 ® 1565 88FF 1566 1592 oc XL2°* 88FF* 
1534 801084 1536 1558 oc XL3*801084°* PTR 100 1593 * 
1537 881188 1539 1559 oc XL3°881188°* 1567 CO 87 10C9 1594 8 ZLstod SETUP ZLS 00 - 321 = *00° — *le® 
153A 801280 153C 1560 oc XL3*801280°* 1595 * 
1530 89138C 153F 1561 oc XL 3*89138C* 1568 3C OO 1257C 1596 MVI ZLS61A,0 DATA EXPECTED INITIALLY = 00 
- 1562 * 156F 3C 00 128A 1597 MVI CSSWe0 CLEAR RESULT SW 
1540 AQ14A0 1542 1563 oc XL3*AGL4&A0* PTR 101 : 1598 = 
1543 AA15AC 1545 1564 oc XL3*AALS5SAC® 1599 *** START TEST 1 *** 
1546 AOQ16A4 1598 1565 oc XL3*AOi6A4* 1600 * : 
1549 ABITAB 1548 1566 oc XL3"AB1LTASE* 1573 CO &7 240A 1601 ZLS61 8 BGNTST 
1567 * 1602 * 
154° €018CO 154E 1568 oc xL3*CO18Ccof PTR 110 1577 3C 0O 1585 1603 MVI 7LS63,0 INITEAL INDEX = 00 
| 154F CC19CC 1551 1569 oc XL3'°CC19CC* L57C 1604 ZLS61A EQU +1 
| 1552 COLACS 1554 1570 oc XL3*COLAC4S* 1578 3C OO 1592 1605 MVI ZLS65,0 EXPECTED DATA STARTS WITH OO 
| — 1555 CD16C8 1557 1571 oc xL3*co1Bce* 1606 * ba re ee a ee AE 
| 1572 * 157F CO 87 2A08 1607 7LS62 8 SVP 
1558 FF 1558 1573 oc XLI*FFP TERM 1583 A882 1584 1608 OC XL2*A882* SERVICE MODE 
1585 1609 ZLS6é3 £QU * 
: 1585 0088 1586 1610 oc XL2*008B* 06 —> Y-REG 
, 1587 O28F 1588 1611 oc XL2*O28F * ¥ +> D-REG 
; 1589 8B8E 158A 1612 oc XiL2*S8B8E* D -> INDEX 
158B SESE 158C 1613 oc XL2* BESE® SERVICE ACLESSs LOAD POINTER FROM 
1580 0086 158E 1614 oc xL2*0086* ZLSOUT -> X-REG INDEX 
1S8F 0020 1590 1615 oc XL2*002D° SENSE X—-REG 
1592 1616 ZLS65 equ e+1 
1591 3D O00 2862 1617 CLI IGPIN,X*O0* ZLS READ = EXPECTED ? 
1895 F2 81 04 1618 JE ZLS68 BR If VES 
1619 * 
1598 3A O1 128A 1620 SBN CSSWeX*01* ELSE SET "ERRCR OCCURRED® SW 
159C 30 CO 1585 1621 ZLS68 CLI ZLS63-X*CO* TEST DONE 2 (POINTER 110) 
15A0 F2 81 10 1622 JE ZLS70 BR IF YES 
; 1623 * 
15A3 O€ OO 1585 2B83C 1624 ALC ZLS$6301)¢132 ELSE BUMP INDEX BY X*2C0° 
15A9 OE O00 1592 2B36 1625 ALC ZLS6501)-12 BUMP EXPECTED DATA 
i 1SAF CO 87 157F 1626 8 ZLS62 CONT ENUE 
i 1627 * 
‘ 15B3 38 O1 128A 1628 ZLST70 TBN CSSWeX*OL® ANY ERROR OCCUR ? 
\ 1587 F2 10 25 1629 JT ZLSERO eR IF YES 
if 1630 # 
‘ 15BA CO 87 242C 1631 B NORMN Looe 
1632 * 
15BE 38 02 128A 1633 TBN CSSW,X'02* 2ND PASS OONE ? 
16C2 CO 10 0216 1634 eT LINK BR IF YES 
1635 * 
15C6 CO 87 2837 1636 8 iMBI SET ALL MODE BUFFERS = 11 
ISCA 83878B8F93979B9F 1502 1637 oc XL9*83876B6F93979BSFFF* 
Be 1502 FF 1637 
yo 1638 @ 
\ 1503 3A O02 128A 1639 SBN CSStt,X*02* SET *2ND* PASS INDICATOR 
! 15D7 3C 10 157C 1640 VI ZES61A,X*10* INITIALLY DATA = 10 
[ 1808 CO 87 1573 1641 6 ZLS$61 GG RUN 26D PASS 
> BATE 21aUGT5 OSNOVTS Prac 10 Cl4-1' - DATE 21AUGT75 OSNOVTS PROG 1D Ci4-1>5 
EC NO. 827785 827827 PAGE 16 | eC KO. 9827785 ‘827827 PAGE 16A 
ne 
| 
t | &es 
1c 
| 
I 
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16M MAINTENANCE OLAGNOSTIC PROGRAR PART NO. 4247605 18M MAINTENANCE OIAGNOSTIC PROGRAM PART NOW 4247605 
PAGE 17 . PAGE 17A 
C141 3340 ATTACHMENT TESTS (PART 1) MONEL 12 C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1642 * 1646 EEKAREEDREREERERESESEREEESSSEEEEEEESEEESSESESESEEES SS ERTS ESSE SS EO SSEESS 
15D0F CO 87 246A 1643 ZLSER9 «BB ERRPRT 7 « 1647 * * 
15E3 00 15E3 1644 oc xL1*00° ERROR 4140 | 1648 * BRANCH INSTRUCTION TEST - EXECUTE AN UNCONDITIONAL BRANCH * 
1649 * THEN TEST THAT THE D-REG CONTAINS THE * 
: 1650 * DISPLACEMENT AND THE IAR = THE 6R ADORESS * 
1651 * * 
: 1652 * EXECUTE AN UNCONDITIONAL SUBROUTINE BRANCHS 
1653 * AND TEST D-REG AS BEFORE, ALSO TEST MIAR * 
1654 * OR SIAR AND ACCESS POINTER FOR BRANCH * 
1655 * ADDRESS AND *SUBROUTINE® MODE * 
1656 * * 
1657 * EXECUTE BRANCH INSTRUCTION WITH BAD PARITY* 
1658 * AND *CK STOP O*RIDE® OFF AND TEST THAT * 
1659 * 1AR DOESN*®T ACQUIRE BRANCH ADDRESS- * 
1660 * ; * 
1661 * ERRORS: 4150 - 6R DISPL DIO NOT GO TO D-REG * 
1662 * 4151 — MIAR DIO NOT. ACQUIRE BR ACORESS * 
1663 * 4152 - MIAR (B) DID NOT ACQUIPE BR ADDRESS * 
1664 * 4153 - MIAR (0) DID NOT ACQUIRE BR ADDRESS * 
1665 * 4154 - IAR DID NOT SWITCH AS MODE CHANGED * 
1666 * 4155 - SUBROUTINE MODE NOT SET IN ACCS POINTER* 
1667 * 4156 — OP-REG CHECK DID NOT OCCUR * 
1668 @ 4157 ~ OP-REG CK DID NOT SUPPRESS INSTRUCTION * 
1669 * * 
1670 CHEER EREEEESESEREEEEESESEREESSSEEEES STEED SEES EESDRESES ESTES SESESEFE SESS 
1671 
15E4 15 15E4 1672 RTN15 oC XL1°15¢ ROUTINE 15 
15E5 00 15E5 1673 oc XL2°00° 
15E6 1737 15E7 1674 oc AL2(RTN16) NEXT ROUTINE ADDRESS 
1675 * 
af 15E8 CO 87 22F3 1676 8 BGNIOP 
oa =o eS pe i — 1677 = 
15EC CO 87 2837 1678 8 -LMBI PTR 000 MODE = 00 
5 15FO SOFF 15Fl 1679 oc XL 2*80FF* 
See 1680 * 
1681 *#* START TEST 1 *** 
1682 * 
15F2 CO 87 240A 1683 8 BGNTST 
1684 * 
e Hs 1685 * EXECUTE *B* (UNCONDITIGNAL BKANCH) INSTRUCTION 
Ce 1486 * 
15F6 3C 00 16F0 1687 MVI = BR2100 Ce CRe ¥ = 001234 
15FA 3C 12 16F2 1688 MVI  8R22,X*12° ‘8 1234 INSTRUCTION ) 
15FE 3C 34 16F4 1689 MVI «= BRIBEX*34* 
( 1602 3C 68 16F6 1690 MVI - BR24eX*8B8° SET "CK STOP O*RIDE* 
1691 * 
1606 CO 87 16DE 1692 8 BR20 EXECUTE TEST STRING 
1693 * 
Be 160A 3D 34 1730 1694 CLI BRXREG,X*34* BR DISP IN O-REG ? 
i 160E F2 01 a5 1695 JNE  8R40 BR IF NO 
1696 * : 
1611 OD 00 1731 283F 1697 CLC BRMIAR-1(1),X1234-1 MIAR (8B) AS EXPECTED ? 
1617 F2 81 OC 1698 JE BROS BR I7 YES : 
1699 * 
161A OD OO 1732 2840 1700 CLC BRMEAR( 2) »X1234 MIAR (D} AS EXPECTED 7? 
1620 F2 01 98 1701 JNE 8R41 BR IF NO 
1623 F2 87 9A 1702 J BR41A ELSE BRANCH 
: 1703 * 
1626 OD OO 1732 2840 1704 BROS CLO BRMIARC1)2X1234 MIAR (D3 AS EXPECTED 7 
: 162C F2 01 96 1705 JNE 8R418 BR IF NO 
Vos 1706 * 
is 162F CO 87 242C 1707 8 NORMN 
1708 + 
ce 1709 *##© START TEST 2 #42 
= 1710 * 
1633 CO 87 240A i7il 8 6GNTST | 
Se 1712 * 
=e 1713 *. NOW EXECUTE *BU* INSTRUCTION. 
CATE Z21LAUG75 OSNOVTS Proc 10 Cl14-1. DaTE 21AUG75 OSNOV7TS PROG ID C14-1) 
EC NO. 827785 827827 PAGE 17 EC NO. 827785 827827 PAGE 27A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 4247605 16M MAINTENANCE DIAGNOSTIC PROGRAN . PART NO. 4267605 
PAGE 26.°". PAGE 18A 


C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 C141 3340 ATTACHMENT TESTS (PART 13 MODEL 12 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
1714 © a 1782 3 GET HERE IF TAR DID NOT SWITCH ON *BUt INST 
1637 3C 04 16F2 1715 MVI 8R22,xX*04* Ce CRy Y = 00048C 16CA CO 87 246A 1783 BRe2 8 ERRPRT 
1638 3C 8C 16F4 1716 MMVI «=: BR23.X*8C* ( BU O040C INST. } 16CE 40 16CE i784 oc XL1*408 ERR 4154 
163 CO 87 276D 1717 8 LALSO INITIALIZE HIARD = 06 1785 * GET HERE IF SUBROUTINE MODE WOT SET 
1643 0000 1644 1718 oc XL2*0000° 16CF CO 87 246A 1786 BR43 B ERRPRT 
1719 * 16D3 50 16D3 1787 oc XL1°50° ERR 4155 
1645 CO 87 276D 1720 B LALSD INITIALIZE SIARD = 00 1786 ¢ GET HERE IF OP-REG CHECK OID NOT OCCUR 
1649 0100 164A 1721 oc XxL2*0100° 1604 CO 87 246A 1789 BRs 8 ERRPRT 
i722 * 1608 60 1608 1790 oc XL1*60° E72 4156 
1648 CO 87 1L6DE 1723 8 BR20 GO EXECUTE TEST STRING 1791 @ GET HERE IF INSTRUCTION NOT SUPPRESSED 
1724 © 1609 CO 87 246A 1792 BR45 8 ERRPRT 
164F 3D 8C 1730 1725 CLI BRXREG,X*8C* O-REG = BR DISP. 2? 160D 70 160D 1793 oc XxL1°70¢ ERR 4157 
1653 F2 01 60 1726 JNE B6R40 1794 @ 
1727 * 1795 @ EXECUTE *B* OR *BUY INSTRUCTION 
1656 38 O1 2CF6 1728 TBN LPCNT,X*01° *ODD* PASS 2 1796 © 
165A F2 90 13 1729 JF BROOD BR IF NO, EXPECT SIAR TO CONTAIN 16DE 34 08 172F 1797 8220 ST BR3IO*3sARR SAVE LINKAGE 
1730 ¢ BRANCH ADDRESS 1798 * 
165D OD 01 1732 2842 1731 CLC = BRMIAR(2) .X048C ELSE TEST MIAR 16E2 CO 87 2A08 1799 8 . SVP 
1663 F2 01 64 1732 JNE  BR4&2 BR IF NOT AS EXPECTED 1800 * SETUP INDEX REG 
1733 ® 16E6 E882 16E7 1801 oc xL2*E882¢ SERVICE MODE 
i666 38 O08 1735 1734 TON BRACC,X*08* ACC PTR = "SUBROUTINE® MODE ? 16£8 O18A 16E9 1802 oc XL2*O018A® £01" =—> CR-REG 
166A F2 90 62 1735 JF BR43 BR IF NOD 16EA 228F 16E8 1803 oc XL2*226F¢ CR -> D-REG 
166D F2 87 09 1736 J BRLO 16EC SBSE 16ED 1804 oc XL2"6B8E* D => INDEX 
1737 * ‘ 1805 9 SETUP OP-REG WITH BRANCH INSTRUCTION 
1670 OD 01 1734 2842 1738 BROS CLC BRSIAR(2),X048C SIAR = BR ADDRESS 7? . 16£E Ase2 16EF 1806 oC XL2*ase2° SERVICE MODE 
1676 F2 01 51 1739 JNE BR&2 BR IF NO , 16FO 1807 8R21 EQU st 
1740 @ 16FO 0088 16F1 1808 pc XL2*0088* C-REG 
1679 CO 87 2426 1741 BR1O 8 NORMN “: 16F2 1809 5R22 EQqU) 
1742 * 16F2 128A Y6F3 1810 | oc xL2*126A° CR-REG 
1742 ee START TEST 3 ees 16F4 1811 BR23 -€Qu) ; 
1744 * ‘ 16F4 3488 16F5 1812 oc X¥L2°*348B° V-REG 
— 167D CO 87 240A 1745 8 BGNTST ; en 16FG 1813 BR26 equ) 8 —<——$ $s 
1746 ¢ 16F6 8882 16F7 1814 pe XL2°8882* NOT SERVICE MODE : ; 
1747 ® EXECUTE BR INSTRUCTION WITHOUT "CK STOP O*RIDE® ie 1815 @ RUN IOP TO EXECUTE 
1748 @ 16F8 OOSF 16F9 1816 oc XL2*OO8F * IOP START PROCESS 
1681 3C 08 16F6 1749 MVI 6BR24,x*08* RESET "CK STOP O*RIDE 16FA €882 16F®8 1817 oc XL2*ES82° SERVICE MODE 
1685 CO 87 276D 1750 8 LALSO MIARD = 00 - z 1618 * GET O-REG, SHOULO CONTAIN °D*® PORTION OF BRANCH 
1689 0000 168A 1751 oc XL2*0000* . 16FC 0085 16FD 1819 oc XL2*°0085* D —> X-REG 
1752 ¢ 16FE 0049 16FF 1820 oc XL2*°0049° © SENSE X-REG 
1688 CO 87 276D "(42753 8 LALSO - SIARD = 00 es 1700 1730 1701 28213 oc AL2(BRXREGI INTO LOC *BRXREG* Ps 
168F 0100 1690 1754 oc XL2*0100¢ 7 1702 0043 1703 1822 oc XL2*0043* CHECK SENSE 
1755 * 1704 1736 -1705 1823 oc AL2(BRCHK) INTO LOC *BRCHK* 
1691 CO 87 16DE 1756 8 BR20 GO EXECUTE TEST STRING 1824 * GET MIAR AND SIAR FROM ALS 
1757 @ 1795S Aee2 1707 1825 oc XL2*ase2e SERVICE MODE 
1695 39 40 1736 1758 TBF BRCHK,X*40# OP-REG CHECK ? 1708 008A 1709 1826 Dc XL2*°O008A* MEAR —> CR-REG 
1699 F2 9C 38 1759 JF BR44 BR IF NO : 170A 8882 1708 1827 oc XL2*8862° CLOCK RESET . my 
1760 * : 170C 004E 1700 1828 oc XL2*O004E* SENSE MIARS 
169C OD O1 1732 2842 1761 CLC BRMIAR(2),X048C MIAR = BR ADDRESS ? 170E 1731 L7OF 1829 oc AL2(BRMIAR-1) INTO LOC *BRNIAR® 
16A2 F2 81 34 1762 JE BR45 BR IF YES 1710 004A 1711 1830 oc XL2*004aA* SENSE MIARD 
1763 © bela 1712 1732 1713 1831 oc AL2(BRMIAR) : 
16A5 OD 01 1734 2842 1764 CLC BRSIAR(23eX048C SIAR = BR ADDRESS ? 1714 Ass2 1715 1832 DC XL2*ase2* SERVICE MODE A 
16AB F2 61 28 1765 JE BR45 BR IF YES 1716 O18A 1717 1833 oc XL2*018A* SIAR ADDRS -> CR-REG oe - os 
1766 ¢ 1718 8882 1719 1834 OC XL2*Ba8s2° CLOLK RESET a cca 
16AE CO 87 242¢ 1767 a NORMN . 171A OO4E 1718 1835 oc XL2*004E° SENSE SIARB . Se at ie te 
1682 CO B87 0216 1768 a LINK . 171iC 1733 171D 1836 oc Al 24BRSIAR-1) INTO LOC "BRSIAR® oS 
1769 : ATLE 004A 171F 1837 oc XL2*004a" SENSE S1aRD -. 
1770 @ GET HERE IF BR DISPLACEMENT DID NOT GO TO D-REG 172C 1734 1721 1838 oc AL2(BaSIAR) a 
1686 CO 87 246A 1771 BR40 8 ERRPRT 1839 * RUN FOP, THEN SENSE ACCESS POINTER : 
168A 00 168A 1772 oc XLL°00° ERR 4150 1722 8882 1723 1840 oc XL2*8382° MOT SERVICE MODE : 
1773 * GET HERE IF MIAR NOT EQUAL BRANCH ADDRESS 1724 Oo8F ' 41726 19461 0c XL2*O08F* START PRICESS .8-3.°* a 
1688 CO 87 246A 177& BR41 8 ERRPRT 1726 8882 1727 1842 rc XL2*s882¢ _ «SERVICE MODE. CLOCK RESET . 4 
16BF 10 i68F 1775 oc XLL*10° ERR 4151 1728 0065 1729 1843 oc XL2*°O065* . SENSE ACCESS POINTER i 
177% @ GET HERE IF MIAR (8) ONLY FAILS 172A 1735 1728 1844 oc AL2(BRACC) ep - YNTO &OC *eRracce 4 
. 1660 CO 87 246a 1777 BR41A B ERRPRT 1845 ¢ oe i 
16€4 20 16C4 1778 oc XLI°20° ERR 4152 172€ CO 87 0000 1846 BR30 - 8 os RETURN - 
. lite * GET HERE IF MEAR (D) ONLY FAILS 1847 
16€5 CO 87 246a 17860 88418 8 ERRPRT - 1730 2730 1866 BRXREG 05 x2 - ‘ 
16€9 30 - 1609 1761 oc XxL2°30° ERR 4153 * 1731 1732 1649 BRNIAR DS ML2 i 
, . 5 z? 
DATE 21AuUGTS OSNOVT5S Pe: PROG ID Ct4-2 OATE 21AUGTS OSNOV?TS a : PROS 10 Cie-1) j 
€€ NO. 827785 827827 os PaGE 16h { 
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1735 
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173F 
1740 
1741 
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DATE 
EC NOW 


3340 ATTACHMENT TESTS (PART 


OBJECT CODE ADOR 
1734 
1735 
1736 
16 1737 
00 1738 
173F 173A 
CO 87 0216 
17 173F 
00 1740 
1747 1742 
CO 87 0216 
21 AUGT5 OSNOV75 
827785 827827 


STMT 


1850 
1851 
1852 
1853 
1854 
1855 
1856 
1657 
1858 
1859 
1860 
1861 
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1) MODEL 12 


SOURCE STATEMENT 


BRSIAR oS xL2 
BRACC os xXL1 
BRCHK Os ALI 
RITN16 oc XLL*16° 
oc XL1°OO°* 
oc AL2(RTN17) 
8 LINK 
RITN17 oc XLi°17° 
oc XL1*00° 
DC Fs AL2URTN18} 
8 LINK 


PART NO. 
PAGE 


ROUTINE 16 NOT USED 
NEXT ROUTINE ADDRESS 


ROUTINE 17 NOT USED 
NEXT ROUTINE ADDRESS 


PROG ID 
PAGE 


4247605: 
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i747 
1748 
1749 


1748 


wt Se te Tahu 


18M MAINTENANCE OTAGNGSTIC PROGRAM 


3340 ATTACHMENT TESTS (PART 


18 
co 


1828 


co 


co 


3¢ 
co 


3c 
oc 
co 


c2 
c2 
60 
F2 


02 
E2 
34 
oo 
co 


3B 
F2 


co 
co 


39 
F2 


co 
co 


- 3D 
F2 


34 
34 
OE 
co 


39 
F2 


co 


oo 


co 
12 


87 


87 


87 


ERR LOC OBJECT CODE 


2329 


240A 


1708 
I7EE 


2863 
2B6F 
267E 


2C72 
2062 
oo 00 
32 

01 
265A 
2B5A 
1771 


2C72 
038 


17D9 
1758 


1708 
2D 


242C 
0216 


2C72 
12 


1705 
1707 
1708 
1778 


1708 
05 


246A 


246A 


21AUG75 
827785 


2846 


284D 


2836 


ADOR STMT 


1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1862 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1924 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
2922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1703 1931 


L747 
1748 
174A 


17CE 


GSNOV75S 


827827 
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1) MODEL 12 


SOURCE STATEMENT 
HESRESRERKSSKSSECHRKTS KRSEKKRKEK SSS Ss AVSERRAKAKATESREKSERERSFHEEKASESKEEKSVESEKEKES 
* s 
* OLS TEST - WRITE THEN READ DLS LOCATIONS 00 — 63 { AODRESSED * 
* SY R-BUS ) WITH DATA IN 00 - 63 = *00* - °3F* THEN® 
+ WITH ALL LOCATIONS SET TO ‘FFE * 
+ _  ® 
* ERRORS: 4180 — SOME DLS READ FAILED, DATA = *FFt 
* 4181 - OLS READ NOT AS EXPECTED * 
= 2 
SESESSSSSESEKS ESSE SSERK TS VK ETE S EKER SS REKECESSECSEALES TARAS SLKSKKVRSESKCRAAKEE 
RTN18 pc XL1°1e8 ROUTINE 18 
oC XL1*008 
oc AL2(RTN19} NEXT ROUTINE ADORESS 
= 
8 BEGIN - 
Fd a 
**e% START TEST 1 2% Henne oe 
= 
B BGNTST 
= 
MVI OLSCNT.O ERROR COUNTER = 00 
8 OLSLOD SETUP DLS = 00 - 3F 
s 
DLSO3 MVI LENGTH, 64 SENSE ALL DLS 
MVC = ODLSAR(23,ZERO INITIAL OLS ADDRESS = 0000 
8 SOLS SENSE OLS 00 - 63 INTO *OLSIN® 
2 
LA DLSeXR1 XRL = EXPECTED PDINTER 
LA DLSIN,XR2 XR2 = RECIEVED POINTER 
DLSOS CLC =O pXR102001eXR2) EXPECTED = RECIEVED 2 
JNE DLSERL BR IF NO 
am Bete cae oe Sere eth Pe Sa 
OLS06 La 10 9XR2L)eXR1 BUMP EXPECTED POINTER Le ae 
LA 1 eXR2},XR2 RECIEVED POINTER pe at. es 
ST WORK3 eXR1 SAVE POINTER ee ew Nes 
CLC wWORK3(2),ADLSIN DONE ? 
BNE  OLSO5S BR IF NG 
é . 
CLI OLS, X*FEe *FFe TEST DONE 2 ? 
JE DLS20 BR IE YES , 
* 
8 DLSLOF ELSE SETUP OLS = FFtS 
s 
B DLS03 AND REPEAT TEST : 
= ve 
DLS20 TSE DOLSCNT.X*7E* ANY OTHER ERKORS. ? 
JF DLSER3 GR IF YES - 
= 
8 NORMN 
8 LINK 
2 ; 
OLSERL CLI DLS,X*FF® *FE® TEST IN PROGRESS 2? 
JE 0.$25 @R =F YES 
x 
ST DLS30,XR2 SAVE ADDRESS OF EXPECTED 
St DLS31,XR2 AND RECIEVED DATA 
ALC OLSCNTE212.12 BUMP ERROR COUNT 
8 OLS06 AND CONTINUE TEST 
= 
DLS25 TSE DLSCNT.xX*7F* ANY ERROR OCCUR ? 
SF DLSER3 BR IF YES 
= 
8 ERRPRT 
oc XL1L*008 ERROR 4180 $ 
s oar 
DLSER3 «8B ERRPRT 
oc xtlb "ize ERROR 4182 * 


PROG 10 
PAGE 


Cl4-15 
19A 
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PART NO. 4247605 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO« &247605 
PAGE 20. PAGE 204A 
C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 Ci41 3340 ATTACHMENT TESTS (PART 1) MODEL 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
ree ee LIDS” 223 OL 320 oc AL2(8-#) 197B KKKRSSHKSSEAKSSSLKSESAASERKAHASE SETHE KAKSEA KKK SHEEKEKHSESKKREKRAEEKSKKSESSEEKSSSRSHEASE KS 
6 0000 1707 1933 DLS33 DC AL2(%-*) 1979 * . 
193% * 1980 * SLKI INSTRUCTION ~ EXECUTE AN SLKI INSTRUCTION THAT WILL ROVE 
17D8 i7D8 1935 DLSCNT oS XL1 | 1981 2 DATA = 00 -> X-REG, SET *PCR* AND RESET * 
1936 1982 * *SVP REQ* * 
1937 #---~~~—-—-—--__-_-_-_.. eee * | 1983 * * 
1938 * * | 1984 * TEST *10P HALT* IN EDLE SENSE AND * 
1939 # DLSLOF - SETUP DLS 00 - 63 = *FEFe * | 1985 * ‘PREVENT I/0* IN ADAPTER SENSE BYTE 1 * 
1940 * € 1986 * . 
1941 * | 1987 *& SABR/SADR INSTRUCTION ~ LuUAD OLS WITH OWN ADDRESSES THEN * 
1942 * OLSLOD - SETUP DLS LOCATIONS AS 00 = *00* * 1988 * EXECUTE "SABR® AND *SADR* INSTRUCTIONS ® 
1943 © 01 = "01° * 1989 * : 
1944 *® 63 = *3F* ETC = | 1990 * SZR INSTRUCTION - EXECUTE SZR INST. AND TEST RESULTS * 
1945 * € 1991 2 - 
1 gaeraeswegies boettcher A eet ciceene ee | 1992 ¢ ERRORS: 41AOQ ~ SLKI FAILED + 
1947 | 1993 41Al - PCR OR SVP REG. FAILED * 
1709 34 08 1827 1948 ODLSLOF ST DLSLOE+3, ARR SAVE RETURN LINK | 1994 *& 41A2 — X-REG DID NOT ACOUIP™ DATA * 
1700 3% O1 1823 1949 ST DLSLOC+3,XR1 XR1 1995 * * 
17E1 3C FF 2C81l 1950 MVE = OLS+63,X*FEt 1996 2% 41A3 ~ SABR AND SADR FAILED * 
17E5 OC 3E 2CBO 2CB1 1951 MVC = DLS #6263), DLS#63 | 1997 * 4144 ~ ALSB AND ALSD FAILED To e 
1952 * 1998 * ACQUIRE OATA * 
17EB F2 87 24 1953 J DLSLOO | 1999 * 43A5 ~ ALSB GR ALSD FAILED * 
1954 * 2000 * 41A6 ~ ‘IOP HALT® FAILED YO SET 2 
17EE 34 O8 1827 1955 DLSLOD §$T DLSLOE+3 ARR SAVE RETURN LINK 2001 * 41A7 — *PRVENT 1/0 FAILED TO SET # 
17F2 34 O1 1823 1956 ST OLSLOC+3,xXR1 XRI 2062 * : 
LVF C2 O01 2C72 1957 LA DLS »XR1 POINT TO DLS TABLE | 2003 * 41A8 — D-REG DIDNT ACCUIRE SZR DATA 
17FA 3C OO 17FF 1958 MVI = - DLSLO4,X*00°8 INITIAL DATA = *oo? | 2004 * 4149 —- ZLS DIDNT ACQUIRE SZR DATA *& 
1959 OLSLO4 EQU *+1 2005 * * 
LT7FE 7c 00 00 1960 DLSLGS MVI O(,XR1),X*Oa* BATA TO OLS FIELD 200K HKKEEKASEREAKMERKESEAKSERASSCAEAK EEE ESAKAELELRAEKSHKASESSERESSHESY SEES SSE SSEEE 
1801 02 Ol O1 1961 LA 1€sXR1}eXR1 BUMP DLS FIELD POENTER ; 2007 
en ne oc 1TFF 1962 ALC OLSLO4,1i BUMP DATA BY 1 1830 1A 1830 2008 RTNIA DC XLATLAS ROUTINE IA 
OA 40 17FF 1963 CLI DLSLO4,64 DLS FIELD SETUP ? | 1831 00 1831 2009 pc XL1°00° 
180E CO O1 ITFE aves BNE DLSLOS BR IF NG | 1832 1LAOB 1833 2010 DC AL2(RTNIB) NEXT ROUTINE ADDRESS 
965 * 2011 * 
1812 OC O1 2B6F 1966 DLSLO9 «MVC ODLSAR(2),ZERO INITIAL OLS ADDRESS = C000 | 1834 CO 87 2329 2012 8 BEGIN 
1818 3C 40 2863 1967 MVE = LENGTH» 64 ALL LOCATIONS | 2013 * 
181C CO 87 262C¢ 1968 B LOLS | 2014 **#* START TEST 1 #82 
1969 * 2015 * 
1820 C2 01 0000 1970 OLSLOC LA %—*& eXR1 RESTORE XRi | 1838 3C BC 1862 2016 MvI SLKO1L,X*BC* DATA TO X-REGsSET PCR FL AND 
1824 CO 87 0000 1972 OLSLOE 8 t~* : RETURN TO CALLER | 2017 * RESET SVP Fi 
1972 183C CO 87 240A 2018 6 BGNTST i 
1828 19 1828 1973 RTN19 oc XL1*196 ROUTINE 19 NOT USED 2019 * 
1829 00 1829 1974 oc xXL1i*oo? 1840 3C 00 128a 2020 SLKOO MVI CSSW,X*"00* INITIALIZE ERROR SW 
rece bee Ses 1828 1? DC AL2(RTNIA) NEXT ROUTINE ADORESS 1844 CO 87 2a08 2021 B SvPp 
1 1976 8 LINK 1848 A882 1849 2022 oc XL27A8B82¢ SERVICE MODE 
184A 0188 184B 2023 oc XL2°O1BA® ‘Olt -> CR 
184C 228F 184D 2024 oC XL2°226F* CR -> D-REG 
184E SBBE 184F 2025 oc XL2"OBS8E* D -> INDEX 
2026 + SETUP SZI 0604 INSTRUCTION 
1850 0388 1851 2027 DC XL2°0388° *03' +> C 
1852 B8OBA 1853 2028 OC XL2°B0SAt "80" -—> CR 
1854 0488 1855 2029 pc XL2°048B* "047 -> Y 
1856 8882 1857 2030 oc XL2*8882* NOY SvC MODE 
1858 oO8F 1859 2031 OC XL2*OO8F* RUN JOP 
2032 * RESET "PCR AND SET *S¥P REQUEST® i 
185A 8882 1858 2033 oc KL2*8882° NOT SERVICE MODE 
185C 0083 1850 2034 OC XL2*0083¢ SET SVP REQUEST i 
1B85E 0082 185F 2035 oc XL2*°O0081° RESET PCR FL 
1860 A882 1861 2036 oc XL2°A862° SERVICE MODE i 
2037 * SETUP SLKI 1C,00 INSTRUCTION i 
: 1862 2038 SLKOL equ ot 
1862 BC8A 1863 2039 cc XL2°*BCBA* "BC* ~> CR R3- 4 & 5 = 00 —> X-REG ' 
1864 0088 1865 2040 oc XL2*0088' *00' => ¥ SET PCR 
1866 8882 1867 2041 Oc XL2°8882° NOT SVC MODE RESET S¥eP 
1868 OOBF 1869 2042 oc XxL2°O008F* RUN TOP ; ; 
186A 0040 186B 2043 oC xL2°004D' SERSE X-REG 
186C 1730 1860 2044 oc ALZ(BRXREG) INTO LOC *BRXREG* 3 i 
186E A882 186F 2045 oc XL2*°A882?. SVC MODE 
DATE 21AUG75 OSNOV7S PROG ID C14-2: DATE 21AUG75 OSNOVTS PROG 1D Cle-1) 
EC NO. 827785 827827 PAGE - 20 EC NO. 827785 827827 PAGE 20a : 
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ERR LOC. 


18670 
1872 
1874 
1876 
1878 
187A 


187¢ 
1860 


1883 
1887 


168A 
188E 
1892 


1895 
1899 


is9c 
18A0 
18A3 


18A7 
18AB 
18A€ 
1882 
1886 
1889 
1880 
18Cl 
18C4 


186C8 
18¢c 


18CF 
1803 


18D6 
18DA 


180D 


' 8E1 
18E5 


. 18ES 


LSEC 


18FO 
18F4 


“18F7 
18F8 


16FE 
1902 


1905 
1909 


DATE 
€C NO. 


OBJECT CODE 


042 
1735 
0040 
1736 
0085 
0020 


30 BC 1862 
F2 83 19 


38 01 1735 
F2 10 04 


3A 01 126A 
38 80 1736 
F2 10 10 


3A 02 128A 
F2 87 16 


39 01 1735 
F2 10 04 
3a O01 128A 


39 860 1736 
F2 10 04 
3A 02 128A 


30 00 2862 
F2 10 04 


3A 04.1264 


30 00 1730 
F2 81 06 
3A 08 128A 


39 OF 128A 
F2 90 21. 


38 02 1735 
F2 90 45 


38 O02 1736 
F2 90 43 


CoO 87 242C 


30 80 1662 
F2 81 30 


3C BO 1862 
CO 67 2840 


38 GF 128A 
F2 10 1A 
38 03 128A 
F2 10 OF 
38 04 228A 
F2 10 OC 


38 08 126a 
F2 10 0a 


' Z21AUGT7S. 


827785 


ador 


1871 
3873 
1875 
1677 
1879 
1878 
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STMT 


2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 


' 2057 


2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 


+ 2076 


2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2692 
2093 
2094 
2095 
2096 
2097 
2098 
2039 
2100 


_ 2201 


2102 


' 2103 


2104 


' 2105 


OSNOVTS | 
827827 


2106 


. 2107 


2108 
2109 


2110 


2111 
2112 
2313 
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PART NO. 


SQURCE STATEMENT 


SLKO2 


* 
SLKO4 
s 
SLKOS 


StKO6 


* 
SLKOF 


2 
SLKOTA 


s 


* 


+ 


GET 
oc 
oc 
oc 
oc 
oc 
oc 


cal 
JE 


TBN 
JST 


SBN 
TBN 
JT 


S8N 


TSF 
SBN 
TBF 
SBN 
cul 
SBN 
cil 
SBN 
TBF 
TBN 
JF 


TBN 
JF 


cul 
JE 


avi 
8 


GET 


TON 
JT 


TEN 
JT. 


TBN 
JT. 
TBN 


JT 
GET 
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18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247605 
PAGE 2... oe eee . PAGE 214 
C141 «=. 3340 ATTACHMENT TESTS (PART 1) MODEL 12. 
ERR LGC OBJECT CODE ADOR STMT SOURCE STATEMENT 
RESULTS OF SLKI INSTRUCTION 190C CO B7 246a 2114 SLKER1 «= —B ERRPRT . 
XL2*0042° IDLE SENSE INTO 1910 10 1910 2115 oc XLL*10° ERROR 41A1 
AL2(BRACC) LOC *BRACC® 2116 * GET HERE IF ALL TESTS FAIL 
XL2*0040° ADAPTER SENSE BYTE 1° 1911 CO 87 246a 2117 SLKER2 8B ERRPRT 
AL2(8RCHK} INTO LOC *BRCHK* 1915 00 1915 2118 BC XL1*00° ERROR 41A0 
XL2*0085°. ‘D => X-REG , 2119 * GET HERE IF *X-REG* TEST FAILS 
XL 2*002D* SENSE X-REG 1916 CO 87 248A 2120 SLKER3 8B ERRPRT 
191A 20 191A 2121 oc XL1*20* ERROR 41A2 
SLKO1,X*BC* *SET PCR* CHND 2 2122 * GET HERE IF "IGP HALT® FAILS 
SLKO4 BR IF YES TO TEST RESULTS 191B CO 87 246A 2123 SLKERT 8B ERRPRT 
191F €0 191F 2124 oc XL1°60* ERROR 41A6 
BRACC ¢X*02* | PCR ACTIVE 2? 2125 * GET HERE IF *SVP REQUEST® FAILS | 
SLKO2 BR IF NO 1920 CO 87 246A 2126 SLKERS 8B ERRPRT 
1924 70 1924 2127 oc XL1*70* ERROR 41 A7 
CSSW.x*01° ELSE SET *PCR® ERROR 2128 * 
‘BRCHK .X*60* *SVP REQ* ON ? oo 2129 * TEST *SABR* AND *SADR* INSTRUCTIONS 
SLKO6 BR IF YES ‘, 2130 * : 
1925 CO 87 17EE 2131 SLK20 8 DLSLOD SETUP DLS REGS = OWN ADORS 
CSSW.x*02° ELSE SET "SVP REQ* ERROR 2132 * 
SLKO6 CONTINUE TEST OF RESULTS 2133 ##* START TEST 2 #00 
; 2134 * 
BRACC oX*O1* PCR ON 2 1929 CO 87 240A 2135 B BGNTST 
SLKOS SR IF YES ; 2136 * 
CSSwW.xX*01* ELSE SET *PCR* ERROR 192D 3C 00 128A 2137 MVI  CSSWe0 
ao 1931 CO 87 2A08 2138 B svP 
BRCHK ¢X*80° SvP OFF 2? 1935 A862 1936 2139 oc XL2*Aa882¢ SVC MODE 
SLKO6 BR IF YES 2140 * BUILD *SABR® INSTRUCTION ( MOVE DATA (*°OF*) FROM OLS OF TO 
‘CSSW,X*028 ELSE SET *SVP REQ* ERROR 2141 ALSB 00 ) 
. : 1937 0688 1938 2142 oc XL2*0688° "06" -> C 
IOPIN,X*00°* D-REG = *00° 2 1939 808A 193A 2143 oc XL2*808A° *80" -> CR 
SLKOT BR IF YES 1938 OF8B 193C 2144 oc XL2*°OF6B* *OF* => Y 
CSSWeX*04* ELSE SET *D-REG* ERROR 193D 8882 193E 2145 oc XL2*8882° NOT SVC MODE pS ee tosh oe Pree een 
ae 193F OO8F 1940 2146 pc XL2*O08F* RUN TOP ae A 
BRXREG eX *00* X-REG = *00* 2 1941 A882 1962 2147 DC XL2*as62° SVC MODE 
SLKOTA BR IF YES 2148 * GET RESULTS OF SABR INST. 
CSSwW.X*08* ELSE SET *xX-REG* ERROR 1943 0085 1944 2349 oc XL2"0085° D -> X—REG 
ee eB 1945 0040 1946 2150 oC XL2*004D° SENSE X-REG INTO 
CSSwWsX*OF* ANY ERROR 2 1947 1735. 1948 2151 oc AL2(BRACC) Loc *eRACCc® 
 $LKo8 BR IF YES 2152 * BUILD *SADR* INSTRUCTION ( MOVE DATA (*1F*) FROM DLS 16 To 
: 1949 AOBA 194A 2153 ‘oC XL2*AQBA® ®AO® -> CR ALSD OO ) 
BRACC .X*02* *10P HALT® SET 2 1948 1F8B 194C 2154 oc XL2°1F86° *1F®§ —> ¥ 
SLKERT BR IF NO 194D 8882 194E 2155 oc XL2*8882° MOT SVC MODE 
194F OO8F 1950 2156 - Oc XL2*OO6F ° RUN IOP 
BRCHK, X*O1* "PREVENT 1/0* SET ? 1951 aae2 1952 2157 oC XL2* assez SVC MODE 
SLKERB bR 1F NO «2158 ¢ GET RESULTS OF SADR INST. 
1953 0085 1954 2159 oc XL2°*0085* O => X-REG 
NORMAN 1955 006D 1956 2160 ec XL2*006D* SENSE X~REG INTO 
1957 1736 1958 2161 oC AL2(8RCHK) LOC *BRCHK* 
SLKO1,X"B0* TESTED SLKI WITH BITS 4 & 5 OFF ? 2162 * 
SLK20 BR IF VES : 1959 CO 87 27F2 2163 8 SAL SB GET ALSS 
195D 00 1950 2164 oc XL1*00° 
SLKO1,X*BO* ELSE SETUP 195E 3D OF 2862 2165 Cul IOPIN,X*OF®e AS EXPECTED ? 
SLKOO AND RE~RUN TEST. 1962. F2 81°04 2166 . JE SLK25 BR IF YES 
1965 3A 01 128A 2167 SBN CSSW.X*01° ELSc SET *ALSB8* ERROR SW 
HERE EF ANY ERROR OCCURRED 2168 * 
1969 CO 87 2801 2169 SLK25 a SALSO GET ALSD 
CSSW,X*0F* *ALL® TESTS FAIL 2 196D 00 196D 2170 oc XL1°00° 
SLKER2 BR IF. YES 196E 30 1F 2862 2171 CLI 10PINeX*1F® AS EXPECTED ? 
1972 F2 81 04 2172 JE SLK26 BR IF YES 
CSSw.x*03°* *PCR® AND *SvP* Falt 2? 1975 3A 02 126A 2173 SBN CSSW.X*02* ELSE SET *ALSD® ERROR Sw 
SLKER1 BR IF YES 2174 ® 
1979 3D OF 1735 2175 SLK26 CLI BRACC,X*OF* *D-REG* AS EXPECTED ? 
CSSWyX*04! *O-REG = 00° FAIL ? 1970 F2 81 06 2176 JE SLK27 BR IF YES 
SLKER2 1980 3a 04 128A 2177 SBN CSSW,x*04* ELSE SET *SABR® D-REG ERROR 
2178 * 
CSSwexX*0at *X-REG = 00° FAIL ? 1984 3D LF 1736 2179 SLK27 cul BRCHK ,X*1LF* *DB-REG* AS EXPECTED ? 
- SLKERS BR IF YES 1988 F2 81 04 2180 JE SLK28 GR IF YES = 
HERE IF *PCR® OR "SVP REQ* FAILS 198B 3A 08 128A 2181 SBN CSSW,x*08* ELSE SET *SADR* D-REG ERROR 
PROG 10° Cl4-1 DATE 21AUGTS OSNOV7S PROG ID) Cl4~1> 
PAGE EC NO. 827785 PAGE : 21a 
<- 
{x 
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ERR LOC 
198F 
1993 


1996 
199A 


199D 
i9A1 


19A4 
19A8 
19AB 


19AE 


OBJECT CODE 


39 
F2 


co 
F2 


38 
F2 


39 
F2 
F2 
co 


OF 
90 


87 
87 


OF 
10 


03 
10 
87 


87 


1982 


1983 
1987 


1988 
19B8C 


1980 


19C] 
19C5 
19C7? 
19C9 


19CB8 
i9co 
19CF 
1901 


1903 
1905 
1907 
1909 
1908 
1900 
- LODF 
19€1 


50 


co 87 
30 


co 87 
40 


co 87 


CO 87 
A882 
0788 
818A 


OF8B 
8882 
OO8F 
ABB2 


0085 
004D 
1735 
O18A 
028C 
0086 
006D 
1736 


19€3 
19E7 


19EA 
L9EE 


19F1 
i9F5 


19F9 
 Y9FO 
19FE 
1a00 


1ao2 
RA06 
2407 


 & a0. 


eS 


he 


30 
F2 


30 
F2 


co 
co 


co 


OF 
01 


OF 
01 


87 
87 


87 


82 
19C8 
1735 


co 87 
92 

19CB 
1736 


128A 
07 


242C 
20 


1284 
OF 


128A 
03 
oA 


246A 


246A 


246A 


240A 


2A08 


1735 
OF 


1736 
ll 


242C 
0216 


246A 


246A _— 


21LAUGTS | 
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ADOR 


19B2 
1987 


196C 


196 
19€8 
19CA 
198 
19CCc 
19C€& 
19D0 
1902 


1904 
19D6 
1908 
19DA 
190C 
19DE 
19€0 
19E2 


19FD 
19FF 
Tao1 


Ags | 
LAGOA | 


OSNOVTS 
827627 
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1 emerson ora sccuas 2 oh Ste rate US 
@ 8 ee a ma “oOo = emits 
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STMT 


2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2192 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2224 
2215 
2216 
2217 
2218 
2229 
2220 
2221 
2222 


1) MODEL 12 


SOURCE STATEMENT 


* 
SLK28 


SiK 30 


* 


* 
* 


x 
SLKERS 


* 
SLKERS 


= 
SLKER6 


aa 


TOF CSSW.X*OF* 
JF = SLK30 

8 NORMN 

J SLK50 

TAN CSSWeX*OF* 
JST  — SLKERS. 

GET HERE IF *SOME® 
TBF «=CSSW»X*03" — 
JT SLKER4 


a) 


PART NO. 
PAGE 


ANY ERROR ? 
BR IF YES 


GG TO NEXT TEST 
*ALL® TESTS FAIL 


BR IF YES 
TEST(S) FAILED 


4247605 
22 


BOTH ALS FAIL TO ACQUIRE DATA ? 


BR IF NO 


GET HERE IF ALSD AND ALSB FAILED TO ACQUIRE DATA BUT D-REG 


ACQUIRED DATA OK 


GET HERE IF D-REG FAILED TO ACQUIRE DATA 


J SLKERE 
B ERRPRT 
oc XL1°50° 
8 ERRPRT 
oc XL1°30° 
8 ERRPRT 
oc XL1*40° 


ERROR 4145 


ERROR 41A3 


ERROR 41A4 


SZR EXSTRUCTIGN TEST ( MOVE DATA FROM DLS 15 TO ZS 01) 


eae STARY TEST 3 «+4 


* 
SLK50 
* 


SLESS 


SLKERA 


SEKERB 


22° S8R® 27 EO g 


& SRSRRRRBRRRAABSAA” © 


Q 
a“ 


8GNTST 


S¥P 
XL2*A8a2* 
KL2*078&S* 
XL2*818A‘ 
* 

Xt 2° OF 8B* 
XL2*8862* 
XL2‘OOSF* 
XL2*AS82* 


T RESULTS OF SZR 


XL2*0085* 
XL2°*0046* 
AL2{BRACC) 
XL2*018A* 
XL2*028C° 
XL2*0086° 
XL2'006D* 
AL2(BRCHK) 


BRACC »X*OF* 
SLKERA 


BRCHK -X* OF * 
SLKERB 


NORMN 
LINK 


ERRPRT 
xL1*82° 
AL2(SLK55) 
AL2(BRACC) 


ERRPRT 
xL1*92° 
AL2(SLK55) 
AL2(CBRCHK) 


SvC MODE 
*oT* => C $ZR 1F,O01 INSTRUCTION ( MOVE 
*Bt* => CR DATA (*OF'} FROM DLS OF TO 
zZiS 01 3 
*OF' +> ¥ 
NOT SVC MODE 
RUN 10P 
SVC MODE 


INST. 
D-REG -> X 
SENSE X-REG 
INTO LOC *BRACC* 
ZLS ADDRESS -> CR 
ZLS -> ZLS OUT 
ZLS OUT -> X-REG 
SENSE X-REG 
INTO LOC *B8RCHK* 


O-REG AS EXPECTED 2? 
BR IF NO 


ZLS AS EXPECTED ? 
BR IF NO 


ERROR 41A8 
EXPECTED 
RECIEVED 


ERROR 4149 
EXPECTED 
RECTEVED 


PRGG ID 
PAGE 


Ci4i 


18M MAINTENANCE DIAGNOSTIC PROGRAM 


ERR LOC GBJECT CODE 


1A08 18 

1acC 60 

1AC0 1413 

1AOF CO 87 0216 


en 


{ 


y vo. 
ey (3 


" 


DATE 


ey 


so 


" 


21AUG75 
EC NG. 6827785 


3340 ATTACHMENT TESTS (PART 12 MODEL 12 


ADDR STMT SOURCE STATEMENT 


2250 
1A08 2251 RTNIB oc 
LAOC 2252 c 
(ADE 2253 oc 
2254 8 


OSNOV7S 
627827 


xL1°16° 
XL1*00° 
ALZCRTNIC) 
LIK 


CUVVCVeTCVCC CCC CC HOC CHC COR OC eC ®e 


ROUTINE 18 NOT USED 
NEXT ROUTINE ADDRESS 


PART NO. 4247605 
PAGE 22A 
; 
. 
! 
{ 
| 
{ 
“| 
| 
! 
i 
reer meeeanenenen cemenr cement 
7 
} 
: 
4 
ot 
| 
4 
ak 
ih 
; 
fe 
PROG 10 Cl4—1 > 7 
PAGE "22a | | 


1 


| 


i 
i 
i 
' 
i 
\ 
i 


IBM MAINTENANCE DIAGNOSTIC PROGRAN 


C141 


ERR LOC OBJECT CODE 


tA13 1C 
1A14 60 
1Ai5 1870 


1A17 CO 87 


1A18 CO 87 


1ALF CO 87 
1423 CO 87 
1A27 8882 
1A29 0083 
1A2B 0081 
1A2D 0042 
“1A2F 1735 
1A31 0060 
1433 1736 


1A35 36 O1 
iA39 F2 90 


1A3C 38 60 
1440 F2 90 


' 1443 CO 87 
1A47 A882 
1A49 016A 
144B 226F 
1A4D 88BE 
1AGF 0388 
1451 808A 
1853 0488 
1455 8882 
LAST O08 
1459 Aaas2 


DATE 
€C NG. 


2229 


240A 


1TEE 
2408 


1735 
FS 


1736 
F3 


2A08 


ZLAUGTS - 
827785. 


ADOR 


iAL3 
1A14 
1AL6 


1A26 
1A2A 
LA2Cc 
1Aa2E 
1A30 
1A32 
1A34 


3340 ATTACHMENT TESTS (PART 


Stat 


2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2261 
2262 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 


- 2309 


1A48 
LAGA 
1a4c 
LAGE 
1A50 
1A52 
i154 
1A56 
1A58 
1LASA 


GSNOV?S 


2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 


: Fear wre Fo fer gs = : 
eM wn ee & nt en PEt mesesese iia 
@ & @ ss pth eB PME Race fee ogze Fibsal 1 sea Phot gee ee 2 
| : . : : en By Pet] Pia ck al a ease al 


PART NO. 4247605. 
PaGE 23. 
1) MODEL 12 C141 
SOURCE STATEMENT ERR LOC 
MERKSRKAKSESKEKSS ESE KTS SKE FEKEVKEKESEAKIERALCAIBE ASCSESTEHORSSSDESEN ESE DREKEE. 3 1A5B 
£ +, 1A50 
* SLKR, LLKR INSTRUCTION TEST - * LASF 
* SET SVP, RESET PCR, *90* => X-REG THEN EXECUTE SLKR * 1A61 
* AND INSURE THAT PCR IS SET, SVP REQ IS RESET D-REG + 1A63 
* AND X-REG GET SET FROM THE ADDRESSED DLS REGISTER *. 1A65 
* * 1A67 
* EXECUTE AN LLKR AND INSURE THAT D-REG AND THE ADDRESSED.» 1A69 
* DLS REGISTER ACQUIRE ‘FF FROM X-REG, THEN EXECUTE AN * 1A6B 
* LLKR AND INSURE THAT D-REG AND OLS ACQUIRE X*1C* FROM 1A6D 
& THE Y-REG AS WELL AS THE CONDITION GF PCR AND SVP REQ. + 1A6F 
* + 1A71 
* ERRORS: 41€0 - PCR WON'T RESET # 1A73 
* 4101 - SVP REQ. WON'T SET * 
2 41C2 -— SLKR INST. DION*T SET PCR * 1A75 
* 41C3 ~ SUKR INST. DID NOT RESET S¥P REQ. * 1a79 
* 4104 - D-REG DIDN'T ACQUIRE OLS DATA + 
* 4105 - X-REG DION*'T ACQUIRE OLS DATA * LATC 
* 41C6 — LLKR INST. FAILED * 1a80 
* 41C7 - DLS DIDN*T ACQUIRE X-REG DATA €: 
* 41C8 — D-REG DIDN'T ACQUIRE Y 0-5, SVP (BIT 6) *. 1A83 
* GR PCR {BIT 7) * 1A87 
* 4109 - DLS DION? T ACQUIRE Y 0-5, SVP (BIT 6) ®: 
* OR PCR IBIT 7) = 1A8A 
* 41CA ~ *IOP HALT* BIT NOY SET * 1ASE 
SEESERAHERKRKERASKVRKAEKA FECRKERESERSSABKEERHKEESE KSEE ES FES CEETIRESEGOEGNEEBIIDE 
1agi 
RTNIC oc XL1I¢iCe ROUTINE 1C — LA95 
oc XL2°008 Th 
oc AL2CRTN1D} NEXT ROUTINE ADORESS | 
* bie 
8 BEGIN ae 1a98 
* ee 1a9C 
#*e START TEST 1 9% a 1AAO 
* a 1AA2 
'B BGENTST LAAS 
+ ata RAAB 
* RESET PCR AND SET SvP REQUEST -% 1AAa8 
* AAA 
8  ~—s OL SLED: # 1AAC 
8 sve ae 1AAE 
DC XL2* 8882" NOT S¥C MODE 1A80 
DC XL2*0083* SET *SVP REQUEST* a 1AB2 
oc XL2'0081' RESET PCR, '00" -—> x-REG % 
DC XL2°00428 IDLE SENSE 1AB4 
OC AL2(BRACC} INTG LOC *B8RACC® ee TABS 
oc XL2*0060° ADAPTER SENSE BYTE 1 $3, 
DC AL2(BRCHK) INTO LOC *eRcHK? 1A88 
* 2 1A8F 
TBN BRACC eX* 01° PCR OFF 2 4 
Je LEKERI BR IF NO 1ac3 
® a LACT? 
TBN BRCHK eX* 808 SVP REG. ON ? 3 
JF LLKER2 8R IF NO 
o ceed 
* EXECUTE SLKR INST. {- 
* . : ACA 
8 SvP 1ACE 
OC XLZ2*A882¢ SVC MODE a 1AD2 
pc XL2°O18At *Ol* => CR 
oc XL2*228F° CR -> O-REG 1AD6 
DC XL2*6B8E* D => INDEX 1ADA 
oc XL2'0388¢ *03° => € 1ADE 
Dc XL2"808A° "80" => CR TAE2 
oC XL2*0488° #04" => Y 1AE4 
OC XL2'8882° NOT SVC MODE 1LAE6 
pc XL2*O08F* RUN IGP . bie 1AE8 
oc XL2*Aa862* SVC MODE . : pA, 1Aea 
PROG 10 C14-1 © DATE 
PAGE 23 : EC NG. 
i €: 


eet nin te 
(3 


TBM MAINTENANCE DIAGNOSTIC PROGRAM 


OBJECT CODE 


BCB8A 
1F8B 
8882 
OoBF 
004D 
1730 
A&B2 
0042 
1735 
0040 
1736 
0085 
0020 


38 O1 
F2 10 


39 80 
F2 90 


38 02 
F2 90 


30 1F 
F2 01 


3D iF 
F2 O01 


3c 00 
CO 37 
A882 
0888 
AOBA 
608s 
FF89 
8882 
OO8F 
A882 
0085 
G02D 


30 FF 
F2 O01 


3C 0G 
co 87 


3D FF 
F2 01 


co 87 
A882 
GESGE 
op6s 
ALBA 
1F88 


21 AUGT 
827765 


1735 
BF 


1736 
8D 


1735 
El 


2862 
B4 


1730 
62 


128A 
2A08 


2B62 
94 


2B6F 
267E 


2C82 
6A 


2C91 
2B6F 
262C 


LAFT 


1806 
2a08 


5 


ADDR 


1A5SC 
1A5E 
1A60 
1A62 
1A64 
1A66 
1A6B8 
LAGA 
1A&C 
LAGE 
LA70 
1AT72 
1AT4 


LAA1 


1AA3. 


LAAS 
1AA7 
1AAS 
1AAB 
LAAD 
LAaF 
1AB1 


1AB3 


1AE3 
LAES 
1AET7 
1AES 
1AEs 


OSNOVTS:- 
62762T=. 


3340 ATTACHMENT TESTS (PART 


STMT 


2324 
2325 
2326 
2327 
2328 
2329 
2230 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
235) 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 


1) MODEL 12 


SOURCE STATEMENT 


a 


e@enr 


LLK20 


oc 
DC 
oC 
0c 
oc 
oc 
oc 
BC 
oc 
oc 
oc 
oc 
tc 


TBN 
JT 


TBF 
JF 


TBN 
JF 


Cul 
JNE 


cur 
JNE 


EXECUTE LLKR INSTRUCTION 


MyI 
8 
oc 
DC 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
oc 


CLI 
JNE 
MvI 
B 


cul 
JNE 


EXECUTE LLKR 


MVI 
AVI 
8 


bab | 
MVE 
8 

oc 
Dt 
oc 
oF. 
oc 


I SS a SSESSSSSSSSSSSEee 
eoeoeeoeeeeeeeeeee S 


XL2*BCBA! 
XL2‘°1F88° 
XL2*8882° 
XL2*O08F* 
XL2*G04D! 


AL2 (BRXREG) 


AL2*A882° 
XL2*0042¢ 
ALZ(BRACC) 
XL2*0040' 
ALZ(BRCHK) 
XL2*0085' 
XL2*0020* 


BRACC.X*G1° 


LLKER3 


BRCHK,X*30°* 


LLKERS 


BRACC »X*02* 


LLKERB 


TOPIN,X*1F* 


LLKERS 


BRXREGyX* LF? 


LLKER6 


Css#.o 
Sve . 

XL2* A882* 
xL2*0888* 
XL2*A0SA* 
XLZ2*0088* 
XL2*FFS9* 
XL2°8862° 
XL2*O08F* 
XL2*A882° 
XL2°0085* 
XL2°002D* 


IGPIN, X*FFt 


LEKERT 


DLSAR,O 
SOLS 


OLSIN X* FFE 


LLEKERS 


DLS#31,0 
OL SAR: 31 
LOLS 


tLK21,X%*108 
LLK222X%*10° 
S¥P-. 
XL2*ase2° 
XL2°*OESE* . 
XL 2*OBS8* 
XL2*AL8A* 
“L2* 1F8B* 


{ WITH R BIT 7 *ON*, YO - Y5 AND SVP/PCR (BITS 
6 & 7) GO TO DLS 31 3 


aes. @ eh 


PART NO. 
PAGE 


4247605 
23A 


"BC' => CR 
"1Ft => ¥ 
NOT SVC MODE 
RUN IOP 
SENSE X-REG 
INTO LOC *BRXREG* 
SVC MODE 
IDLE SENSE 
‘NTO LOC *BRACC® 
ADAPTER SENSE BYTE 1 
INTO LOC *BRCHK* 
D -> X-REG 
SENSE X-REG 


PCR ON ? 
BR IF NO 


SVP REQ. OFF 7? 
BR IF NO 


*IQP HALT® SET ? 
BR IF KO 


O-REG SET FROM OLS ? 
BR IF NO 


X-REG SET FROM DLS 2? 
BR IF NO 


SERVICE MODE 
*0B* -> C 
*AO* => CR 
"00" -> ¥ 
*FF —> X-PEG 
NOT SVC MODE 
RUN 10P 

SVC MODE 

D => X-REG 
SENSE X-REG 


D-REG AS EXPECTED ? 
BR IF NO 


DiS ADDRESS 00 


LOCAL REGISTER OO AS EXPECTED ? 
BR IF NO 


INITIALIZE OLS 31 = 00 


INITIAL EXPECTED DATA = *1D* FROM 
W-REG AND BITS 6 & 7 = O1 


SERVICE MODE 
IOP START ( SENSE STROBE } 


*0B* => C 

"Al* -> CR 

*1Ft -> ¥ 
PROS 10 C14-15 
PAGE 23a 








IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247605 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 4247605 


ae eters 


PAGE 24... PAGE 24A 
C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 i 
ed ( 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT : 
H 3 
1AEC 8882 LAED 2392 oc XL2*8882° NOT SVC MODE - 2460 i 
1AEE OO8F LAEF 2393 oc XL2* OO8F* RUN 10P . - 1870 10 1870 2461 RTN1D oc XLL°1D* RGUTINE 1D NOT USED ! 
1LAFO A882 1AF1 239% oc XL2* A882° SVC MODE i 1871 00 1B7! 2462 DC XL1*°00° 5 
LAF2 0085 ‘LAF3 2395 oc xL2*0085* D -> X-REG ae 1872 1878 1873 2463 DC AL2(RTNIE) NEXT ROUTINE ADDRESS i 
LAF4 0020 1AF5 2396 oc XL 2°002D* «SENSE X-REG 1874 CO 87 0216 2464 8 LINK ’ 
2397 + : 
LAFT 2398 LLK21 eQu #41 ee ‘ 
1AF6 3D 10 2862 2399 CLI fOPEM,sxX*1D* D-REG AS EXPECTED ? nS 
AFA F2 01 SC 2400 JNE - LLKERO BR IF NO i a 
2401 * ; 
1AFD 3C 1F 2B6F . 2402 MvI - DLSARs X*1F* DLS ADDRESS *1F* 
1801 CO 87 267E 2403 8 - SDLS 
1806 2404 LLK22 £QU #41 
1805 3D 1D 2862 2405 CLI IOPIN,X*10* DLS AS EXPECTED 2 ‘ 
1809 F2 01 56 2406 JNE ‘LLKERA BR IF NO ’ 
2407 * bas 
1B0C 3D 1E LAFT 2408 CLI LEK21L,X*1E! 2ND PASS DONE 7? A \ 
1810 F2 81 16 2409 JE LLK25 BR IF YES 
2410 * é 
1B13 3C LE 1AF7 2411 MVI—s LLK221,X*1E€* EXPECTED DATA = *1C* FROM YO - YS ‘., 
1817 3C 1E 1806 2412 MVI = LLK225X*1E* AND BITS 6 & 7 = 10. 
1818 CO 87 2A0B 2413 8 svp Pasa 
1B1F 8882 1820 2414 oc XL2*8882° NOT SERVICE MODE PA 
1B21 0083 1822 2415 oc xi2*0083* SET ‘SVP REQE 
1B23 OOAL 1B24 2416 DC XL2*O0Al1* RESET *PCR® iar 
2417 * | © 
1825 CO 87 1ADE 2418 8 LLK20 : 
2419 * Ae 
1829 CO 87 242C 2420 tLK25 8 NORMN , Ra! 5 
1B2D CO 87 021% 2421 8 LINK ; 4 
2422 , ‘ ‘ “: ' 
Bee Mee 2423 * GET HERE IF PCR DID NOT RESET ( MANUAL CONTROL } i ee Seen hes oe eS ee ea! 
1831 CO 87 246A 242% LLKERL 8B ERRPRT 
1835 00 1835 2425 pc xL1°C0* ERROR 41CO Le 
2426 * GET HERE IF SVP REQ. DID NOT SET ( MANUAL MODE } Ske 
1B36 CO 87 246A 2427 LLKER2 8 ERRPRT 
1B3A 10 1B3A 2428 DC xXLit1ot ERROR 41C1 -—"s = 
2429 © GET HERE IF SLKR DID NOT SET PCR & - 
183B CO 87 246A 2430 LLKERZ 8 ERRPRT e 
LBSF 20 1B3F 2431 oc ML1*20° ERROR 41C2 ie lf A 
2432 © GET HERE IF SLKR DID NOT RESET SVP REQUEST i Sas i 
1840 CO 87 246A 2433 LLKERS 8B ERRPRT A 
1B44 30 1844 2434 oc XLL*30¢ ERROR 41C3 | ts i 
2435 * GET HERE IF D-REG DID NOT ACQUIRE DLS DATA i: | 
1845 CO 87 246A 2436 LLKERS 8B ERRPRT | 
1849 40 1849 24637 oC xL1°408% ERROR 4104 es 
2438 * GET HERE IF X-REG DID NOT ACQUIRE DLS DATA i © is 
184A CO 87 246A 2439 LLKER6 8 ERRPRT is 
1B4E 50 1B4E 2440 oc XL1"50# ERROR 41C5 oe - ‘ 
2441 % GET HERE IF LLKR INSTRUCTION FAILED Poh 
1B4F CO 87 246A 2442 LLKERT 8B ERRPRT 
1853 60 1853 2443 oC xXL1°60° ERROR 41C6 on 
2444 * GET HERE IF DLS DID NOT ACQUIRE X-REG DATA Pies 
1B54 CO 67 246A 2445 LLKERS 8 ERRPRT | 
1858 70 1858 2446 oc XL1°708 ERROR 41C7 on 
2447 * GET HERE IF D-REG DID NOT ACQUIRE Y 0-5, PCR & SVP REQ ee 3 
1B59 CO 87 246A 2448 LLKERD = BB ERRPRT | be 
185D 82 185D 2449 oc XL1*82° ERROR 41C8 ae . 
IBSE AF? LBSF 2450 | oc AL2{LLK21) EXPECTED i ya 
1860 2862 1861 2451 “DC AL2(IOPIN) RECIEVED ht 
2452 *. GET HERE IF DLS DID NOT ACQUIRE Y 0-5» PCR & SVP Le. oe a) 
1862 CO 87 246A 2453 LLKERA 8 ERRPRT oe aoe 
1866 92 1866 2454 OC XL1°92* ERROR 41C9 t me 
1B67 AFT - 1868 2455 pc AL2(LLK21) beige ae 
1869 2CD1 186A 2456 DC  _ AL2(DLSIN¢31) ee ae 
24857 * GET HERE IF ‘EOP HALT* FAILED TO SET | a | 
1B68 CO 87 246A 2458 LLKERB B SERRPRT | io s oe 
i86F AO LB6F 2459 oc XL1°A0* ERROR 41CA phe 
: DATE 21AUG75 OSNOVTS . PROG ID. C14-1, DATE 2LAUGTS OSNOV7TS . PROG ID Cl4-2)— . | 
 -€€ NO. 827785 827827 . PAGE 245 EC NO. 827785 827827 . PAGE 24h 
. 2 . | . . . cd ¥ 
| ; 
(a oe sy 
‘ 12 | 


ere 


Auth, Seen eden ge Bed fa hc cigt , Tasca dan eee | <4 . 
; partners ginger Set A ne. 5 
: 
@ & © @ eS @ 3 e @ & @ é & € | | 5 ) | | : | 


i 


1BM MAINTENANCE DIAGNOSTIC PROGRAM 


C141 


ERR LOC 


1878 
1879 
1B7A 


i67C 


1880 


1884 


1B88 


is6C 
IBBE 
tB90 
1892 


1B94 
1B96 
1898 
1B9A 
1B9C 
189E 
1BAO 
. 1BAZ2 
1BA4 
1BAG6 
1BA8 
1BAA 
18aC 
1BAE 


1880 
1BB4 


1887 
1888 
166C 
1B8E 


18CO 
18C4% 


18C8 
18CC 


‘DATE 
EC NO. 


oBJeECcT CODE 


1E 
00 
1C65 


CO 87 2329 
CO 67 I7EE 


CO 87 240A 


CO 87 2A0B 


ASB2 
018A 
228F 
BBEE 


0388 
808A 
0488 
8882 
o08F 
A882 
0888 
808A 
AASB 
8882 
o08F 
A882 
0085 
0020 


3D AA 
F2 81 


2662 
09 


€o 87 
02 
18861 
2862 


246A 


3c 00 
co 87 


2B6F 
267€ 


3D AA 
F2 8} 


2CB2 
a9 


OSNOV? 
827827 


22AUGT75. 
827785 


ADDR 


1878 
1875 
1878 


1880 
1B8F 
i891 
1893 


1895 
1897 
1899 
1896 
1890 
1B9F 
1BA1l 
1BA3 
1BA5 
1BAT 
1ARA9 
1BA8 
1BAD 
1 BAF 


31881 


1888 
1880 
1B6F 


5 


3340 ATTACHMENT TESTS (PART 


1) MODEL 12 


PART NG. 


PAGE 


i 
| 
a 
| 


4247605: 


25 : 


i a 
ped 


+. 
* 


* 


é 


{ 


be 





aM, 


C141 


ERR LOC OBJECT CODE 


18D3 
. 1804 
1806 


1808 


1B0C 
18E0 


1BE4 
1BES 
1BED 
18F2 
1BF6 
1BF8 


15FA 


1BFC 
LBFE 
1000 
1002 
1€04 
- 1006 


1c08 
icoe 
1012 
1016 


1€19 
1ciod 
1C21 
ic27 


1c20 
1€31 


f° 4034 
1037 


1€38 
1C3E 


1042 
1046 


1C4A 
1C4E 
1C4F 


ee (5 | 


1¢€53 
\ 1c57 
icss 
icSA 


am, 


.. 1ese 
\- «ACSE 


a’ 


DATE 
EC NO. 


STHT SOURCE STATEMENT 
2466 gaeeseeeeeeeseseeeeeeeeeseGeOessSSSeTteeSSRSEESEEESESESSETESSS SISO STIS, -- 
2467 * 
2468 * LBI INSTRUCTION TEST - EXECUTE AN LBI_ O0eAA INSTRUCTION 
2469 © AND TEST RESULTS IN OLS 00 
2470 * 
2471 * MV In®STRUCTION TEST - EXECUTE MOVE INSTRUCTIONS AS FOLLOWS: 
2472 * 20 TO Zl, 01 -> 10 + 
2473 Z1 TO Z0~ 10 -> 02 * 
247% * Z0 T0 20, 02 -> 03 *: 
2475 * Z1 TO Zle 10 -> 12 * 
2476 * * 
2477 * ERRORS! 41E0 - LOI FAILED, D-REG DIDN'T ACQUIRE DATA® 
2478 * @1EL - LBI FAILED, OLS OION'T ACQUIRE DATA * - 
2479 * GIE2 - MV FAILED, D-REG DION*T ACQUIRE DATA * . 
2480 * 41E3 - MV FAILED, OLS OTON‘T ACQUIRE DATA * 
2481 * * 
2482  cdCeHSSEGEESEREREEEESESSERERESESESEREAEESERESSEESSFESERS SEES FS SESS EET SS 
2483 
2484 RTNLE DC XLL"1E* ROUTINE 1E 
2485 pc XL1*00° 
2486 oc AL2(RTNLF) NEXT ROUTINE ADDRESS 
2487 * . 
2488 8 BEGIN 
2489 * 
2490 8 DLSLOD 
2491 * 
2492 %#e START TEST 1 *¢# 
2493 * 
2494 B BGNTST - 
2495 
2496 EXECUTE "LOI O0,AA* INSTRUCTION 
2497 
2498 8 svP 
2499 * SETUP INDEX = *01* 
2500 oc XL2*A882° SVC MODE 
2501 oc XL2°O18A° ‘O11? —> CR 
2502 BC XL2*228F* CR -> D-REG 
2503 oc XL2*8B88E* D -> INDEX 
2504 * SETUP ZLS 00 = *04* 
2505 DC XL2"0388° '93% -> C 
2506 DC XL2*908A° BO" => CR 
2507 oc XL2*0488° ‘04 => Y 
2508 Dc XL2"8882° NOT SVC MODE 
2509 OC XL2* CO8F® RUN IOP 
2510 DC XL2*Ag62* SVC MODE 
2511 oC XL2*0888° #08" -> C 
2512 oc XL2?808A* *g0* -> CR 
2513 oc XL2*AABBS ‘AAT —> ¥ 
2514 oc XL2"8882! NOT SERVICE MODE 
2515 oc XL2*O008F ¢ RUN IOP 
2516 DC XL2*A882¢ SERVICE MODE 
2517 oc XL2"0085° D <-> X-REG 
2518 DC XL2"0020* SENSE X-REG 
2519 * 
2520 LB105 EQU = *+1 
252) CLI IGPIN»X*AA® D-REG AS EXPECTED ? 
2522 JE LB110 BR IF YES 
2523 * 
2524 8 ERRPRT 
2525 oc XL1*°02* ERROR 41£0 
2526 pc AL2(LBIO5) 
2527 DC AL2CIOPIND 
2528 * 
2529 LB110 MMVI DLSARsO DLS ADORESS 00 
2530 8 SOLS 
2531 * 
2532 CLI. DLSINeX*AA® DLS 00 AS EXPECTED ? 
2533 JE NOVOO BR IF YES, OO NV TEST 
PROG ID C14-1 
; PAGE 25 
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F2 


3c 
co 
oc 
oc 


30 
F2 


7 
co 


D2 
co 


co 
co 


co 
22 


oo 
£0 
01 
01 


10 
87 
ol 
o1 


01 
01 


FF 
81 


01 
87 


87 
87 


6T 


2836 
2862 


co 
32 


87 


2836 
0000 


9001 
8210 


I8CF CO 87 246A 


242C 


240A 
17EE 


1csc 
1BFA 
iBFC 
2A08 


XC1A 
icia 
2862 
31 


286F 
267E 
1¢30 
1€58 


0000 
1F 


02 
1C42 


02 
iBEs 


242C 
0216 


246A 


246A 


21AUGTS 
627785 


00 
o1 


1BFA 


26a0 
26AD 


ADOR 


1803 
1805 
1807 


18FT7 
1BF9 
1BFA 
iBFB 
1BFC 
iBFD 
BFF 
ic01 
1003 
1c05 
1c07? 


iClA 


1€30 


1C4E 
1€50 
1€52 


1c57 
ic59 
1058 


ic sc 
icsD 


1CSF 


OSNOV?S 
627827 


I5M MAINTENANCE DIAGNOSTIC PROGRAM 
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STMT 


2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 
2583 


2584 


2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
259% 
2595 
2596 
2597 
2598 
2599 
2600 
2601 


1) MODEL 12 


SGURCE STATEMENT 


+ 
8 
oc 
oc 
oc 


zane 


ovoo 8 


+ * 


8 
8 
LA 


MVC 
MVC 


MOVOL 


oc 
MOV25 EQU 
oc 
MOV26 EQU 
pc 
oc 
oc 
oc 
oc 


MVC 
SBF 
ctl 
JNE 
* 
MOV30 EQU 
MVI 


MVC 
MYC 
EQU 
cr! 
JNE 


MOV 32 


cul 
BE 


LA 
* 
MOV35 8 
8 


MOVER? 8 
oc 
oc 
oc 


* 
MOVER2 6 


MOVERS oc 


MOVTBL EQuU 


oc 


ERRPRT 
xXL1*12° 
AL2(LB105) 
AL2(DLSIN) 


EXECUTE MOVE INSTRUCTIONS 


NORMN 


## START TEST 2 ##¢ 


BGNTST 
DLSLOD 


MOVTBL oXR1 
MOV25,0(2eXR1} 
MOV26e1(1XR1) 
SvP 

XL2*A882* 
xL2'0C88* 

+ 

XL2*908A® 

* 

XL2°018B* 
XL2*8882* 
XL2*OO8F * 
XL2¢A882* 
xXL2*0085* 
xL2°002D* 


MOV30(1) ,MOV25 
MOV30 -X*E0* 
IOPINsX*01° 
MOVER] 


*+1 

DLSAR2X*10* 

SDLS 

MOV32(2) »SDLS02 
NOVER3(2)2SDLS02 
+3 

t—-#,X*O1® 

MOVER2 


20 eXR1) oX* FFE 
MOV35 


2 eXR1L) eXR1 
MovOL 


NORMN 


LTRK 


ERRPRT 
XL1*22° 
AL2CI1) 
AL2CIGPIN) 


ERRPRT 
xiL1¢32* 
AL2(11) 
AL2(#-#) 


x 
XL2°9001° 
XL2*6210° 


Part NOs 
PAGE 


ERROR 41£1 


POINT TO MOVE TABLE 
SETUP *TO* DLS ADDRESS 
AND *FROM® OLS ADDRESS 


SERVICE MODE 
foc’ -> C 


*90* -> CR 


*ol* => ¥ 

NOT SERVICE MODE 
RUN IGP 

SERVICE MODE 

BD -> X-REG 

SENSE X-REG 


*TO? OLS ADDRESS 

DROP INSTRUCTION BITS 
D-REG AS EXPECTED (FROM) ? 
BR IF NO 

"TO" OLS ADDRESS —> OLSAR 


DLS ADDRESS -> TEST INST 
ee 


—> ERROR MSG 


*TG* DLS DATA AS EXPECTED ? 
BR IF NO 


END OF TABLE ? 
BR IF YES 


ELSE BUMP POINTER 
AND CONTINUE 


ERROR 41E2 


ERROR 41E3 


proc ID 
PAGE 


4247605 
25a 





Syn NTERES ne 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C141 


ERR LOC OBJECT CODE 


1€60 8302 
1€62 9110 
1C64 FF 


1C65 IF 

1C66 00 

1C67 1C6D 

1€69 CO 87 0216 


DATE 21AUGT5 
- €C NO. 827785 


ADDR 


1Cei 
1063 
1064 


if65 
1066 
1068 


OSNOVTS 
827827 


3340 ATTACHMENT TESTS (PART 


STMT 


2602 
2603 
2604 
2605 
2606 
260T 
2608 
2609 
2610 


ee 
Asa 


1) MODEL 12 


Saramago Fre Ea 


SOURCE STATEMENT 


RTNILF 


oC 
oc 
DC 


bc 
oc 
oC 
B 


XL2'8302* 
XL2"9110° 
XLI‘FFS 


XLI LFS 
xXL1°00° 
AL2(RTN20) 
LINK 


me me 


PART NO. 
PAGE 


ROUTINE 1F NOT USED 


NEXT ROUTINE ADDRESS 


PROG 10 
PAGE 


4247605 


26 - 


C14-1 
26 


% 


< 


a 


eeeeeeneaeendenenaeneeeeeeeeoeeeee 8 @ @ 
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3340 ATTACHMENT TESTS (PART 


ERR LOC OBJECT CODE 


1cé0 
1C6E 
1C6éF 


1CcTi 


1c75 


1c79 
1€70 


1082 
1086 


1c88 


1C8A 


1c6c 
1C6E 
1C90 
1092 
1C94 
1096 
1c98 


ic9A 
1c9C 
1C9E 
1cao 
1CA2 


1CA4 
ICA6 
ICAB 
1CAA 
1CAC 


icat 
1cB0 
1CB2 
1CB4 


1CB6. 


1CB8 


1CBA 
1CBF 


1€C2 
1€C6 


1€C? 
1CCA 
1cco 


1coL 
1c05 


DATE 
EC NO. 


ADOR 
20 1céDd 
00 1C6E 
1CcEE 1070 
CO 87 2329 
CO 87 240A 
C2 01 1C09 
1c 00 1€88 00 
co 87 2A0B 
A&B2 1c87 
1c88 
0088 1c89 
FF8A 1c88 
c0sB iced 
OO8F ict= 
O18F ics 
OF SF 1C93 
0085 1095 
0049 197 
1730 1ic99 
218F 1C98 
OF®8F ic9D 
0085 1LC9F 
0040 iCal 
1731 iCA3 
208F icas 
CFEF ECAT 
0085 ica9 
04D 1CAB 
1732 1CA0 
0088 LCAF 
GisF icel 
OFS8F 1083 
0085 1CB5 
6060 1C87 
1733 1089 
1D 03 1733 04 
F2 81 05 
CO 87 246A 
00 1CC6 
D2 G1 O05 
7 FF OO 
co 01 1C70 
CoO 87 242C 
CO 87 0216 
21AUG7T5S CSNOVT5 
827785 827827 


STMT 
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PART NO. 4247605 
PAGE 26A 


1) MODEL 12 
SOURCE STATEMENT 


EEREEERSEEERTEERREEESENSEARESERAEEERS CEES SEAEEEESSHOSEERE EST EHS SSESE SS 


+ 2 
* TEST ALU FUNCTIONS - AND, OR, EOR & Ado * 
* s 


CRAEERRSEREERERREREREEESERRERERE HER ERERER ES ETERS EELS SERS EL EESSSEESE SSS 


RTN20 DC XL1°20° 
oc XL1*00°* 
oc AL2(RTN21) 


ROUTINE 20 


NEXT ROUTINE ADDRESS 
* 


8 BEGIN 
* 
#ee START TEST 1 *#¢ 
2 


8 BGNTST 
* 
LA ALUTBL ¢XR1 POINT TG TEST TABLE 
ALUOL MVC ALUO5 001eXR1) SETUP *FUNCTION® IN CR 
* 
8 SvP 
oc XL2* A882 * SERVICE MODE 
ALUOS EQU * 
oc XL2*0088° *FUNCTION' -> C ( 00 = AND, 
* 01 = OR 
+ G2 = EOR 
* 03 = ADO } 
oc XL2°FFSA‘ ‘fee => CR FOR LATER USE 
* TEST *FUNCTION® WITH A = 00 AND 8 = 00 


"oo" -> ¥ € *00" —> CRY ) 
CRY —-> A & Be A-REG CLOCK 


oC xi2*'0O08B* 
oc XL2* GO8F®* 


pC = XL2"018F* B-REG CLOCK 
DC 0s XL2*G FSFE ALU —> D-REG 
oc =—_- KL2*0085° D => X-REG 


oc XL2*004D* SENSE X-REG INTO 
oc AL2(BRKXREG) LOC "BRXREG® 
= TEST *FUNCTION' WITH A = 00 AND 8 = FF 
oc XL2*218F° CR (fFEY) -> B-RESG 
oc XL2*OFGF® ALU —> O-REG 
oc XL2*0085°* D -> X=REG 
oc XL2*O004D* SENSE X-REG INTO 
oc AL2(BRXREG+1) LOC *BRXREG+1* 
* TEST *FUNCTIGN® WITH A = FF AND 6 = FF 
DC XL2* 208F * CR (*FFY) <> A-REG 
oC XL2* OF SF * ALU -> D-REG 
oc xL2°6085° D -> X-REG 
oc XL2*004D* SENSE X-REG INTO 
oc AL2 (BRXREG+¢2) LOC *BRXREGFZS 
* TEST *FUNCTION® WITH A = FF AND 8 = 00 


oc XL2*0088* *c90" -> Y ¢ 00 -> CRY } 
oc XL2*O18F ¢ CRY -> B-REG 
oc XL2* OFBF®* ALU -> D-REG 
oC xL2*0085* D -—> X=REG 
oc XxL2*006D° SENSE X-REG INTO 
oc AL2(BRXREG+3) LOC *BRXREG+3* 
* 
cic BRXREG439404¢ XR1) RESULTS AS EXPECTED ? 
JE ALUOS , BR IF YES 
* 
8 ERRPRT 
OC XL1*O0* ERROR 4200 
* 
ALUOS LA 50 eXR1}_KR1 BUMP TABLE POINTER 


CLI OL pXRIDOX*FFS END ? 
BNE ALUO] BR IF NO 
* 
8 NORMN 
B LINK 


* 


PROG 1D 
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C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 | 6141-3340 ATTACHMENT TESTS (PART 1) MODEL 12 
f ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT a ERR LOC OBJECT Cope ADDR STMT SOURCE STATEMENT 
ig 2680 * ALU TABLE - BYTE O = ALU FUNCTION (00 — AND, 01 — ORs | r 2716 sesaesennssssensssssenrsccssessagnosessoossessroossansanscesss 202207) 
: 2681 * 02 - EOR, 03 - AOD) A 2717 * 
f 2682 * BYTES 1 - 4 = EXPECTED RESULTS OF EACH OP | 2718 * NO-OP INSTRUCTIONS - esecure eonurs ON ALL LEVELS ( TIME 2 
2683 * o 2713 * SLICING 
1CD9 2684 ALUTBL EQU * ie Oa i 2720 * ERRORS: 4260 — ALL MIARS NOT AS EXPECTED : 
1009 OOOOOOFFOO 1CNO 2685 oc XL5* OOCOOOFFOO* 2721 * 
1CDE O1OOFFFFFF 1CE2 2686 oc XL5* OLOOFFFFFE* | oo 2722 + aceesnesssensansssnssecensnssoosssosecsansesoouonssenssessssQ0leee0S 
1CE3 O200FFOOFF 1CE7 2687 oc XL5* O200FFOOFF* | *. 2723 
1CES OZ00FFFEFF iCEC 2688 oc XL5* OSOOFFFEFF® | 1016 26 1D16 2724 RTN26 pc XL1°26° ROUTINE 26 
1CEO FF 1CED 2689 oc XLi°FF* 1017 00 1017 2725 oc XL1°00° 
2690 | 1018 1E28 1019 2726 oc AL2(RTN2T) | NEXT ROUTINE ADDRESS 
iCEE 21 1CEE 2691 RTN2Z1 oc xL1°21° ROUTINE 21 NOT USED | 2727 * 
1ceF oo acer 2692 4 ee : coe aGut eines | 1D1A CO 87 2329 2728 8 BEGIN 
1CFO 1CF6 1 2693 AL2(RTN22 Ex INE R : 2729 * 
1CF2 CO 87 0216 2694 8 LINK 1D1E CO 87 2837 2730 B LMBI SETUP REMAINING MODE BUFFERS = 00 - 
2695 1D22 889CFF 1024 2731 oc XL3* 889CFF® 
1CF6 22 1ICF6 2696 RTN22 oc xL1°22° ROUTINE 22 NOT USED |: 2732 * 
1CF7 00 1CF7 2697 oc xL1*#00* 1025 CO 87 2871 2733 8 Lcsi 
iCF8 1CFE 1CF9 2698 oc AL2(RTN23) NEXT ROUTINE ADDRESS | 1029 0000 1D2A 2734 oc XxL2°0000° 
1CFA CO 87 0216 2699 8 LINK \ 1028 050000 102D 2735 oC XxL3*080000° no-0P 
2700 ; 1D2E 080000 1030 2736 oc XL 3* 080000° 
ICFE 23 | 1CFE 2701 RTN23 oc xL1*23° ROUTINE 23 NOT USED 1031 080000 1033 2737 oc XL3*080000° 
1CFF 00 1CFF 2702 oc} xL1*00° i 1034 080000 1036 2738 DC xL3*080000° 
1000 1D08 1001 2703 oc AL2(RTN24) NEXT ROUTINE ADDRESS | 1037 080000 1039 2739 oc XL 3*080000* 
1p02 CO 87 0216 2704 8 LINK i 103A 680000 1D3C 2740 Dc XL 3*080000* 
2705 i 1D3D 080000 103F 2741 pc XL3"080000* 
1D06 24 1006 2706 RTN24 oc XL1*°24¢ ROUTINE 24 NOT USFO | 1040 080000 1D42 2742 oc XL3*080G00* 
1007 00 1007 2707 oc XL1*00* 1043 080000 1045 2743 oc XL3*°080000* 
1008 1D9E .1009 2708 oc AL2(RTN25) NEXT ROUTINE ADDRESS | 1046 LOOOOSFF 1049 2744 oc XL4* LOOOO9FF* 8 0009~ HANG 
100a CO 87 0216 2709 8 LINK | 2745 * 
2710 Si 2746 *%& START TEST 1 *** 
1DGE 25 IDOE 2711 RTN25 oc XL1i"25¢ ROUTINE 25 NOT USED | a 2747 * ioe Oe eee 
1D0F 60 © 1DOF 2712 pc xXL1*00° 104A CO 87 240A 2748 8 BGNTST 
1010 1016 ipal 2713 oc AL2(RTN26) NEXT ROUTINE ADDRESS ee 2749 * 
1012 CO 87 0216 2714 8 LINK Ce 1D4e€ CO 87 1092 2750 8 ALSSET 
i 2751 * 
bs 1p52 3C 01 2866 2752 MvI INDEXeX*01° INITIAL INDEX 
ae 1056 CO 87 29CF 2753 8 10P60 
1 2754 # 
| 2 105A CO 87 2A08 2755 8 sve 
: 105E 0882 105F 2756 oc XL2°0882° HALT 10P 
1060 0063 1D61 2757 DC «- KL 2° 0063° CHECK SENSE 
ae 1062 1730 1063 2758 oc AL2(BREREG) INTO LOC *BRXREG® 
- 2759 * <4 
1064 CO 87 1DDA 2760 8 ALSGET READ ALS 
2 2761 * 
1D68 C2 01 2C12 2762 LA ALSDIN,XR1 POINT TO INPUT AREA ( DISP PORTION 
7 1D6C 70 09 00 2763 nNooPpos§ CLI Ol eXR222X*09" OF MIARS, AS EXPECTED ? 
t 1D6F F2 01 15 2764. JNE wooPO9 BR IF NO 
ok 2765 * 
1072 02 01 04 2766 LA 4( XRD XRI ELSE BUMP MIAR POINTER 
1D75 34 01 1732 2767 st BRMIARsXR1 SAVE 
1079- 0D 01 1732 2848 2768 CLC BRMIAR(2) eALSINX TESTED ALL 7 MIARS ? 
1D7F CO 01 2106C 2769 BNE NcOoPOS eR If NO 
ry 2770 * 
* 1083 CO 87 242C 2771 8 NORMN 
2772 * 
: 1087 CO 87 246A 2773 nooPOoS) se ERRPRT 
x. 1088 01 1088 2774 oc XL1°OL® ERROR 4260 
708C 1730 1080 2775 oc ALZ(BRXREG) 
‘ 2776 * 
pts 108E CO 87 0216 2777 8 LINK 
2778 
on 2779 cevapsenesvssseeseeeesesesseseseseseesesenses see sese ese eeee es 
i 2780 * 
2781 * ALSSET - 
oe 2782 * 
on 2783 * canseerecausnsscessesetessseeseseeeeeseesss se eeesees ee ee eee 
\ 
: DATE 21AUGT5 OSNOV7S prac 1D Cl4a1. . DATE 21auGTS$ oSnov7s proc I0 C141) 
EC NO. 827785 g2782T PAGE 27 €C NO. 827785 827827 PAGE 27A 


ce | . 


} 
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i 
C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 Ci4i 3340 ATTACHMENT TESTS (PART 1) MODEL 12 ; 


ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
; 2784 ; e 2647 SEELREEREREERERSEREEELEEALESSEREEEEEECERESESER SEES SSSEERESE SESE OSES EES : 
1092 34 08 10D9 2785 ALSSET ST ALSSEA+3,ARR ike 2848 * . , 
1096 34 01 1005 2786 st ALSSE943¢XR1 2849 * BU INSTRUCTIONS - EXECUTE BU INSTRUCTIONS ON ALL LEVELS : | 
2787 * 2 2850 * 
109A 3C 00 2Cil 2788 MVI ALSD4#31.X*00* pre 2851 * ERRORS: 4260 -— MIAR NOT AS EXPECTED * 
1D9E OC 1E 2C10 2C1i 2789 MVC  ALSD+30(31),ALS0431 : 2852 « 4281 ~ SIAR NOT AS EXPECTED * 
10A4 3C 00 2B01 2730 My ALSB4+32,X*00* : ss 2853 ESERESEERERAEESEEESEEESERESERESSSESEEOCESESEDESESESE HESESESTAESE SOR SEEERS 
10A8 OC 1& 2800 2801 2791 MVC ALSB430131) -ALSB+32 | § 2854 
2792 * INITIAL INDEX WORDS: 1£30 28 1£30 2855 RTN28 oc xXL1i*28° RONTENE 28 
; DAE 3C 03 2885 2793 MVI  ALSB43.X*03* LEVEL O LINKS TO LVL 2) Bt 1E32 00 1E31 2856 oc XL1*00* 
1D82 3C 25 2BB9 2794 MVE ALSB4+7,X*25¢ 1 (LINKS TO LVL 2¢ ETC); 1€32 1EB7 1E33 2857 oc AL2CRTN29} NEXT ROUTINE ADDRESS 
1086 3C 47 2880 2795 MVI ALSB411.X*°47° 2 2858 ¢ 
1DBA 3C 69 28C1 2796 MVE  ALSB415,X*69° 3 1£34 CO 87 2329 2859 B BEGIN 
LDBE 3C 68 2BC5 2797 MVE ALSB419,X°88* 4 vat 2860 * 
1DC2 3C AD 2BC9 2798 MVI  ALSB+23~_X*AD® 5 , 1€38 CO 87 2871 2861 3 LCSI 
1DC6 3C Cl 28C0 2799 MVI «- ALSB4#27eX*C1° 6 (LINKS TO LVL 0) 1£3Cc 0000 1E30 2862 oc xL2*0000° 
1DCA CO &87 2720 2800 B LALSBL : - 1€3E 100081 1E40 2863 oc XL3*100081° Bu 000k 
1DCE CO 87 2756 2801 8 LALSD2 1E41 100082 1E43 2864 oc XL3*100082°¢ BU: 0002 
2802 * 1£44 000083 1€46 2865 oc XL 3*000083° Bu 0003 
1002 C2 01 0000 2803 ALSSE9 LA Bo _KR1 : 1E47 100084 1€%9 2866 oc XL3* 100084* BU «0.004 
1DD6 CO 87 0000 2804 ALSSEA 8 s-% 1E4A 000085 1£4C 2867 oc xL3*000085* Bu: 0005 
2805 '.  YE4&D 000086 1E4F 2868 oc XL3*0U0086° BU =: 0006 
2806 HREREREROECESSSCERSEESEESESECTES FESSESSEKSERSESSLE SSE SSTLS CASE KES ye 1E50 100087 1ES2 2869 oc XL3*100087* 8U 0007 
2807 * -* 1£53 100088 1E55 2870 oc XxL3*100088° su «= 000s 
2808 ¢ ALSGET - : os 1€56 000089 1€58 2871 oc XL 3°000089° gu 0009 
2809 * i 1E59 100009FF 1E5C 2872 pc XL4* LOOOOSFE ® 8 0009, HANG 
2810 HEEESCEEKEESESECESESESSESEEESHRERESEEEECSHERERESES ESSE SRE SECT SETS i 2873 ¢ . 
2611 tie a . 2874 *%* START TEST 1 #*¢ 
iDDA 24 08 1E27 2812 ALSGET ST ALSGEA4¢3, ARR < 2875 * 
10UE 34 O1 1€23 2813 ST ALSGE9¢3,XR1 1E5D CO 87 240A 2876 8 BGNTST 
2814 * tt 2877 © 
- — 1€8&2 C2 01 2802 2815 LA = ALSBINeXR1 fs 1661 CO 87 1D92 - 2878 8 ALSSET | SETUP INDEXES FOR TIME SLICING ———_———_—_—_—_——— 
1DE6 C2 02 2C€12 2816 LA ALSOIN,XR2 2879 * . 
IDEA 3C 00 10F6 2817 HVI  ALSGE3,0 —— ae 1€65 CO 87 2837 2880 6 LNBI SET ALL MODE BUFFERS = 00 
1DEE 3C 00 1£00 2818 M¥VI-s« ALSGES.0 : ae 1€69 8084888C9094989C 1E71 2681 oc XL9*8084886C9094989C FF * 
2819 * 4 a LE71 FF 2881 
1DF2 CO 87 27F2 2820 ALSGE2 8 SALSB , ge. 2882 * ins és eras 
1DF6 2621 ALSGES3 EQU ¢ ee _* \ 1£72 3C 01 2866 2883 NVI - ENDEX2X*01* INITIAL INDEX 
1DF6 00 1DF6 2822.—«;. oC AL1(e-#) : 1E76 CO 87 29CF 2884 8 rOPGO RUN 10P 
2623 * ; 2 es, 2685 = 
IDF? 4C 00 00 2862 2824 AVC 001 ,XR1},1OPIN . 7 AS 1E7A CO 87 IODA 2386 8 ALSGET READ ALS 
2825 *@ a 2887 « 
- 10FC CO 87 2801 2826 8 SALSD Se, LE7E C2 01 2C€12 . 2888 LA ALSOIN,XR1 POINT TO ALS DATA 
1E00 2827 ALSGES EQU * ue 1E62 78 80 00 2889 8R105 SBF 00 e XR 99 X*80° TURN OFF "MODE Sw* BIT 
tE00 00 1E00 2828 oc AL1(9-#) i 1€85 7D 09 00 2890 CLI OL pXR13 9 X*09° MIAR AS EXPECTED 7? 
2829 ¢ gt 1€88 F2 01 22 2891 JNE ©8R110 “BR IF AD 
1E01 8C 00 00 2862 2830 #vC 0(41,XR2},1GPIN : i fy 2692 * 
2831 ¢ 1E8B 7B 80 O01 2893 SBF s- LU XR19 2 X* 808 TURN OFF "MODE Sw? BIT 
1E06 OE 00 1DF6 2836 2632 ALC ALSGE3S(19,11 ae 1E8E 7D 09 01 2894 CLI =: 14 o XR19eX*09" SIAR AS EXPECTED ? 
LEOC OE 00 1E00 2836 2833 ALC ALSGESt12<e12 eh 1€93 F2 O1 LE 2895 JNE 8R112 ‘BR IF NO 
1E12 02 O01 02 2834 LA 1€,XRLP XR es 2896 ¢ 
1£15 £2 02 O1 2835 LA EU gXR2}2RR2 . es 1£94 D2 01 04 2897 ta 4€oXR1)2XR1 @uMP TO NEXT LEVEL MIAR 
1E18 30 1F 10F6 2836 CLI ALSGE3,31 ‘OONE ? oo 1E9T 34 01 1732 2898 st BRAIARsXR1 SAVE POINTER 
1€1C CO Ol 1DF2 2837 BNE  ALSGE2 1E98 OD O1 1732 2848 2899 + CLO ~=—- BRMEAR(2), ALSINX DONE ? 
. 2838 * "Ag - i -.  12€A) CO O1 1€62 2900 BNE 88105 | BR IF NO 
t 1£20 C2 01 0000 2839 ALSGES9 LA. -%,XR1 a . 2901 * ; 
1£24 CO 87 0000 2840 ALSGEA 8 + - 1EA5 CO BT 242C 2902 8 NORMN 
2841 . re 1EAS CO 87 0216 - 2903 - 8 LINK 
1€28 27 1E28 2842 RTN2T oc XLLE2T® ROUTINE 27 NOT USED C3 290¢ * 
1£29 00 1E29 2843 oc xL1*00* i “ 2905 * GET HERE IF SOME *MIAR* NOT AS EXPECTED 
1E2A 1€30 1E2B 2844 oc AL2(RTN28} NEXT ROUTINE ADDRESS fie 2906 © ue 43 ; 
i 1E2C CO 87 0216 2845 8 LINK ‘A. BEAD CO BT 246A 2907 BR1L10 B ERRPRT 
. 1EB1 00 1€81 2908 oc XL1°00°* ERROR 4260 
Lo 2909 * GET HERE IF SOME *SIAR* NOT AS EXPECTED 
= 1€B2 CO 87 246A 2910 BR112 8 -ERRPRT 
1EB6 10 1£86 2911 oc L1°20° 
[ye 2912 2 
; & ses7 29 2EB7 2913 RINZ9 oc xLi*29° - GQOUTINE 29 NOT USEO 
. | - . a§ s. : 
' DATE 21AUG75 OSNOVTS PROG 1D 214-1. % “DATE 21 AUGT7T5 OSNOVTS PROG. 10 C14-1) | 
.€C NO. 827785 827827 - PAGE 28) €C NO. 627785 827827 . PAGE 268A 
+ : | rs ‘ : : 2 3 ; . . : a3 
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IBM MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 4247605, I8M MAINTENANCE DIAGNOSTIC PROGRAN poe NO. BS 
PAGE 29 | 
C141 3340 ATTACHMENT TESTS (PART i} MODEL 12 : C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ! CDeRk Loc OBJECT cove ADDR STMT SOURCE STATEMENT 
1E88 00 1EB8 2914 oc eee bby aes Siaacee | re) soce g Neeeeseeseeessesesnsesesesoucossesestseseeeeeeeeeeceesssesssesesseese 
i A $ 
ieee cores 0216 ics 2916 8. LINK | 2920 * L6l TEST - EXECUTE LBI INSTRUCTIONS ON ALL LEVELS ( TIME : 
2921 ¢ SLICING } 
lo 2922 ¢ * 
| 2923 * ERRORS? 42A0 - ONE OR MORE INSTRUCTIONS FAILED * 
| © 2924 * 4241 - #:) LOI INSTRUCTIONS FAILED : 
2925 © 
i 2926 €FS002640906060060548.40008260402: - - SSSSSCOSSSESSARSESSSS SSE 2 3 2ERSSSSRETESEE 
2927 
| @ eer 2a 1EBF 2928 RTN2A OC xLit2ae ROUTINE 2A 
| 1ECO 00 1ECO 2929 OC —-XL1*008 
a 1EC1 1F89 1EC2 2930 | DC = AL2(RTW2B) NEXT ROUTINE ADDRESS 
| © 2931 * 
1EC3 CO 87 2329 2932 8 BEGIN 
| 2933 * 
| © 16c7 co 87 2871 2934 B LCs! 
1ECB 0000 1ECC 2935 OC XxL2*0000* 
| 1ECD 1880FF 1ECF 2936 DC =«_- XL3 "1 880F Fe LBI = OCZONE 0), X*FFe 
| < 100 oss0rF 1E02 2937 DC  XL3*0890FF® LBI = O(ZONE 1),X*FF® 
| 1ED3 00C002FF 1ED6 2938 DC = XL&@*900002FF* 8 0002, HANG 
2939 © 
| © 294¢ * SETUP ZLS LOCAL ZONES 0 & 1 = 
1E07 3C 08 232 2941 MVI = ZLS»x*08! O8 TC LOAD DLS OOCZONE 0) & 204ZONE 13 
ep 1E0B 3C 19 233 2942 MvI -ZLS#1,x"19" = 19 04 24 
| © = 1eve 3c 2a 2036 2943 MVI = ZLS#29X*20" =—.28 24 28 
1EE3 3C 38 2C35 2944 MVI = ZLS#3,xX°3B" = 38 oc 2c 
| 1EE7 3C 4C 2036 2945 MVE ZLS#4,X*4C* 4 10 30 
| © eee 3¢ 5p 2037 2946 MVI «-_ZLS#5eX*5D® = 550 14 34 
1EEF 3C 6€ 2C€38 2947 MVI —-ZLS#6eX°6E® = 6 E 18 38 
| 1EF3 3C 00 2860 2948 MVI _ZLSAR4O 
5 ots | G ier? 3c o8 2663 2949 MVi =—- PENGTH,8 eh 
1EFB CO 87 2602 2950 8 LZLS LOAD ZLS 
| 2951 * 
| © err co 87 2837 2952 8 LMBI LOAD ALL MODE BUFFERS = TO 00 
| 1F03 8084888C9094989C 1F0B 2953 DC = =—_- XL9"8084888C9094989CFF® 
1FOB FF 2953 
|@ 2954 
2955 *#@ START TEST 1 #02 
| 2956 © 
| © = 10c co 87 2604 2957 8 BGNTST 
2958 © 
Q 1F10 CO 87 1092 2959 8 ALSSET SETUP TIME SLICE INDEXES 
2960 © 
1F14 CO 87 17EE 2961 B DLSLOD SETUP ALL LOCAL REGS = OWN ADDRESS 
2962 * 
| © 1F18 3c 00 1284 2963 MVI = CSSw,0 CLEAR "FAILURE COUNTER® 
1F1C 3C 01 2866 2964 MVI «INDEX »X*01® INITIAL INDEX 
| 1F20 CO 87 29CF 2965 B 10PGO RUN IOP 
© 2966 © 
| 1F24 3C 40 2863 2967 MVI LENGTH. 64 SETUP TO GET ALL 08S 
1F28 OC 01 2B6F 2846 2968 MVC = DLSAR(2),. ZERO 
| 1F2e-co 87 267e 2969 8 SOLS 
2970 * 
1F32 C2 02 2CB2 2971 LA = OLS TNexXR1 POINT TO DLS INPUT AREA 
© 136 70 FF 00 2972 LBI10S5 «CLI O04 XRD» X*F RO OLS AS EXPECTED 2? 
| 1°39 F2 01 07 2973 JNE  LBI106 BR IF MO 
| 2974 ¢ 
© 1F3c 3a 02 1288 2975 SBN CSSW»x*02° ELSE SET °LBI OK* sw 
1F40 F2 87 04 2976 J LB1107 
| 2977 © 
| © 143 3a 01 1280 2978 LBI106 §=6SBN ECC SSWo SET *LBE ERROR® sw 
2979 © 
| 1F47 D2 01 04 2980 LBI1O7 «= LA 4&0 XR)» XR BUMP POINTER 
© rsa 34 01 1732 2981 ST  —- BRMTARSXR1 SAVE 
| 1F4E OD 01 1732 2851 2982 CLC BRMIAR(2),DLSINY DONE ? 
1F54 CO 81 1F69 2983 BE 181109 BR IF YES 
| © 2984 © 
' DATE = 21AUG75.—s« OSNOVTS PROG ID c14-1! @oate —21aus75 —_—osnov7s PROG ID C141) 
EC NO. 827785 627627 PAGE 29 EC NO. 827785 827827 PAGE 290° 
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PART WC. IBM MAINTENANCE DIAGNOSTIC PROGRAM PART RO. 4247605 
PAGE 30 | e PAGE 30A 
CL41 3340 ATTACHMENT TESTS (PART 1} MODEL 12 C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 
ERR LOC OBJECT CODE ADDR STMT SQURCE STATEMENT Cr eRR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
1°58 OD OL 1732 284F 2985 cLC BRMTAR{2), OLS INX 3010 SRHORALSESASHERSESLESKESLECHS CS SKS STH SHS SEKRHLS HHS LL ISSO LNSESTESESSSE SS HSH SKSSS 
1F5E CO O01 1F36 2986 BNE LBI105 | @ 3011 ¢ . 
LF62 D2 O1 04 2987 LA 4&(sXRLD,XRE 3012 @ ALU IMMEDIATE GPS ~ EXECUTE ALU OPS SANDE*®, “GRIS, *EGRE & 
1F65 CO 87 1F36 2986 8 LB1105 3013 @ AND "ADDI* THEN TEST GRANCK ASEILITY. % 
2989 ¢ | & 3014 @ * 
LF69 38 Ol 128A 2990 LBIL0S TEN CSSHexX°GL® AMY ERRORS 7 3015 & ERRORS: 42CG ~ BR ON CONDITION FOLLGWING ANCE FAILED © 
LF6D F2 90 12 2991 JF LBIELS BR IF RO 3G16 & 42C1 - BR ON CONDITION FOLLOWING CRs FAILED e 
2992 * © 3017 & 42C2 ~ BR ON CONDITION FOLLCWING EGRET FAILED © 
1f70 38 02 128A 2993 TEN CSSHeX*O2# ANY SUCCESSFUL ? 3018 ¢ £2C3 <- BR ON CARRY FOLLGWING ADOI FAILED & 
LF74 F2 90 05 2994 JE LEELIO BR IF RO | gs 3019 & 62C4 - BZN FOLLOWING ADDI FAILED * 
2995 * eS 3020 & 62C5 = BCN FOLLOWING ADDIE FAILED e 
LET77 CO 87 246A 2996 8 ERRPRE 3021 @ 4206 - BNC GR BC FOLLOWING ADOE FAILED @ 
LE7B OO LFTB 2997 ie XLL°OO* ERROR 4240 a 32022 ¢& &2CA& ~ PROGRAM FAILED e 
23998 © i é> 3023 8% &2CB - *TEST® TORE ALTERED LOCAL REGISTER © 
LETC CO 8&7 246A 2999 LBILLO. 3B ERRORT 3024 & &2CC - *TEST*® TEGRI ALTERED LOCAL REGISTER & 
1F86 10 1F80 ay : oc XLL*208 ERROR 4241 © 3025 @ &2C0 = °TEST® TADDI ALTERED LOCAL KEGISTER * 
1 Seer 3 26 gS & 
1F81 €O 87 242C€ 3002 LBILILS 8 NORKN sai SERCRESESSELESSLISKES ESHSSRESS SSE SES SSE SRKEKSS SSIS SSSLHOSS ES VLE SS GSS HELIS 
1F85 CO 87 0216 3003 B LENS — 3028 
3004 © LF91 2€ LESE 3029 RTN2C oc XLLE2Cé ROUTINE 2C 
1F89 26 1F89 3005 RTN2B oc X¥L1° 262 ROUTINE 28 ROT USED LFS? O66 1°92 3030 oct XL1L°*00* 
1F8A 00 LFBA 3006 oc xL1*00* _ 1F93 209C 1F9% 3031 oc AL2C(RTN2D5 NEXT ROUTINE ADDRESS 
1F8B 1LF9L 1f8C 3007 oc ALZ(RTNZC} NEXT ROUTINE ADDRESS ; 2 3032 & 
LF8D0 CO 87 0216 3008 8 LINK 1ESS CO 87 2329 3033 8 BEGIN 
. 3034 * 
© 1F99 CO 87 2871 3035 B LCSI THE FOLLOWING STRING WILL SE LOADED 
3036 ¢ INTO CS YO TEST IMMEDIATE ALU OPS 
: LFSD OoD0 LFSE 32037 Oc XL2*0000° 
CG LESE 18800C LFAL 3038 oc XL3¢2880008 LBI O26 
3039 ¢ TEST *ANDI® FOLLOWED BY BNZ & BZ TEST 
— LFA2 O8COFF LFA%& 3640 nC XL3*O8COFF¢ ANDI O-FF 
eee ; C 1FAS 210020 LEAT 3041 DC XL3*210020° BNZ ERROR C is Dee Gene e. 
1FAS 190005 LFAR 3042 oC XL3*150005¢ BZ ©6005 
1FAB 000020 LFAD 3043 oc XL3*°900020° B ERROR O 
> 3044 & TEST "ORI® FOLLOWED BY BNZ & BZ TEST 
: 1FAE LSOCOFE EFBO 3045 oc X¥L3°19COFF® ORE OFF 
a LFBL 190021 LFB3 3046 oc XL3*190921° 8Z ERROR 1 
o> 1FB4 010009 1FB6 3047 oc XL 3°010009° BNZ 6009 
1FB? 100021 LFBS 3048 DC xL3*100021° 8 ERROR 1 
- 3049 © TEST *EORI* FOLLOWED BY BNZ & BZ TEST 
1FBA LACOFF LEWC 3050 oc XL 3* LACOFF® EGRI OcFF 
; 1FBD 010022 LFBF 3051 oc XL3*010022* BNZ ERROR 2 
i 1FCO 090000 1FC2 3052 pc XL3¢090000' BZ 90000 
e 1€C3 100022 LFCS 3053 pc XL 3*100022¢ 8 ERROR 2 
3054 * TEST *ADDI® FOLLOWED BY BCN, BC, BZN & BNC TEST 
| 1FC6 OBCOFF LEC8 3055 oc XL3* OBCOFF® ADDI Oe FF 
© 1FC9 030023 1FCB 3056 oc XL3*030023¢ BCN ERROR 3 
LFCC 120023 LFECE 3057 oc XL3*120023* BC ERROR 3 
ern 1LFCE 080012 1FD1 3058 ec XL3*OB00L2¢ BZN 060012 
| @ LED2 106024 1FD4 3059 pc XL3*100024° 8 ERROR 4 
1FDS OBCOFF LFD? 3060 oc XL3*OBCOFF® ADDI OFF 
| gm LFD8 030015 LEDA 3061 OC XL3°O30015° BCN 0015 
eG LFDB: 000025 LFEDD 3062 oc XL3*000025° 8 ERROR 5 
1LEDE 0AG026 LFEO 3063 oc XL3*OA0026° BNC ERRGUR 6 
ifE1 020018 1FE3 3064 oc XL3*O200185 BC O08 
@ 1FE% 000026 1FE6 3065 oc xXL3*000026° 8 ERROR 6 
3066 * INSURE THAT *TEST* INSTRUCTIONS DON*T ALTER LOCAL REGS 
1FE7 188000 EFES 3067 oc XL3*188000° LBI O20 
© LFEA 088100 LFEC 3068 oc XL3*°0881008 LBI 260 
1FED 088200 LFEF 3069 oC XL3°088200° LBI 2,0 
i ee: 1FFO O1LCOFF LFF2 3070 DC XL3°OLCOFF® TORI OsFF 
© LEF3 1L2CLFE IFES 3071 OC XL3*12CLFF* TECRI LFF 
LEF6 O3C2FF LFFS 3072 oc KL3*O3C2FF* TADDI 2,FF 
— 1FFQ 080006 1FFB 3073 oc XL3*080000¢ NO-OP 
© LFFC OOCOLF 1FFE 3074 oc XL3* COOOLF® 8 OOF, HANG (NORMAL END? 
1FFF 000020 2001 3075 oC XL3*000020° ERROR HANG © 
. 2002 100021 2004 3076 oc XL3*100022° ERROR HANG 1 
CG 2005 1600022 2007 3077 DC XL3*100022° ERROR HANG 2 
1 DATE ZLAUGTS  § GSNOVTS PROG IO cra-2 €oarte 21aUG7S  OSNOVTS PROG ID Cia—1) 
EC XO. 827785 S27827 PAGE 30 EC NO. 827785 827827 PAGE 308 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


1) MODEL 12 


SOURCE STATEMENT 


* 


eee START TEST 


MMOS 


IMMO6 


1MMO08 


IMM10 


1MM11 
IMM12 
* % 

14m13 


RTN2ZD 


C141 3340 ATTACHMENT TESTS (PART 
ERR LOC OBJECT CODE ADDR STMT 
2008 000023 200A 3078 
2008 100024 200D 3079 
200E 000025 _ 2010 3080 
2011 000026 2013 3081 
2014 FF 2014 3082 
3083 
3084 
3085 
2015 CO 87 240A 3086 
3087 
2019 CO 87 276D 3088 
2010 00 2010 3089 
201€ 00 201€ 3090 
| 3091 
201F CO 87 29CF 3092 
3093 
2023 CO 87 2801 3094 
2027 00 2027 3095 
3096 
2028 30 26 2862 3097 
202C F2 8& 59 3098 
Satra? 3099 
202F 3D 1F 2862 3100 
2033 F2 82 52 3101 
2036 F2 03 26 3102 
3103 
2039 3C 03 2863 3106 
2030 OC 61 286F 2846 3105 
2043 CO 87 267E 3106 
3107 
2047 3D 90 2C82 3108 
2068 F2 01 3F 3109 
3120 | 
204E 3D 00 2C83 3211. 
. 2052 F2 01 3D Ct 3112 
3113 
2055 3D 00 2084 3114 
7059 F2 01 38 3115 
3116 
205C CO 87 242C 3117 
2060 CO 87 0216 3118 
3119 
2064 OC 00 2087 2862 3120 
206A C2 01 0000 3121 
206E OE OC 2087 2087 3122 
207% D2 01 O01 3123 
2077 34 O1 1732 3124 
2078 3D 0% 1732 3125 
207F CO OL 206E 3126 
3127 
2083 CO 87 246A 3128 
2087 00 2087 3129 
3130 
2088 CO 87 246A 3131 
208C AO 208C 3132 
3133 
2080 CO 87 246A 3134 
2091 BO 2091 3135 
3136 
2092 CO 87 246A 3137 
2096 CO 2096 3138 
. 3139 
2097 CO 87 2468 3140 
2098 DO 2098 3141 
3142 
209C 2D 209C 3143 
209D 00 209D 3144 
209£ 2004 209F 3145 
DATE  21ANG75 OSNOVT7S 
€C NO. 827785 827827 





. oc 


oc 
oc 
oc 
oc 


RRe © 


so R°.° 


cul 


XL3*000023° 
XL3*100024° 
xL3*000025° 
XL3*000026° 
XL1°FFS 


1 +s 
BGNTST 
LALSD 


AL1(0) 


XL1°00* 
roPGO 


-SALSD 


ati(0) 


 FOPIN.X*26° 


iMM10 


IGP IN. X*°1F° 
ImM10 
IMMOS 


LENGTH, 3 
DLSAR{23 ZERO 
SOLS 


BLSIN,O 
I"NM11 


OLSING1,0 
IMmM12 


DLSING2 20 
immi3 


NORMN © 
LINK 


IMMO8 (15. IGP IN 
OeXR1 


EMMOS (1), IMMOS - 


LC XR1L) eXRI 
BRAIAR,XR1I 
BRAIARS4 
TMMO6 


ERRPRT 
XL1°00° 


ERRPRT 
xL2°A0° 


ERRPRT 
XL1°BO* 


ERRPRT 
xL1i*Co* 


ERRPRT 
xXL1i°*Do* 


xXL1°20* 
xXL1*°00* 
AL2(RTNZE) 


“MAS DLS O2 ALTERED BY “TEST* INST. ? 


ERROR 42CB 


PART NO. 4247605 


PAGE 32 


ERROR HANG 3 
ERROR HANG 4 
ERROR. HANG 5 
ERRGR HANG 6 


INITIAL MIAR = 0000 


HALT 10P, GET MIAR D 


DID PGM RUN TO COMPLETION ? 


BR IF NO 


BR IF NO 
BR IF *ERROR® END 


SETUP TO READ LOCAL 


REGISTERS 0.1 & 2 
READ *EX | | 

: : t 
WAS DLS 00 ALTERED BY “TEST® INST. ? 
BR IF YES 


WAS OLS O1 ALTERED BY “TEST® INST. ? 
BR IF YES x 


BR IF YES 


| 
SETUP ERROR @ | 
SETUP SHIFT COUNT — | 
SHIFT ERROR STOP 

BUMP COUNT | 
SAVE 
END OF SHIFT 2? 

BR IF NO | 


ERROR 42€0 - 4£2C6 


ERROR 42CA 


ERROR 42CC 


ERROR 42CD 
ROUTINE 20 NOT USED 
NEXT ROUTINE ADDRESS 


DO 


Proc 10 C141 
PAGE 31 
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4247605 


IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO- a 


i PAGE 


C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


20A0 CO 87 0216 


3146 8 LINK 


gon 
of, 


9 


rn 
mo 


a 


x 


o 


my 
“a 


{ 


\ DATE 21AUG75 
£C NO. 827785 
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PROG ID 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO- 4247605 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247605 
PAGE 32 PAGE 32a 
C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT . ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
3148 EHREEEREEOEESERERESESEREESESESESEESSEEREESEERELERE SES SEESE SESE EEEEEAES ES 2118 A882 2110 3216 oc Xi2*AGB2* SERVICE MODE 
3149 © * 211D O&8E 2L1E 3217 pc XL2*OESE® | SERVICE ACCESS 
3150 SINC/LINC TEST - EXECUTE *SINC', "SDEC*® AND “LINC * 21L1F OO6A 2120 3218 oc XL2*OO06A* GET *CR* 
3151 * INSTRUCTIONS * 2121 2CF4 2122 3219 oC AL2(CR} 
3152 * ERRORS: 42E0 ~ PROGRAM DIDN'T COMPLETE * 3220 * 
3153 * 42E1 ~- LINC FAILED * 2123 30 08 2871 3221 CLI CSAR»X*08! CS LOC *08* TESTED YET ? 
3154 * 42E2 - SINC GR SDEC FAILED * 2127 F2 81 11 3222 JE SINCLO BR IF YES 
3155 * G@2E3 — LINC "MULTE* MODE FAILED ® 3223 * 
3156 * * 212A 3D 08 2CF4 3224 CLI CReXx*08* LOC O0OT AS EXPECTED ? 
3157 REERKERESERERRORGEEEEERESE RE EEESEEE EOREEEEES EESEEEESESESSEEEE SESE EESSS 212E F2 OL 12 3225 JNE SINC20 BF IF NO 
3158 3226 *# 
20A4 2E 2004 3159 RTNZE oc XL1*2E* ROUTINE 2E 2131 OF 00 2871 2836 3227 ALC CSAR(L).1I1 ELSE BUMP CSAR TO *0008* 
20A5 00 20A5 3160 oc xL1*°00? 2137 CO 87 2113 3228 8 SINC16 . 
20A6 21C0 20AT7 3161 oC AL2(RTN2F) NEXT RGUTINE ADDRESS ‘ 3229 * 
‘3162 @ 2138 3D FF 2CF4 3230 SINC1I9 CLE CRyX*FFS LOC 0008 AS EXPECTED ? 
20A8 CO B7 2329 3163 8 BEGIN 213F CO 81 242C 3231 BE NORMN BR IF YES 
3164 ¢ : : 3232 * 
20AC CO 87 2871 3165 8 LCSI THE FOLLOWING DATA WILL BE LOADED 2143 CO 87 246A 3233 SINC20 8 ERRPRT 
3166 * INTO CS TO TEST THE ABOVE OPS 2 2147 20 2147 3234 oc xL1*20* ERROR 42E2 
2080 0000 2081 3167 DC XL2*0000* . 3235 * 
2082 088007 20B4 3168 pc XL3*OS88007* tBI 0,07 3236 * EXECUTE *LINC* INSTRUCTION IN MULTI-BYTE MODE 
2085 188108 2087 3169 oc XL3°188108* LBI 1,08 3237 * 
2088 O882FF 208A 3170 pc XL3*O882FF*® LSI 2eFF 2148 CO 87 2871 3238 8 LCS! LOAD DATA INTO CONTROL STORAGE 
2088 114081 20BD 3171 oc XL3*2114081% SINC 15092 2r4C C000 214D 3239 oc xL2*0000* 
20BE 194182 20C0 3172 oc XL3°194162¢ SDEC 22191 214E 088007 2150 3240 oc XL3*O088007* LBI 0,07 
29C1 0040CO0 20C3 3173 oc XL3*0040CO* LINC 070-0 2151 1240C6 2153 3241 oc XL3*1240C6" LINC 6¢0e2 
20C4 100006 20C6 3174 oc XL3*10000cC" 8 Q006, HANG 2154 000002 2156 3242 pc XL3*000002* GR C002+ HANG 
20C7 FF 20C7 3175 pc XLI‘FFS , 2157 FF 2157 3243 oc XLI'FFE 
3176 * os 3244 * 
3177 *%* START TEST 1 #4 2158 CO 87 2871 3245 8 tcslI LOAD DATA INTO CONTROL STORAGE . 
3178 * Ps 21SC 0007 2150 3246 oc xL2*0007* 
20C8 CO 87 240A 3179 8 BGNTST mL, 215E 100300 2160 3247 5C x13*100300* DATA = 03 SE ae ee a 
3180 * 2161 100500 2163 3248 oC XL3*1005S0* DATA = 05 
20CC CO 87 276D 3181 8 LALSO INITIAL MIAR = 0000 es 2164 FF 2164 3249 oc XLI°FE* 
20D0 00 20D0 3182 DC Ati(o) Pe 3250 * ; 
2001 6O 2001 3183 DC XL1*00* 2165 3C FE 2C79 3251 AVI « DLS*7eX*FF* INITIALIZE OLS OF = FF 
3186 * 3252 * 
20D2 CO 87 29CF 3185 8 10°60 RUN TOP \, 2169 CO 87 2737 3253 a LALSS DSADDR = SXXX (MULTI MODE) 
3186 * 216D 02 2160 3254 oc AL1(21 . 
2006 CO 87 2801 3187 8 SALSD. GET END MIAR ZB 216E 80 216E 3255 oc XL1°80* 
20DA 00 20DA 3168 oc AL1(0) & es 3256 + 
3189 * 3257 see START TEST 2 #0 
20DB 3D 06 2862 3190 cul IGPIN,X*06* AS EXPECTED ? ee 3258 © 
20DF F2 81 05 3191 JE SINCOS BR IF YES 8: 216F CO 87 240A 3259 8 BGNTST 
3192 * 3260 € 
2C0E2 CO 87 246A 3193 8 ERRPRT . 2173 3C OT 2B6F 3261 MVI OLSAR-7 OLS o7 = FF 
20E6 00 20E6 3194 oc XL1*00* ERROR 42E0 ‘ 2177 CO 87 262C 3262 8 LOLs 
3195 * 3263 * 
20€7 3C 03 2863 3196 SINCOS MMVI LENGTH,3 SETUP TO RETRIEVE OLS 0 - 2 ; 217B CO 87 276D 3264 - 8 LALSO OSADDR = 8000 
20€B OC Ol 2B6F 2846 3197 MVC OLSAR(2}, ZERO 8 217F 02 2L7F 3265 oc ALL(2) - 
20F1 CO 87 267E 3198 8 SOLS 2180 00 2180 3266 oc XL1°00° 
3199 * 3267 * 
20FS 30 FF 2CB2 3200 CLI DLSIN,X*FFS DLS 00 AS EXPECTED ? : 2181. CO 87 2760 3268 8 LALSO INITIAL MIAR = 0000 
20F9 F2 01 OE 3201 JNE  SINCO9 BR iF NO 2185 00 2185 3269 Dc AL1(0) 
3202 * z 2186 00 2186 3270 oe XLL*00* - 
20FC 3D O1 2CB3 3203 CLI OLSIN¢1,X*O1* DLS O1 AS EXPECTED ? . 3271 * 
- 2100 F2 OL O7 3204 JNE  SINCOS BR IF NO 2187 CO 87 29CF 3272 8 16PGG RUN rOP 
3205 * “: 3273 * 
2103 30 FF 2CB4 3206 CLI ODLSIN¢2,X"FFE OLS 02 AS EXPECTED ? a 2188 CO 87 2801 327% 6 SALSD GET END MIAR 
2107 F2 81 05 3207 JE SINC15 BR IF YES 216F 00 _  218F 3275 oc AL1(03 
3208 * 5: 3276 * 
210A CO 87 246A 3209 SINCOS 8B ERRPRT 2. 2190 30 02 2862 3277 cLr IOPIN,X*02* AS EXPECTED ? 
Z10E 10 210E 3210 pc xXL1°10° ERROR 42EL 2194 F2 81 05 3278 JE SINC30 BR IF YES 
3211 a 3279 * 
210F 3C 07 2871 3212 SINCI5 MMVI CSAR,X*0O7* CSAR = 0007 i 2197 CO BT 246A 3280 8 ERRPRT ; ; 
2113 CO 67 28Dl 3213 SINC16 8B LCSAR , 2198 00 -2198 3281 oc XL1°00* ERROR 42E0 
3214 * s 3282 * = 
2117 CO 87 2Aa08 3215 8 sve oe 219C 3C 02 2863 3283 SINC3Q0 MMVI LENGTHe2 . GET O18 6 & 7 
. OaTE 21AUGTS OSNOVTS PROG ID Ci4—-1 ° DATE 21AUGT7S. OSNOVTS PROG 10  €i&d) 
EC NO. 827785 827827 PaGE 32. EC ND. 6827785 827827. , PAGE - 32a 
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C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12> C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 








ERR LOC GBJECT COOE ADOR STMT source STATEMENT : ERR LOC OBJECT CODE ADDR STMT SQURCE. STATEMENT : ; 
21A0 3C 06 286F 3284 ; “vi OLSAR +6 : ; ack 3238 gacesesenersnnsecsqessnesaessesaesessessasaesestssseseseseeeseseeese ees 
: 21A4 CO 87 267E 3285 8 SOLS i 3299 * 2. 
es 3286 * s: 3300 * TBON/TSOF TEST - SET EACH BIT OF OLS 00 ANO PERFORM TSON te 
a 21A8 30.03 2C88 - 3287 CLI OLSIN+6e3 OLS 06 = 03 2 kage 3301 * GR TBOF AS REQUIRED (EXECUTE OM ALL LEVELS) © 
ce 21AC F2 O01 08 3288 JNE  SINC35 . BR IF NO 3 oe 3302 * * 
a. 3289 * 3303 * ERRORS: 42FO — TBOF FAILED * 
fe 21AF 30 05 2C89 3290 CLL OLSING7¢5 OLS O07 = 05 2? oe 3304 © 42F1 - TBON FAILED * 
i 2183 CO 81 242C i 3291 BE NORMN BR IF YES os 3305 * * 
7 : 7 ‘3292 @ ., , , : . 3306 * cngeeseeeveeesessseeeeessesseeeesesseeeeeesssssesseeess F498 0909 99SS 09 
2187 CO 87 246A 3293 SINC35 8 ERRPRT a, 3307 
2166 30. 2188 3294 oc 8=— XL 1 * 30° — ERROR 42E3 * 21C0 2F 21C0 3308 RTN2F DC XLI°2F* ROUTINE 2F 
3295 © - 21C1 00 21C1 3309 oc XL1*°00* 
218C CO 87 0216 3296 8 LENK 21C2 2262 21C3 3310 LC = AL2(ENDRTND NEXT ROUTINE ADDRESS 
3311 * 
21C4 CO 87 2329 3312 B BEGIN 
3313 * 
3314 * TEST *TBOF® 
3315 * 
21C8 CO 87 2871 3316 8 LCs! LOAD DATA INTO CONTROL STORAGE 
? 21CC 0000 21CD 3317 pc xXL2*0000° 7 
‘ 3318 + TEST BIT O OFF 
a 8 21CE O8807F 2100 3319 - pC XL3°OSSO7F* LBI O00,7F TURN OFF BIT O 
} 21D1 184003 2103 3320 oc XL3* 184003" TBOF 0,00,03 SR IF BIT O Orr 
ae 21D4 1000086 . 2106 3321 oc XL3*10000B* ELSE 6R TO ERROR LOC 
» 3322 * TEST BIT 1 OFF 
f 2107 0880BF0940061000 21D0F 3323 - pc XL9* 08808F094006100018B° 
i 210F 18 3323 
; se 3324 * 
b : 3325 ¢ TEST BIT 2 OFF ; 
i 21E0 O8B80DF0AS00910G0 21E8 3326 oc XL9* OBBODFOAS009106018* 
i ps 21€8 18 - 3326 
_— eS 3327 ¢ . 
5 é 3328 * TEST BIT 3 ( ALL BITS ) OFF 
: . ar 21€9 188000184600C1000 21F1 3329 pc XL9* 18800018400C 100018 ° 
4 _ ‘ 21f2 18 3329 - 
‘ SS we « 7 / 3330 # 
b 3 7 “ 3331 * TEST BIT 4 OFF : te 
: ee ‘, 21F2 O880F70C400F1000 21FA 3332 | DC XLO*OSS0FTOC4C0F100018B° 
; oo: . Sey 21FfA 16 3332 
Oe wah ve : 6 3333 * 
Bae : 3334 ¢ TEST BIT 5 OFF 
; ' 21FB 0880FB1D40121000 2203 3335 oc XL9* 0880FB810401210001B° 
: . = . a. 2203 1B 3335 
; | 3 8 | i: 3336 * 
‘ ae . | 3337 * TEST BIT 6 OFF or 
: . tad . . . ue 2204 O880FD0E40151000 220C 3338 oc XL9* O8BB0FD0E4015100018° 
i és . ae es - ku 220 18 3338 a" : 
ey - 1 3339 * ; ; 
} ins a 3340 * TEST BIT 7 OFF 
5 A 220D OB80FEOF40181000 2215 3341 oc XL9* OBSOFEOF4018100018° 
: - 2215 18 . 3342 
Dope : 3342 # , . 7 
: a 2216 1880FF : 2218 3343 oc XL3°1QSO0FF® tBE OO0.FF 
Bh 2219 184018 2218 3344 oc XL3°1840168* TSOF 0.00088: SHOULD NOT BR 
: -. . 221C GOOOLA 221E 3345 oc xi.3°o00002LA® B . COLA - OKe HANG 
eae 221F 100018 2221 3346 oc XL3°1G001B® 28 o018 ERROR HANG 
2222 FF 2222 3347 pC XL1°FFS 
gs 3348 * 
2223 CO 87 2837 3349 8 i) 
: 2227 S89CFF _ (2229 ect pc XL 3° S89CFF®* «REST OF MODE BUFFERS = 00 
| bees 351 
py : Xe 3352 eee START TEST 1 ote 
res = ; — 3353 * 
s 4 coat 2224 CO 87 240A 3354 - ae | BGNTST 
ae 3355 © 
222€ CO 87 1092 3356 - 8 ALSSET SETUP ALS FOR TIME SLICING 
bo a 2232 3C O01 2866 3357 MVI INDEX.%*01° INITIAL INDEX = 03 “ 
} Sie 3358 @ : a 
* : 7 1 
we aos DATE 21AUG7S OSNOV7S - - PROG 1D ' Cl4-1 < DATE 21AUG7TS OSNOV?S Pras 10 Cl4-1! 
‘ 5 €C NO. 027785 827827 PAGE 33° €C WO. 627785 827827 PAGE 33a | 
S ‘4 & 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247605 PART NC. 247605 
PAGE 34 | PAGE 34@A 
C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 i 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT th 
2236 CO 87 29CF 3359 8 10PG0 RUN 10P 22C7 CO 8? 29CF 3420 8 10°60 RUN TOP 
3360 * 3421 * ; 
223A CO 87 1DDA 3361 B ALSGET GET ALS 22C8 CO 87 2801 3422 B SALSO GET LAST MIAR 
3362 * 22CF 00 22CF 3423 oc ALLO(MIARO) 
223€ C2 O1 2€12 3363 LA ALSDINeXR1 POINT TO ALSD READ 3424 % 
2242 7D 1A 00 3364 TBONOS CLI O€eXR1)eX*2A* MIARS AS EXPECTED ? 2200 3D 1A 2862 3425 CLI I1OPIN,X*1LAt TBON OK ? 
2245 F2 01 15 3365 JNE TBON1O BR IF NO 2204 CO 81 242C 3426 BE NORMN BR IF YES 
3366 * 3427 & . : 
2248 O2 01 04 3367 LA 4UeXR1DPXR1 ELSE BUMP POINTER 22D8 CO 87 246A 3428 8 ERRPRT 
2248 34 01 1732 3368 st BRMIAR,XR1 SAVE 22DC 10 22D0C 3429 oc XL1*10® ERS IR 42F1 
224F OD O1 1732 2848 3369 CLE = BRMIAR(2) p ALS INX DONE ? 2200 CO 87 0216 3430 B LINK 
2255 CO OL 2242 3370 BNE TBONOS BR IF NO 
3371 * 
2259 CO B87 242C 3372 8 NORMN <2 i 
ir ssay 3373 * 
2250 CO 87 246A 3374 TBONLO 8B ERRPRT aes 
2261 60 2261 3375 : oc xL1*°00* ERROR 42F0 1&3 % 
arr 3376 * ; i “4 
3377 * NOW TEST *TSON* “A q 
3378 ¢ Ge J 
2262 CO 87 2871 3379 8 LCSI LOAD DATA INTO CONTROL STORAGE . a 
2266 0000 2267 3380 oc XL2*0000* we 
3381 * TEST BIT O ON ts : 
2268 088080 ‘226A 3382 oc XL3*O88080* LBI 00,80 TURN ON BIT O . 
226B 004003 226D 3383 pc XL3°004003* TBON 0,00,03 BR IF BIT O ON Ss 
226E 100008 2270 3384 Dc XL3*100008* ELSE BR TO ERROR LOC f 
3385 * TEST BIT 1 ON 
2271 0880401140061000 2279 3386 oC XL9*086040114006100018° se i 
2279 18 3386 2s, 
3387 ¢ 
3388 © TEST BIT 2 ON bo 
227A 08802012400¢1000 2282 3389 oc XL9*088020124009100018° io See) ee ete 
2282 18 3389 | i 
3390 * ides | 
3391 © TEST BIT 3 ( ANY BIT ) ON | Oo 
2283 08801003400C1000 2288 3392 oc XL9*08601003400C 100018" Bs 
2288 18 3392 ee. 4 
3393 © 
3394 * TEST BIT & ON ‘ 
228C 0880081%4600F 1000 229% 3395 PC _——« XL9*:08800814400F100018° Me 
2294 18 3395 ; | &> ‘o : 
3396 * | 
3397 © TEST B1T 5S ON ; abe : 
2295 0880040540121000 229D 3398 oc XL9* 088004054012100018° | €: : 
2290 18 3398 | 
3399 * ‘ 
- | 3400 ¢ TEST BIT 6 ON | &: i 
229E 0880021640151000 2246 3401 oc XL9*088002164015100018° 7 4 
22A6 lb 3401 as ad 
3402 * | &> — 
t 3403 ¢ TEST BIT 7 ON | , 
' 2247 0880011740181000 22AF 3404 oc XL9* 088001174018100018* " 
22AF 1B 3404 | a : 
: . 3405 * | 434 
2280 188000 2282 3406 oc XL3*188000* LBI 00,00 o_—- | 
- 22B3 004018 2285 3407 DC XL3*°00401LB* TBON 0,00,18 SHOULD NOT BR | i? 4 
2286 O0001A 2286 3408 oc XL3*O0001A" 8B 001A CK» HANG | ; 
2289 100018 2268 3409 DC xXL3°100018* 8B 001B ERROR HANG ty pbs { 
= 2@BC FF 228C 3410 DC = XL FF* j i € 
‘ 3411 * | 
3412 *#® START TEST 2 #44 fe ; 
3413 * es 
2280 CO B67 24CA 3414 8 BGNTST | 
3415 * wa 
-. 2201 CO B87 276D 3416 e LALSO | 
“. 22C5 00 22C5 3417 oc AL1(MIARO? | | 
22C6 00 22€6 3418 oc xXxL1°00! ae i 
: | 3419 © Lee 
| e a 2 
i DATE 2LAUG75 OSNOVTS PROG ID Cl4-1' © DATE 21AUGT7S. OSNOV7S PROG. ID C14-1) 
EC NO. 827785 827827 PAGE 34 | EC NO. 827785 827627 PAGE 34A 
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IBM MAINTENANCE OILAGNOSTIC PROGRAM PART NO 4247605 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NGQ- 4247605 
: PAGE : 35 : PAGE 35a 
Ci4l 3340 ATTACHMENT TESTS (PART 12 MODEL 12 C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
3432 RaaREEESREREESERESESERESSEERSERERTESERESESEE DSSS ESSELTE ESSERE SESESES ESS : 3448 debeAdEEADERSEAEDEREREDESRESERSNSOESESRESRESESESSESOEEES SESS SES SES SLOTS 
3433 * * 3449 * - 
3434 % ENDRIN ~— LAST ROUTINE - RESTORES MICROCODE IF 3340 IPL + 3450 * "BEGIN . COMMON ROUTINE INITIALIZATION * 
3435 * . * . 3451 * . 
3436 ERESRRASHAERERESERSTEEEERESS ESE SEES SLES TAEESERSS ESSER EERE SESS SSSE SEES ‘ 3452 * COME HERE AT THE START OF EVERY ROUTINE TC SETUP THE s 
3437 3453 * MICROPROCESSOR. 2 
22E1 30 22E1 3438 ENDRIN oc xL1*30° ROUTINE NUMBER 3454 * * 
22E2 00 22E2 3439 oc Xi1*008 i 3455  :AeeeReEREAAEEEERREAEESOESSSESESSESEERELEEEESEES SSS SSES SELES SSF SESE SS 
22E3 FFFF 22E4 3440 FFFF oc XL2°FFEF ¢ LAST ROUTINE 3456 * ENTER HERE FROM *10P* TESTS 
3441 * / 22F3 34 08 2409 3457 BGNIOP ST BEGINX#3¢ARR SAVE RETURN ADDRESS 
22E5 OD 00 0232 OAd0 3442 CLC UTAB(1} ,PID~-1 RELGAD 3340 MICROCODE 3458 * 
22EB CO 81 6CO2 3443 BE LOR+2 IF 3340 1S IPL DEVICE 22F7 38 10 2B52 3459 TBN IND si PSW BRANCH IF NOT 
3444 * 228 F2 90 OA 3460 JF BGNIO SECTION RESTART 
22EF CO 87 0216 3445 B LINK TERMINATE SECTION 3461 * 
3446 22FE CO 87 O21A 3462 8 PRINT PRINT MESSAGE 
2302 46 2302 3463 oc XL1°46* *SECTION RE-STARTED® 
2303 12 2303 3464 oc AL1(MSGO6N-MSG0641) 
2304 2635 2305 3465 oc AL2(MSGO6N) 
2306 €100 2307 3466 oc AL2¢HLTOO) 
3467 * 
2308 38 901 OAI9 3468 BGNIO TBN COM, AMOPSW BRANCH IF AMOP WAS 
230C CO 10 2588 346S pT AMOPLK ABNORMALLY TERMINATED 
3470 * 
2310 OD 00 0232 OADO 3471 cic UTAB(1) ,PID-1 BRANCH IF 3340 
2316 CO 81 2530 3472 BE MPL IS ret DEVICE 
3473 * 
231A OC FF 2CF8 2CF9 3474 MYC CLR-1(256),CLR : CLEAR ALL RESERVED STG AREAS 
2220 OC FF 2C51 2C52 3475 MVC INO+ 2551256) e IND*256 
2S, 3476 * 
2326 F2 87 O05 3477 J BEGIN} 
ae 3478 
pnt Nie oe 3479 * ENTER HERE FROM *ATTACHMENT® TESTS 
2329 34 08 2409 3480 BEGIN ST BEGINY 43, ARR SAVE RETURN ADDRESS 
: 3481 ¢ 
2320 38 10 2852 3482 TBN IND,LPSW GRANCH IF NOT 
2331 F2 90 OA 3483 JF BEGING SECTION RESTART 
ba ge 3486 * 
a 2334 CO 87 O21A 3485 8 PRINT PRINT MESSAGE 
2338 46 2338 3486 oc XL1i*46* ‘SECTION RE-STARTED® 
2339 12 2339 3487 oc AL 1 (MSGO6GN-MSG06+41 } 
233A 2835 2338 3488 oc AL2 (MSGO6N) 
233¢C €100 2330 3489 oc AL2(HLTOO) 
a 3490 * 
. 233E 38 O12 OALS 3491 BEGINO TON COM, AMOPSW BRANCH IF AMOP WAS 
; 2342 CO 10 2588 3492 BT AMNOPLK ABNORMALLY TERMINATEO 
oe 3493 * 
| 2346 OD 00 0232 OAOO 3494 ctc uUTAB(1),PID-1 BRANCH IF 3340 
: 234C CO 81 2530 3495 BE MPL IS rPL DEVICE 
3496 * 
2350 OC FF 2CF8 2CF9 3497 avC CLA-1(1256) eCLR CLEAR ALL RESERVED STG AREAS 
2356 OC FF 2C51 2C52 3498 vc 1ND+*255(256) , IND+256 
' 3499 * 
io 235C. 3C 80 2B7F 3500 Myvi FIRCEXTeX*S80* PMICROPROGRAM RESET 
2360 3C OD 2869 3501 MVX EXTAR,FTR RESET EXTERNAL REGS 
2364 CO 87 25F8 3502 8 LEXT 
2368 3C 00 287F 35C3 Avi FIREXT 20 DROP *RESET® BIT 
236C CO 87 25F8 3504 8 LEXT 
2370 3C OF 2869 3505 MvE EXTAR,sSCN 
2374 CO 87 25F8 3506 8 LEXT 
2378 3C 03 2B69 3507 MMVI EXTAR,DST RESET EXTERNAL REGS 
237C CO 87 25F8 _ 3508 8 LEXT 
2380 3C 13 2869 3509 MVI EXTAR eDKC 
2384 CO 87 25F8 3510 8 LEXT 
2388 3C 05 2869 3511 MMVI EXTAR,FTG RESET EXTERNAL REGS 
238C CO 87 25F8 3512 8B LEXT 
i 2390 3C 80 2879 3513 vi FHECEXT, X*80* TURN GFF * SYSTEM RESET* 
2394 3C O7 2869 3514 MVI EXTAR, FRE . : 
2398 CO 87 25F8 3515 B LEXT 
i 
OATE 21AUGT5 OSNOVT7S ; PROG 10 C141 ‘ DATE 21AUGT75 OSNOVT7S paaGc 1t0- Ci4-15 
EC NG. 627785 827827 PAGE 35  €C NO. 827785 827827 PAGE™ 35a 
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; c : 
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C141 
ERR LOC 
239C 


23A0 
23A4 
23A5 
23A6 
23AT7 
2348 
2349 
23AA 
23AB 
23aC 
23AD 


23AE 


2362 
2386 
238A 
23BE 
23C2 


23C6 
23CA 
23CeE 


2302 
2306 


230A 
_ 23DE 


23&2 
23E6 
238 
Z3E6 
z3E€E 
23F1 
23F4 
23FT7 
23FA 
23F0 


23FE 
2402 


2406 


DATE 
EC NO. 


: - + cease enter ts va 
: me ORT maim Seer en SMe 
| & oe & é » © ne 5 


OBJECT CODE 


co 87 2999 


CO 87 2837 
80 
84 
BA 
BC 
90 
94 
98 
9E 
9E 
FF 


co 87 2720 


3C 14 2BFB8 
3C F4& 2BFD 
3C 54 2BFF 
3c 54 2COL 
CO 87 2756 


3C 00 2660 
3C 20 2863 
Co 87 2602 


3C 40 2863 
CO 87 262C 


Co 87 2933 
OsOcooFrrF 


CO 87 2871 
ocoo 
034100 
040000 
040000 
040000 
040000 
040000 
040000 

FF 


3C OA 2CF6 
Co 87 0212 


co 87 0000 


21AUG75 
827785 


3340 ATTACHMENT TESTS (PART 


ADDR STMT 


2344 
23A5 
23A6 
23A7 
2348 
23a9 
23AA 
238 
23ac 
23A0 


3516 
3517 * 
3518 
3519 
3520 
3521 
3522 
3523 
3524 
3525 
3526 
3527 
3528 


- 3529 * 


23E1 


23€7 
23EA 
23£D 
23F0 
23F3 
23F6 
23F9 
23FC 
23F0 


OSNOVTS 
827627 


3530 * 
3531 
3532 * 
3533 
3534 
3535 
3536 
3537 
3538 * 
3539 
3540 
3541 
3542 * 
3543 
3544 
3545 * 
3546 
3547 
3548 * 
3549 
3550 
3651 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3559 * 
3560 BEGIN] 
3561 * 
3562 
3563 * 
3564 BEGINX 
3565 * 


1) MODEL 12 


SOURCE STATEMENT 


RESET 10P CLOCK AND INITIALIZE INDEX» 


PART NO. 
PAGE 


SET ALL MODE BUFFER POSITIONS 


PROG O TO ‘00° 

proc 1 TO *00° 

PROG 2 TO *10° (FILE PROG) 

SET REST OF THE MODE 
BUFFER TO ZEROS. 


PROG 7 TO 10° (CHAN PROG) 
PROG 7 TO *10° (CHAN PROG) 


INITIALIZE ALS (8) TO ALL OS 


MAIN ROUTINE INDEX 
CHNL PROGRAM INDEX 
FILE PROGRAM INDEXES 


INITIALIZE ZONE 
LOCAL. STORAGE (ZLS) 


INITIALIZE DATA 
LOCAL. STORAGE (OLS) 


RUN 10P ONE CYCLE 


INITIALIZE CONTROL STORAGE 


8 CLKRST 

B L“B! 

DC —_—» XLL*BO* PTR 000 

oC —- XL1° 848 001 

oc =O ss XL BAS 010 

pc 8Os«éxkL BC ® O11 

pc 3—sKL2° 908 100 

DC Os XL1°.948 101 

pC OsC«LAL* 968° 110 

DC —_—«aKL*9E* 111 

pCO s«XLA®9E* LLL 

DC XLL°FE* TERMINATOR 

INITIALIZE ALS (BLOCK) 

8 LALS68L 

INITIALIZE ALS (DISPLACEMENT) 

MMVI ALSD#09,X'14* 

MVE ALSD€11,X*F4! 

MVI- ALSD€139X"°54" 

MVI- ALSD415,X'54* 

8 LALSDI 

MVE ZLSAR4O 

MVI «LENGTH» 32 

8 LZLS 

MVI LENGTH. 64 

8 LOLS 

8 LXOPI 

OC = XL4&*O8CO0OFF* 

8 Lcsl 

oc xk 2.00008 

PC  —«- RL3*03A100° 

pC  § *L3*040000° 

pc 0=—_—«&L3.°040000° 

o¢  _xL3*040000° 

oC = KL3*040000° 

DC.  XL3*040000° 

OC  Xx-L3*040000* 

pC =o XLS FES 

MVI.—- LPCNT» X*0A® 
TEST 

8 t—% 


CONTROL STORAGE ADDRESS 
M 


INITIALIZE LOOP COUNTER 
CHECK FOR USER INTERVENTION 


Pace 1D 
PAGE 


een 


rn’ 
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Ci42 
ERR LOC. OBJECT CODE 


£ 


rN, 


m™ (3 


ae 


rey 
. t 


c™ 


oN 


i. 


ne) 


240A 


240E 
2412 


2415 


2419 
2410 


2421 


. 2424 


2428 


DATE | 
EC NO. 827785 


34 


F3 
30 
co 


F3 


co 


os 


80 
c4& 


00 
81 
C4 
o1 
87 


2426 


2852 
TE 


2854 


2853 
2588 


80 
2863 


0000 


21 AUGTS 


3340 ATTACHMENT TESTS (PART 


ADDR STMT 


3567 
3568 
3569 
3570 
3571 
3572 
3573 
3574 
3575 
3576 
3577 
3578 
3579 
3580 
3581 
3582 
3583 
3584 
3585 
3586 
3587 
3588 
358° 
3590 





PART NO. 4247605 
PaGE 36A 


2) MODEL 12 


SOURCE STATEMENT 
sensnacesseseseesesceecssseseesesessseeecesesessseessesee ses esse ee ee eee 
= : 
*  ‘*BGNTST® BEGIN TEST LOOP . : 
s 
* COME HERE AT THE START OF EVERY TEST TO SETUP °TEST = ® 
* LOOP* ADDRESS * 
* s 
ceecesesscesecsessseeeeeceesesessessecsseeseseeeseseseseeseeesee eee sees 
BGNTST ST  LOOPX+3,ARR SAVE RETURN ADDRESS 
s 

SBN . IND» TSTSH SET TEST STARTED INDICATOR 

SIO X* TE" oX*C4* RESET/DISABLE 3340 INTERRUPTS 
* : 

SNS  SWS.0 * AMOP * SENSE DATA SWS 

CLI LINKID,X*6l* * LINK © AND GO TO AROP 1F 

BE  § AMOPLK * "81" © SWS 1 & 2 CONTAIN ‘81° 
s 
* ENTER HERE IF *LOOPING® A TEST 
Loop SIO X*80% eX*Ca* ENABLE 3340 INTERRUPTS 

MVE LENGTHs2 INITIALEZE *LENGTH® DEFAULT 

2 
Loopx 8 ++ RETURA TO START OF TEST 
* 


“pROG 1D 


C14-%' 
PAGE ‘ 36a 


: eee : San Fiapche 


feb ala A yc li again Satna taal (pets reeset = 





ee 


Lee ahi elite aie me a 


‘ Spar 


{ 


Covveveveeeceoeeeeeeeeee 


ccna 
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1BM MAINTENANCE OIAGNOSTIC PROGRAR PART NOo 4247605 I8H MAINTENANCE DIAGNOSTIC PROGRAK PART NO. 4247605 
PAGE 37 | C PAGE 37A 
Ci4l 3340 ATTACHMENT TESTS (PART 1) MODEL 12 | Ci4i 3340 ATTACHMENT TESTS (PART 1) MODEL 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT C err toc OBVECT CGDE ADOR STMT SOURCE STATEMENT 
3592 SREREER ET SEREREEEESRERSSERESTERES ES RESEEERESESSRSRESSSSSHAELESHVSSST SSS 3627 RESEERERERESES$EEEREEEREESESSESEOEEEETEESTESDSS OEECESHSS O9SESEEOESOSESE 
3508 ;: *NORKN® NORMAL END OF TEST : gece : *ERRPRT® BUILD AND PRINT ERROR MESSAGE ; 
3595 % * 3630 * * 
3596 * COME HERE AT END OF A TEST TO LOOP TEST OR CONTINUE < QO 3631 @ HALT *SL° IF ALL 10 TRIES FAILED(SET “ERRSW® 1° 2 
3597 * ROUTINE. EITHER THIS SUBROUTINE OR *ERRPRT® MUST BE 6 3632 ® FIRST TRY FAILS) 2 
3598 * CALLED TO EFFECT TEST EXIT. e 3633 2% HALT °52° IF ANY PREVIOUS TRY(S; SUCCESFUL * 
3599 © s, 3634 % HALT *53¢ IF FERST TRY = ERROR CUT ALL RETRIES * 
3600 SRERSEREEEERESRSEEERESERET ES ESESERSSESESESRESSHESSSESSSES FSS SREGTESSESES 3635 * SUCCESFUL * 
3601 - 3636 *® * 
242C 34 08 2469 ees oe ST NORMX439 ARR SAVE RETURN ADDRESS QO a, SESESRESESETHEESEEETESESESST SEES FEES EESEESSETERESESSESETES SS SESE SESSSELSS 
2430 38 80 2852 3604 NORMO1L TBN INC, TSTSW RETURN IF NO i 246A 34 08 2498 3639 ERRPRT sT ERRPO1L, ARR SAVE PARAMETER STRING ADOR 
2434 F2 90 2F 3605 JF NORMX TEST IS 1.3 PROGRESS 7 246 34 01 2408 3640 ST ERRPX143—eXR2 SAVE INDEX REGISTER 2 
3606 * 3641 # 
2437 38 10 2B52 3607 TBN IND, LPSH Loop Test IF ds 2472 38 10 2852 3642 ERRPOG TEN IND,LPSW tooe TEst IF 
243B CO 10 2421 3608 gt tcoPp LGGP INDICATOR IS ON C. 2476 CO 10 2421 3643 eT Looe LOOP INOICATOR IS ON 
3609 ® 3644 & 
243F 34 40 2852 3610 SBN IND,NORMSH SET NORMAL END INOICATOR 247A OC 1C 2AB5 2AB6 3645 MVC} 3=—s SGC MSGN-MSG) p NSGNE1 CLEAR ERROR MSG AREA 
2443 3C 53 250A 3611 MVI HLETID»HLT5S3 SETUP HALT CGDE 53 ee 3646 @ 
3612 # 24280 CO 87 O2I1E 3647 8 UNPACK MOVE LAST 
2447 OF 00 2CFS 2836 3613 SLC LPCNT(L}212 LOOP TEST UNTIL LOOP a 2486 O1 2484 3648 OC IL2*L° DIGIT OF 
2440 CO 01 2421 3614 BNZ coop CGUNT IS EXHAUSTED at 2485 OAGl 2486 3649 OC AL2(PIO) PROGRAM 10 
3615 * 24387 2A99 2488 3650 oc AL 2(MSG41) TG ERROR MSG 
2451 38 20 2852 3616 TBN IND ,ERRSW GO TO PRINT ERROR MESSAGE ‘ 3651 # 
2455 F2 10 Ad aes ‘ JT ERRP IF ANY ERROR WAS DETECTED C 2489 CO 87 O2ZI1E 3652 8 UNPACK MOVE 
2480 O01 2480 3653 oc IL3*i* ROUTINE 
2458 38 FF 2852 3619 SBF IND,X*FE* RESET ALL PROGRAM INDICATORS es 248E OA03 248F 3656 Oc ALZCURTN) NUMBER TO 
245C 3€ OA 2CF6 3620 MVI LPCNT,X*OA® SETUP LOGP COUNT FOR NEXT TEST €: 2490 2A94 2491 3655 oc AL2(MS642? ERROR MESSAGE 
3621 * 3656 *€ 
2460 F3 C4 O2 3622 sid X*O2*-XK*C4t RESET *ENABLE IENTERRUPTS* " 2492 CO 87 OZIE 3657 8 UNPACK CONVERT 
2463 F3 C4 7C 3623 SIG X*7C*# oX*C4? RESET PENDING INTERRUPTS ‘ C3 2496 OL 2496 3658 oc ILifLe ERRGR NUMBER 
a 3624 & tial HO TEST ROUTINE 2497 2498 3659 ERRPOL oS AL2 AND PARAMETER 
2466 CO 87 0000 3625 NORMX 8 *-?* RETUR y) 2499 2858 249A 3660 oc AL2(WORK2} COUNT TO EBCDIC 
© 3661 & 
249B OC 00 2498 2857 3662 MVC MSG4+3(2),WORK2-1 MOVE ERR CODE TG ERR MSG 
3663 * 
©) 24A1 C2 OL 2A9E 3664 LA MSG¢6eXR1 SETUP POINTER TO VARIABLE 
24A5 34 O01 24C6 3665 st ERRPO4S oXR1 DATA AREA IN ERROR MESSAGE 
3666 © 
© 24A9 35 01 2498 3667 L ERRFOL,XRI SET POINTER TO PARAMETER LIST 
3668 * 
24AD 07 00 2858 2830 3669 ERRPO2Z $z WORK2(1) D161) OECREMENT VAR DATA BYTE CNT 
ty 24B3 F2 82 18 3670 J4 ERRPOS BRANCH IF END OF VAR DATA 
3671 ® 
2486 02 O01 02 3672 LA 20 2XR1L)eXR1 ADVANCE PARAMETER POINTER 
| © 24B9 1C O01 24C4 00 3673 MvC ERRPO3 (2) ,00.XR1) GET VARIABLE DATA ADDRESS 
3674 & 
| 248E CO 87 O21E 3675 8 UNPACK MOVE ONE BYTE 
© 24C2 O01 24C2 3676 oc TLieLrs OF VARIABLE DATA 
: 24C3 24C4& 3677 ERRPOS os AL2 TO ERROR MESSAGE 
p 24C5 24C6 3678 ERRPOS OSs AL2 
: 8s 3679 # 
i 24C7 OF O01 24C6 2B3A 3680 ALC ERRPO4(2)-13 ADVANCE ERROR MSG POINTER 
24CD CO 87 24AD 3681 8 ERRPO?] GO TO GET NEXT ERR MSG BYTE 
3682 
2401 D2 O01 O1 3683 ERRPOS LA LC eXRLDeXRI SETUP RETURN 
i 2404 34 01 24E3 3684 St ERRPX*#3,XR1 ADDRESS 
i) 3685 * 
24D8 C2 01 0000 3686 ERRPX1L LA e-#,XR1 RESTORE INDEX REG 1 
| 2 3687 * 
© 240C 38 80 2852 3688 TON IND. TSTSW RETURN IF NO 
24EO CO 90 0000 3689 ERRPX BF os TEST IS IW PROGRESS 
3690 ®@ 
oO 24E4 3C 52 250A 3691 MMVI HLTIO,HLT52 SETUP HALT CODE 52 
j 3692 * 
| ; 24E8 38 40 2852 3693 TBN IND .NORMSW BRANCH IF SOME TRY HAD . 
| CS 24EC F2 10 12 3694 JT ERRP BEEN SUCCESFUL 
DATE 21AUGT5 OSNOVTS PROG ID ci4-1; Cioate 21AUGTS OSNOVT7S . “pros 10 ~=—- C1 4=1 
L t } 
EC NOw 827785 827827 PAGE 37 EC NOw 827785 827827 


PAGE 37A 


© 6 © 


- 








! wi 
IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. s247605) IBM MAINTENANCE DEAGNOSTIC PROGRAM PART NO. 4247405 
PAGE 38 | © PAGE 3BA 
{ 
C141 =.3340 ATTACHMENT TESTS (PART 1) MODEL 12 | C141 =. 33340 ATTACHMENT TESTS (PART 1) MODEL 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT | © err LOC OBJECT Cope ADOR STMT SOURCE STATEMENT 
, 3695 * | 3737 SSSESESSS SSeS SeSesESeeeReseeesesereseeReeeeoeseseeceeeseeeEeaRsensecas 
24EF 3A 20 2852 3696 SBN IND, ERRSW SET "ERROR DETECTED® INDICATOR © 3738 * ~ eee : See cuaeiah * 
3697 * 3739 ® LINKAGE TO ATTACHMENT MICROCODE LOADER (SE N Cl * 
24F3 OF 00 2CF6 2836 3698 SLC LPCNTCLE SEL LOOP TEST UNTIL LooP | 3740 @ * 
24F9 CO OL 2421 3699 BNZ Loar COUNT ES EXHAUSTED © a SUSESESSESSS SES SESS STERSITETSRSETS OE SE REEEREEEARESESER EES SEESAREREOREEES 
3700 * 4 
24FD 3C 521 250A 3701 HVE HLTIOSHETSI SETUP HALY CODE $1 oa aRies : ee ide = ue azet be MPL =} apt e eeee: ae AChce Ree 
3702 2 FAILED #35 é 
2502 CO 87 O21A 3703 ERRP 8 PRINT PRINT ! 2545 34 02 2583 3745 S¥ MPLX243 eXR2 SAVE INDEX REG 2 
2505 Cl 2505 3704 oc XLLICLe ERROR 3746 @ 
2506 O01 2506 3705 oc ALLELE MESSAGE | C 2549 OD CL CALC 2573 374&F CLC LORIO(23,C87 BRANCH EF LOADER (C17} 
2507 2AB6 2508 3706 BC AL2(MSGNeL 5 HEAC ING 254F CO O41 2556 2748 BNE LDRLO HAS NOT YET BEEN LOADED 
2509 C100 250A 3707 HLTID pc XL2°ci00® LINE Soa 3749 @ 
3708 * OQ 2553 OD OL 6COR 2573 3750 CLE =LDOROLIZ CLT BRANCH EF LOADER 1S 
2508 CO 87 O21A 3709 5 PRINT PRINT | 2559 CO 82 2574 3752 BE Lorca STILL IN MAIN STORAGE 
250F 81 250F 3710 DC XLif Sie VARIABLE DATA Ege 3752 8 
2510 1C 2510 3711 oc ALLEMSGOLN=MSGO14L} HEADING LIME 'S 2550 CO Bf O214 3753 LORLD 8 PRINT ae prapreee ae eue 
2511 2AD2 2512 3712 DC ALZ(MSGOLN?} ; 2561 46 2561 3754 oc XLE&46e *LOADING SECTION e 
3713 * Te 2562 13 2562 3755 oC AL} CMSGOSN-MSGOS¢2} 
2513 CO 87 O21A 3714 8 PRINT PRINT - 2563 2823 2564 3756 oc AL2(HRSGOSND 
2517 86 2517 3715 oc ML1° Bet ere 2565 C100 2566 3757 oc AL2CHLTOO) 
2518 1E 2518 3716 oc ALLUMSGN-MSGe1} DATA LINE 3758 * 
2519 2aB5 251A 3717 oc AL2{MSGHS | ©: 2567 OC 18 OA3$ OA18 3759 MVC) 8=—s- SVPFC(25},.COM-1 SAVE SECTION PREFACE 
37le « ; 3760 * 
2518 OC 01 2530 250A 3719 MVC = ERRHLT(2),HLTIO SETUP ERROR HALT CODE oO 2560 CO 87 G22A8 3761 . Sees LOAD SECTION CiT 
3720 * i fl 2571 04 2571 3762 XLL°O4! 
2521 F3 C4 02 3721 SIG =X*O2*»x*Cae RESET ENABLE INTERRUPTS? 2572 OCL? 2573 3763 Ci? oc KE2°OC17¢ 
2524 F3 C& IC 3722 SIO =-X#7C* sk" Cee RESET PENDING INTERRUPTS CO Bane aoa = tee Rui eavexneve ea.cocerpeeia 
3723 * » Rf 257% 3A 10 OALS ® 
2527 3A 10 2852 3724 SBN  IND,LPSW LOOP FAILING TEST 2578 CO 87 6CG2 gue 8 LOR+2 LOAD SECTION FAO 
3725 * Lg 67 2 
Aes eee 2528 CO 87 0222 3726 8 HALT ERROR HALT o 257C C2 01 0000 3768 MPLXL LA &—% XR] RESTORE Orel tet gn ee 
252F Z530 3727 ERRHLT 0S XL2 | 2580 C2 02 0000 3769 MPLX2 LA Bo XRZ INDEX REGS 
3728 © 3770 * 
2531 CO 87 O21A 3729 B PRINT PRINT | © 2584 CO 87 0000 3771 MPLX 8 e-* RETURN TO CALLING ROUTINE 
2535 06 2535 3730 DC XL O68 "LOOPING | 3772 ® 
2536 1A 2536 3731 oc AL1( MSGO2N-MSG0241} FAILING | 
2537 2AEC 2538 3732 oc AL2(MSGO2N) Teste | © 
3733 * 
2539 CO 87 2421 3734 8 Loop LOOP UNTIL OPERATOR INTERVENES 
3735 8 1 © 
t 
| 
'O 
| 
le 
| 
: © 
'e 
© 
| 
i 
L DATE 21AUGTS OSNOVT7S PROG ID Ci4<1 & JDATE 21AUG75 OSNOVT75 PROG 10 Cie-15 
EC NO. 827785 827827 PAGE 28 | EC NO. 827785 827827 PAGE 38A 
‘ @ 
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ERR LOC OBJECT CODE 


2588 34 08 
258C 


2590 


38 
F2 


01 
99 


OL 
02 


2593 
2597 


34 
34 
2598 OC 18 
25A1 
25A7 


oo 
F2 


O1 
01 


258A 
2580 


oD 
F2 


O01 
61 


2583 
2589 


00 
81 


oD 
co 


2580 
25C1i 
25C2 
25€3 
25C5 


25C7 
25C8 
25CC 


co 
46 
13 
2AFF 
€1c0 


CO 87 


87 


0ci9 


25CE 
25D2 
2503 
2504 
2506 


CO 87 
46 
11. 
2810 
C100 
25D8 CO 87 
2506 
250 
25E4 


C2 02 
C2 01 
CO 87 


DATE 21AUG7 
€C NO. 827785 


25€7 


0200 
St 


25E3 
250F 


0A39 


OALE 
09 


4001 
25 


0232 
250C 


021A 


022A 


OA18 
25cD 


25CD 


GA00 


021A | 


4002 
6000 


0660 
0000 


5 


OSKOV7 
827627 


ADDR 


25C1 
25C2 
25C4 
25C6& 


25C8 
25C€0 


2502 
2503 
2505 
25D7 
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STMT 


3774 
3775 
3776 
3777 
3778 
3779 
3780 
3781 
3782 
3783 
3784 
3785 
3786 
3787 
3788 
3789 
3790 
3791 
3792 
3793 
3794 
3795 
3796 
3797 
3798 
3799 
3800 


3801 


3802 
3803 
3804 
3805 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
3813 
3814 
3815 


3816. 


3817 
3818 
3819 
3820 





PART NO. 
PAGE 
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19 MODEL 12 
SOURCE STATEMENT 


39 


EEEERSEEEEESEEEEDEEEEEESERERSESSESEREEAESEEREELSEESESSSEEAESESESSERESEEER 


- 3BM MAINTENANCE OIAGNOSTIC PROGRAM | 


Ciéi 


ERR LOC OBJECT CODE 


25€8 
25EC 
25F0 
25F4 


25F8 
25FC 


2600 


2604 
2608 


260C 


2610 
2614 
2616 
2618 
261A 
261C 
261E 
2620 
2622 


2624 
2628 


262C 
2630 


2634 


2638 
263C 


2640 


2644 
2648 
264A 
264C 
-264E 
2650 
2652 
2654 
2656 
2658 
265A 
265C 


265€ 


< DATE 


z 
+ *AROPLK* GET HERE TO LOAD AND EXECUTE AMOP (C19) IF REQUIRED *: 
* es 
SEREBESRELEEELSEKEKSSEESLAESEEAA EEE SEA ER EEED EKERRKERESESERSEREEKRRECSEEBERERNTE | 
AMOPLK ST AMOPX43,ARR SAVE RETURN POINTER 
* 
TBN Sd YTE5,SSW2F RETURN TO CALLING ROUTINE IF 
Jt AMOPX SSW *2&* NOT ON 
* 
st AMOPS143,XR1 SAVE INDEX REG 1 
ST AMOPS243,XR2 SAVE INDEX REG 2 
* 
MVC = SVPFC(25)2COM-1 SAVE SECTION PREFACE 
= : 
CLC = AMOPID(2),C19 GO TO LOAD SECTION C19 
JNE. AMOPLO IF NOT ALREADY IN CORE 
x . 
CLC AMOP4+1(2).€19 GO TO EXECUTE C19 
JE AMOPGO IF ALREADY IN CORE 
* 
AMOPLD CLC  UTAB(1),P1D-1 RETURN TO CALLING ROUTINE 
BE AMOPS2 IF 3340 IS IPL DEVICE 
* * 
B .~—s PRINT FRINT - 
pC XL1"46¢ *LOADING SECTION C19° 
oC AL1(MSGO3N-MSG0341) 
oC AL2(MSGO3N) 
OC AL2(HLTOO) 
* 
B LOAD LOAD SECTION C19 
DC XL1°04* 
c19 DC XL2*0C19° 
* 
B PRINT PRINT - 
OC XL1i"46¢ *SECTION C19 READY® 
oc AL1(MSG04N-MSG60441} 
pc AL2(MSGO4N) 
oc AL2CHLTOO) 
» 
AMOPGO iB AMOP4+2 EXECUTE AMOP 
. 4 
AMOPS2 LA ¥—*yXRZ RELOAD XR2 
AMOPS] LA *—% oXR1 RELOAD XR1 
AMOPX B +t RETURN 
= 
PROG 10 C141 
' PAGE: 39 


iG 


ie par pe che on mie ee 


oF 


ec NO. 


34 


co 
co 


34 
34 


co 


c2 
36 


34 


co 


08 


O77. 


87 
87 


08 
ol 


87 


01 
01 


o1 
87 


aoc2 
2cF2 
oocs 


028F 
028D 
OOE2 
2cF2 


c2 
co 


34 
34 


co 


c2 
36 


34 
co 


O11 
87 


08 
01 


87 


61 
01 


01 
87 


AOC2 
2CF2 
OOCA 
286F 
oocsB 


oosc 
028F 
018D 
OOE2 
2cr2 


25F7 
2B69 
25F8 
00006 


2628 
2627 


28F5 


2872 
2869 


2618 


2A0B 


0000 
0000 


2670 
2679 


29F7 


2c72 
286F 


2653 
2a08 


30 01 2863 
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2615 
2617 
2619 
2610 
2610 
261F 
2621 
2623 


2649 
2648 
2640 
264F 
2651 
2653 
2655 
2657 
2659 
2658 
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3822 
3823 
3824 
3825 
3826 
3827 
3828 
3829 
3830 
3832 
3832 
3833 
3834 
3835 
3836 
3837 
3838 
3839 
3840 
3841 
3842 
3843 
3844 
3845 
3846 
3847 
3848 
3849 
3850 
3851 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
3859 
3860 
3861 
3862 
3863 
3864 
3865 
3866 
3867 
3868 
3869 
3870 
3871 
3872 
3873 
3874 
3875 
3876 
3877 
3878 
3879 
3880 
3881 
3882 
3883 
3884 
3885 
3886 
3887 
3888 
3889 
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PART NO. 4247605 
. PAGE 39A 
1} MODEL 12 
SOURCE STATEMENT 
EKKELKESESSERE CHVRATSSEAKSERTS HHESSAESHESERSHSREKTACSET LETS NAST SVSEVHASES HS 
: SVP INTERFACE CONTROL SUBROUTINES : 
cencaeessensaseoencentenessaseeesesseenenesatesscenseness saeseeesenses 














SAVE RETURN ADDRESS 

SETUP EXTERNAL REG ADORESS 
LOAD EXTERNAL REGISTER 
RETURN TO CALLING ROUTINE 





SAVE RETURN ADRESS 
SAVE INDEX REGISTER 1 


LOAD EXTERNAL ADDRESS REGS 


LOCATE VALUE TO BE 
LOADED INTO EXTERNAL REG 


MOVE DATA ADOR TG SVP STRING 


EXECUTE SVP CONTROL STRING 
SET K2 -— SERVICE MODE 


_ EXT REG DATA --> OP REG Y 


OP REG Y --> A REG -—~> DREG 
O REG -——-> EXTERNAL REG 
RESET SERVICE MODE 


RESTORE TNDEX REGISTER 1 
RETURN TO CALLING ROUTINE 


SAVE RETURN ADDRESS 
SAVE INDEX REGISTER 1 


HALT MICROPROCESSOR 


LOCATE VALUE TO BE 
LOADED INTO OLS 


MOVE DATA ADDR TO SVP STRING 


EXECUTE SvP CONTROL STRING 

SET K2 — SERVICE MODE AND KO 
Ck STOP OfRIDE 

OLS ADBR --> OP REG CR 


OLS OATA --> OP REG Y 


R2-RT --> DLSAR 

GP REG Y —-> A REG -—-> OREG 
O REG --> OLS 

RESET SERVICE MODE 


* LOAD FHF REGISTER 
Ps 
LFHE ST LFHFX43~ ARR 
+ 
MVI so EXTAR FHF 
= 
8 LEXT 
& 
LFHEX 8 t—# 
* 
Ree ce ee cee ate ee ee tee 00 ee A Se a A AS A AN EP I OS I SS ON A SS aI RS ND RY 
* LOAD ANY EXTERNAL REGISTER 
= 
LEXT st LEXTX#3,ARR 
ST LEXTX143,XR1 
* 
B LEXTAR 
* > 
LA EXT.XR1 
A EXTARsXR1 
F 
St LEXTO1,XR1 
* 
8 SvP 
oc XL2*a0C2* 
oC AL2( KREG} 
oc 7L2*00CB* 
LEXTOl OS AL2 
oC XL2°O28F ° 
oc XL2°0286D° 
pc XL2* 00E2* 
oc AL2(KREG) 
* 
LEXTX1 LA *+—#* .XR1 
LEXTX 8 te 
= & 
& a a ote 
s LOAD DATA LOCAL STORAGE 
s 
LOLS st LOL SX+3- ARR 
St LOLSX143,XR1 
. 
B ntop 
4 ; . 
i0L$01 LA DLS,»XR1 
A DLSAReXRL 
+ 
st LOLSO2.XR1 
+ 
8 SvP 
pc 8=FsédXLL2*sgc2* 
oc AL2( KREG) 
oC XL2°00CA® 
oc AL2(DLSAR) 
oc XL2*00CB* 
LDLSO2 DS AL2 
CC xi 2*008C * 
oc ¥L.2°028F° 
oc xi 2°0180°* 
oc XL 2*O00E2* 
DC AL2(KREG) 
* 
CLE LENGTHe1 


EXIT IF ALL NECESSARY 
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PROG 1D 
PAGE 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C141 
ERR LOC 
2662 


2666 
266C 
2672 


2676 
267A 


267E 
2682 


2686 


268A 
268E 
2692 


2696 
269A 
269C 
269E 
26A0 
2642 
26A4 
2606 
2648 
268A 
26AC 
26AE 
2680 


2682 
2686 


26BA 
26C0 
26C6 


26CA 
26CE 


2602 
2606 


260A 
26DE 
26£2 


26€6 
26EA 
26F0 


265 
26F9 


26F0 
2701 


2705 
2708 
271i 


"DATE 
£C NO. 


©0000 00 0 0 006 000600080888 ee 


OBJECT CODE 


co 


OF 
OE 
co 


c2 
co 


34 
34 


C2 
36 
34 


co 


04 
00 
00 
87 


o1 
87 


08 
ol 


87 
01 
01 
01 


87 


A8C2 
2CF2 
OOCA 
2B6F 
008C 
oasF 
038F 
0085 
004D 
0000 
00E2 
2CF2 


co 


OF 
OE 
co 


C2 
co 


34 
34 


C2 
36 
3A 


3c 
oc 
ic 


co 
co 


30 
co 


OF 
o& 
o2 


21 AUGTS 
827785 


01 
04 


00 
60 
87 


01 
87 


08 
Ol 


01 
01 
80 


03 
00 
00 


87 
87 


ol 
04 


00 
00 
61 


2676 


2863 
286F 
2638 


2836 
2836 


0000 
0000 


2601 
26C0 


29F7 
2C62 
286F 
26AD 


2A08 


2863 
26CA 


2863 
286F 
268A 


2836 
2836 


ooo00 
0000 


e7le 
2718 


2C32 
2660 
2B6D 


2cF3 
2CF4 2860 
2cF5 co 


2965 
2989 


2863 
2718 


2863 2836 
2860 2836 
01 


ACOR 


2698 
2699 
269F 
26a1 
26A3 
26A5 
26A7 
26a9 
26A8 
26A0 
26AF 
2681 


OSNOV75 
827827 
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STMT 


3890 
3891 
3892 


3893 


3894 
3895 
3896 
3897 
3898 
3899 
3900 
3901 
3902 
3903 
3904 
3905 
3906 
3907 
3908 
3909 
3910 
3911 
3912 
3913 
3914 
3915 
3916 
3917 
3918 
3919 
3920 
3921 
3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 
3930 
3932 
3932 
3933 
3934 
3935 
3936 
3937 
3938 
3939 
3940 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
3948 
3949 
3950 
3951 


3952 


3953 
3954 
3955 
3956 


3957 


1) MODEL 12 


SOURCE STATEMENT 


BNH 

e 
Sic 
ALc 
8 

s 

LDLSX2 LA 

LDLSX 8 

s 

Cee enne 

s 

& 

SOLS ST 
ST 

2 
8 

* 

SDLSO1 tA 
A 
st 

2 
8 
oc 
oc 
oc 
oc 
oC 
oc 
oC 
oc 
oc 

SCLSO2 oc 
oc 
oc 

* 
cul 
BNH 

* 
sic 
acc 
8 

¢ 

SOLSX1 ta 

SDL SX 8 

s 

Dremrener ee an en. 

* 

* 

tZLs st 
ST 

s 
LA 
A 
SBN 

¢ 

tzZ.S01 “VI 
MVC 
wvc 

* 

8 
: 8 

2 
cul 
6NH 

s 
ste 
ALC 
La 








LOLSX1 
LENGTH(1).IT1 
DLSARC1LD2T: 
LOLSO1 


e-8,XR1 
e-¢ 


cat 





SOL SX43,ARR 
SOLSX1¢3eXR1 


HIOP 


DLSINeXR1 
DLSAR, XRi 
SOLSO2 »XRi 


sve 
XL2°asC2° 
AL2( KREG) 
XL2*00CA® 
AL2(DLSARI 
XL2*008C* 
XL2*086F* 
XL2*O38F* 
XL2*0085* 
KL2*004D* 
AL2(#-«) 
XL2*O0E2* 
AL2¢KREG) 


LENGTH. 1 
SOLSX1 


LENGTH(1),11 
DOLSAR(L)D IL 
S$0LSO1 


#—-#_XR1 
et 





LZLSX43, ARR 
LZLELSX14¢3-XR1 


ZLSeXR1 
ZLSARsXR1 
ZLSAR,X*80* 


C.X*03° 
CReZLSARCL) 
VeO0C1eXR1LI 


top 
xoPp 


LENGTHes1 
tZLSx1 


LENGTH(1),I1 
ZLSAR(1L),12 


AC eAR1D OXRI 








> Ae Ee aD 


SENSE DATA LOCAL STORAGE 





LOCATIONS HAVE BEEN LOADED 


DECREMNENT DATA LENGTH BYTE 
INCREMENT ADORESS POINTER 
GO TO LOAD NEXT LOCATION 


PART NO. 
PAGE 


RESTORE INDEX REGISTER 1 


RETURN TO CALLING ROUTINE 





SAVE RETURN ADDRESS 
SAVE INDEX REGISTER 1 


HALT MICROPROCESSOR 


LOCATE ADDRESS TO BE 
LOADED FROM DLS 


MOVE DATA ADDR TO SVP STRING 
EXECUTE SVP CONTROL STRING 


SET K2 ~— SERVICE MODE, K 


STP GOfRIDE & K& - STOP TOP 


OLS ADDR --> OP REG CR 


R2 - RT => OLSAR 


DLS -> A-REG 


A-REG ~> D-REG 
O-REG -> X-REG 


READ xX-REG 


INTO DLS AREA 
RESET SERVICE MODE 


EXIT Tf ALL NECESSARY 


LOCATIONS HAVE BEEN LOADED 


DECREMENT DATA LENGTH BYTE 
INCREMENT ADDRESS POINTER 


GO TO LOAD NEXT LOCATION 


RESTORE INDEX REGISTER 2 


RETURN TO CALLING ROUTINE 


nena ich SA a Co a 


LOAD ZONE LOCAL STORAGE 


4247605 ' 
40 





—f 


| 
| 
| 
F 
fe 
I 
| 
I 
| 
| 
| 
i 
. 
i 


RD IY CER Oath A A MRP te cee A ED 


SAVE RETURN ADDRESS 
SAVE INDEX REGISTER 1 


LOCATE VALUE 


TG 8E 


LOADED INTO ZiS 


SETUP INSTR. 


BUILD 


SZI_ CSTORE ZLS IMMEDIATE) 


REQUIREMENT 


INSTRUCTION 


LGAD OP REG 


EXECUTE MICROINSTRUCTION 


EXIT IF ALL NECESSARY 


LOCATIONS HAVE BEEN LOADED 


DECREMENT OATA LENGTH SYTE 
INCREMENT ADDRESS POINTER 


BUMP DATA POINTER 


PROG ID 
PAGE 


C14-1 


%. 


fm, gh 


2 


a 
re 


IBM MAINTENANCE DIAGNOSTIC PROGRAN 


‘1a 


‘ERR LOC OBJECT CODE 


2714 


2718 
271¢ 


2720 
2724 


2728 
272c 
2730 
2734 


273T 
2738 


273F 
2743 
2747 
274C 
2750 
2753 


2756 
275A 


275E 
2762 
2766 
276A 


2760 
2771 


2775 
2779 
2770 
2782 
2786 


2789 


2780 
2793 


2798 
279C 
27a0 


2T7A4 
27A8 


27AC 
27AF 


2783 


re 
* DATE 


ec NO. 


co 


c2 
co 


yeas $F 


34 
34 


3A 
35 
1c 
3A 
02 


3c 
oc 
ac 


3A 
co 
co 


39 
co 


rd 
34 


30 


87 


01 
87 


08 
01 


04 
ol 
oo 


01 
8T 


08 
01 


20 
ao 
o1 
87 


08 
ol 


o2 
ol 
oo 
Ao 
ol 


02 
oo 
oo 


80 
87 
87 


06 
10 


01 
ol 


01 


26E6 


0000 
0000 


27F1 


lL 27&0 


2863 
2868 
2882 
52 


27F 1 
27ED 


2852 
27F1l 
2868 
2868 
01 


2TFl 
27ED 


2863 
2868 
28F2 
ic 


27F1 
27ED 


2852 
27F1 
2868 
2868 
01 


2CF3 
2CF4 
2CF5 


2CF2 
2965 
2989 


2852 
2783 


ol 
27F1 


2863 


21AUG75 
827785 


3340 ATTACHMENT TESTS (PART 


1) MODEL 12 














PART NO. 
PAGE 


4247605 
40A 





ADDR STMT SOURCE STATEMENT 
3958 8 tzLSol GO TO LOAD NEXT LOCATION 
3959 
3960 LZLSX1 LA - BoB XR] RESTORE INDEX REGISTER 1 
3961 LZLSX B tt RETURN TO CALLING ROUTINE 
3962 * 
3963 TR ne cre ae cea cae ED EPONA RD ID GENE SE SER AS OOD ERD CER Re as ee SD mo cn ts a lee ine eit aa 7 AES CM-MRY P stiate iki> Bi steele gC SAEs oye 
3964 ¢ LOAD ADDRESS LOCAL STORE (ALS8) 
3965 * 
3966 * ENTER HERE TO SETUP ALL 32 .LSB LOCATIONS 
3967 LALSB1 ‘ST SLALSXO32ARR SAVE RETURN ADDRESS 
3968 , ST LALSX1L¢3,XR1 SAVE INDEX REGISTER 1 
3969 * 
3970 MVI L. LENGTHe 32 SET MAX LENGTH 
3971 MMVI ALSAR »X*80* INIT ALS LOCATION 00 
3972 LA AESB, XRi SET POINTER TO ALSB DATA 
3973 J LALSO? GO TO LOAD ALS 
3974 & 
3975 * ENTER HERE TO SETUP SOME NUMBER OF ALSB LOCATIONS (*LENGTH*) 
3976 ¢ MUST BE INITIALIZED PRIOR TO ENTRY, DEFAULT IS ONE LOC. 
3977 ¢ 
3978 LALSB ST LALSX#3,ARR SAVE RETURN ADDRESS 
3979 st LALSX143,XR1 SAVE INDEX REG 1 
3980 * 
3981 SBN IND, SWA ‘SET *BLOCK® SWITCH 
3982 t LALSX43-XR1 POINT TO PARMS 
oo 3963 LALSB2 MYC ALSAR,011,XR1) MOVE ALS ADDRESS 
3984 SBN ALSAR,X*.60' SETUP SABI INSTRUCTION 
3985 LA 1¢2XR13 -XR1 POINT TO ALS DATA 
3986 J LALSO1 CONT INUE 
3987 ¢ : 
3988 *@-—---- - eee 
3989 © LOAD ADDRESS LOCAL STORE (ALSD) 
3990 * 
3991 * ENTER HERE TO SETUP ALL 32 ALSO LOCATIONS 
3992 LALSDL ST LAL SX43 ARR SAVE RETURN ADORESS 
3993 ST LALSX143,XR1 SAVE INDEX REGISTER 1 
3994 ¢& 
3995 MVI LENGTH,32 SET MAX LENGTH 
3996 MVE «=©ALSAR,X*AO* INITIALIZE ALS LOCATION 00 - 
3997 tA ALSO,XR1 SET POINTER TO ALSD DATA 
3998 J LAL SO1 CONTINUE 
3999 © . 
“000 * ENTER HERE TO SETUP SOME NUMBER OF ALSD LOCATIONS 
4001 * . 
£002 LALSD ST LALSX4#3,ARR SAVE RETURN ADDRESS 
4003 ST LALSX143,XR1 SAVE INDEX REG 1 
4004 2 
£005 SBN IND, SwB SET *DrIse* SwITCH 
4006 t CAL SxX¢3,XR1 POINT TO PARMS 
00 4007 LALSD2 wvC ALSAR.0(1¢XR1} MOVE ALS ADDRESS 
£008 SBN ALSAR,X*AG* SETUP SADI INSTRUCTION 
4009 LA 1(0.XR1).XR1 POINT TO ALS DATA 
4010 * 
#011 LALSOL MVI CeoX*02¢ COMPLETE THE 
2868 4012 avec CReALSAR(1) SABI / SABI 
00 4013 vc ¥,.011,XR1) INSTRUCTION 
£014 + 
4015 SBN KREG,X*80* *INHIBIT CK STOP* DURING LOAD 
4016 8 Lop &tGOAD THE OP REG AND 
4017 B xoPp EXECUTE THE MICRO-INSTRUCTION 
4016 *# 
4019 TRF IND, SWAeSWB _ ARE WE IN "ALL*® LOCATION MODE? 
4020 oT £aLso2 GR IF YES 
4021 * ‘ - 
4022 LA 10 -X%R1),XR1 ELSE ADVANCE PARM POINTER 
4023 ST  tLALSX#3eXR2 TO RETURN ADDRESS 
£024 * 
4025 LALSO2 cu! LENGTHe1 EXIT If ALL NECESSARY 
OSNOVTS PROG ID Ci4-1) 
827827 PAGE 40A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C141 
ERR LOC 
2787 


2768 
27C1 
27cT 
27Ca 
27CE 


2702 
2706 
270A 


2T0E 
27E2 
2TE6 
27EA 
27EE 


27F2 
2TF6 


2TFA 
27FE 


2801 
2805 


2809 


2800 
2811 
2816 
2819 


| 2810 
2821 
2825 
2827 
2829 
2828 
282D 


282F 
2833 


2837 
2838 


283F 


2843 
2847 
284C 


2850 
2854 


2858 
2858 
285E 


2862 
2865 


DATE 
EC NO. 


3340 ATTACHMENT TESTS (PART 


OBJECT CODE 


co 


OF 
OE 
02 
39 
co 


38 
co 
co 


38 
3c 
38 
C2 
co 


34 
34 


3c 
F2 


34 
34 


35 


02 
34 


co 
co 


04 


00 
oo 
Ol 
06 
10 


04 
10 
87 


80 
ol 
06 
01 
87 


08 
oi 


OE 
87 


08 


we 
OA 


02 
00 
ol 
ol 


87 
87 


B8C2 
2CF2 
OOOE 
O0E2 
2CF2 


C2 
co 


34 
34 


35 


3c 
ic 
3C 


co 
co 


b2 
7D 
co 


D2 
34 


01 
87 


08 
01 


01 


06 
00 
80 


87 
8&7 


ol 
FF 
01 


01 
ol 


270E 


2863 
2B6B 
ol 

2852 
2789 


2852 
2747 
277D 


2CF2 
2863 
2852 
0000 
0000 


2836 
2832 


2836 
2836 


282A - 


oc 


2836 
2822 


282A 


2836 
2CF4 


2836 


2965 
2A08 


0000 
oo0o 


2870 
286C 


2870 


2CF3 
2CF4 
2CF5 


2965 
2989 


01 
00 
2843 


01 
2870 


2LAUG75 


827785 


oo 


00 


aooRr 


2826 
2828 
282A 
282C 
282€ 


OSNOV75 
827827 


STMT 


4026 
4027 
4028 
4029 
4030 
#031 
4032 
4033 
4034 
4035 
4036 
£037 
4038 
4039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 
4655 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 
4083 
4084 
#085 
4086 
“087 
4068 
4089 
4090 
4091 
4092 
4093 


1) MODEL 12 


SOURCE STATEMENT 


BNH 


SiC 
ALC 
La 
T8F 
BY 


TEN 
BT 
5 
+ 
LAL SX2 SBF 
MVI 
SBF 
LALSX1 LA 
LALSX B 
* 


Shinn ee we on en on ae em eae remem em ee teen oon wae a ae ee eee eee nea ae ae ae a wm re ee wren, 


* 


* : 
SALSB ST 


ST 
* 
NVI 
d 
* 
SALSO ST 
$T 
* 
MVI 
* 
SALSOI i 
~ MVC 
LA 
st 


8 

8 

oc 

oc 
RDAL SB oc 

oc 

oc 
* 


SALSX1 LA 
SALSX 8 


Greene me ee 


* 


* 

CMBI ST 
St 

= 


L 
y 
LMBIO1 MVvI 
MVC 
MVvI 


LA 
cul 
BNE 


LA 
ST 





LAL SX2 


LENGTH(21),.11 
ALSAR(13,11 
1 eXRLI,XR1 
IND, SWAtSwB 
LALSO1 


IND,»SWA 
LALSB2 
LALSD2 


KREG »X*80" 
LENGTH,1 
IND. SWA+SWB 
*-*,.XR1 

2 


PART NO. 4247605, 


PAGE 41 aa 


LOCATIONS HAVE BEEN LOADED 


DECREMENT DATA BYTE COUNT 

ADVANCE ALS ADDRESS i 

ADVANCE DATA PGINTER ae 

ARE WE IN *ALL* LOCATION MODE | 
BR IF YES ' 


ELSE ARE WE IN 
BR IF YES 
ELSE RETURN TO "*DISP* MODE 


*BLOCK* MODE? 


RESET S INHIBIT CK STOP® 
RESTGRE COUNT = ONE 

RESET *BLOCK/DISP* MODE SwS 
RESTGRE INDEX REGISTER 1 
RETURN TO CALLING ROUTINE 





SS ES GL a a ST pe Me ne Se Sees 


SENSE ALSB OR ALSD INTO LOCATION *IQPING. 


SALSX43, ARR 
SALSX143_XR1 


RDALSB»X*OE® 
SALSO1 


SALSX43_ ARR 
SALSX143,XR1 


RDALSB.X*OA* 


SALSX43,XR1 
CReO€1sXR1LI 
1¢0XR1),XR1 
SALSX4#3,XR} 


Lop 

SvP 

XL2°88E2* 
AL2 UKREG) 
XL2*QOQOE* 
XL2*O00E2* 
AL2 (KREG) 


#-—+,XR1 
*—* 


LOAD MODE BUFFER (IMMEDIATE = 00) 


LMBIX+3,ARR 
LMB1IX143¢XRi 


LMBIX+43,XR1 


CeX*06* 
CReO(1eXR1) 
¥sX*80° 


Loe 
xop 


LO eKRL} e XR 
OUsXRID XP FFE 
LMBIOL 


1(XR1)eXR1 
LMBIX43,XR2 


LOL LE LT AS CT A AE DE I I a SS ean a 


SAVE RETURN 
SAVE INDEX REG 1 


SETUP "SENSE ALSB6* 


SETUP "SENSE ALSD* a 

SETUP PARM POINTER 

MOVE ALS ADORS INTO STRING + 

BUMP RETURN ADDRESS LL 
AND PUT INTO RETURN 


GO SETUP "CR* REG 
GO SENSE ALSB OR ALSD 
KO, K2y K3 CALS OISPLAY) 


‘OEt = ALSB, 
RESTGRE K REG 


*OA* = ALSO 


RESTGRE INDEX REG 1 ” 
RETURN Ne 





ead 





SAVE RETURN ADDRESS 
SAVE INDEX REGISTER 1 


POINT TQ PARAMETER LIST 


BUILD i, 
SHODE 
INSTRUCTION 


LOAD THE OP REG AND 
EXECUTE THE MICROINSTRUCTION or 


ADVANCE PARAMETER POINTER 
LcoP IF NOT YET END oF 
PARAMETER STRING 


BUMP TO RETURN ADDRESS 
AND SETUP BRANCH INST 1 & 
| 


pe 


PROG ID 14-2: % 
PAGE 41 


C141 
ERR LOC 


2869 
2860 


2871 
2875 


2879 
2870 
2882 


2885 
288A 


288E 
2891 
2894 


2898 
289E 


28A2 
28a5 


28A9 
28AD 


2881 


2885 
2889 


238B0 
28ci 
28C3 
28C¢5 
28C7 
2809 
28C8 


28C0 


28D 
2805 


28D9 
2800 
260F 
2861 
28E3 
28E5 
28ET7 
28€9 
28EB 
28€D 
28EF 


DATE 
EC NO. 


OBJECT CODE 


c2 01 
CoO 87 


34 08 
34 01 


35 01 
iC O01 
G2 O1 


we 02 
co 87 


O2 G1 
7D FF 
co 81 


CE 00 
co 87 


D2 O01 


c2 01 
CoO 87 


34 08 


CoO 87 
Co 87 


CO 87 
Aoc2 
2CF2 
AESE 
CE8E 
O0E2 
2cr2 


CO 87 


34 08 
CO 87 


co 87 
aoc2 
2CF2 
OOCA 
2870 
oocs 
2671 
0286F 
o8sD 
GoE2 
2CF2 


0000 
ooco 


2880 
2BAC 


2880 
2871 
02 
2CF5 
2881 
03 
00 
28A2 


2871 
2885 


ol 
2880 


GGv0 
00co 


2800 


2801 
2965 


2ACB 


0000 


28F4 
2SF7 
2a0B 


2TAUGT5 
827785 
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3340 ATTACHMENT TESTS (PART 


ADOR STMT 


O11 


02 


2836 


OSNGV7 
827827 


28C2 
28C4 
28C6 
28C8 
28CA 
28Cc 


28DE 
28E0 
28E2 
28E4 
28E6 
28E8 
28EA 
28EC 
28EE 
28F0 


5 


4094 
4095 
4096 
4097 
4098 
4099 
4100 
4101 
4102 
4103 
4104 
4105 
4106 
4107 
4108 
4109 
4110 
4111 
4112 
4113 
4114 
4115 
4116 
4117 
4118 
6119 
4120 
4121 
4122 
4123 
4124 
4125 
4126 
4127 
4128 
4129 
4130 
4131 
4132 
4133 
4134 
4135 
4136 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 
4145 
4146 
4147 
4148 
4149 
4150 
4151 
4152 
4153 
4154 
4155 
4156 
4157 
4158 
4159 
4160 
4161 


1) MODEL 12 


©@ & 6 @ @ ©} @ & @ © @ 
; an neers : oe a eee : : : 
a ee Ss yng 
4, 
> 


SOURCE STATEMENT 








PART NOW 
PAGE 


4247605 
G1A 

















* 
LMBIX) LA #-% 9 XRE RESTORE INOEX REGISTER 1 
LMBIX 8 +-* RETURN TO CALLING ROUTINE 
* 
a ae ee a a ae ee we er we ee eee een, —: —— 
* LOAD CONTROL STORAGE (IMMEDIATE) 
* 
“CSt st LCSIX4+3,ARR SAVE RETUAN ADDRESS 
ST LCSIX143,XR1 SAVE INDEX REGISTER 1 
* 
t LCSIX4+3,XR) POINT TO PARAMETER STRING 
mv¥C CSAR(Z2)910,XR1) SETUP CONTROL STG AOORESS 
LA 209XR1)9XR1 ADVANCE POINTER 
* 
LCSIO1 MYC GPREG(3}e2(eXR1) MOVE MICROWORO TO GP RES AREA 
* 
5 ics LO.D WORD INTO CONTROL STG 
* 
LA 30.XR1),XR1 ADVANCE POINTER 
cul Of »XR1),X*FFS EXIT IF END 
BE LCSio2 GF PARAMETER STRING 
* 
ALC CSAR(1),12 ADVANCE CONTROL STG ADDRESS 
8 LCSI01 GO TG LOAD NEXT WGRD 
* 
LCSTO2 LA LO,XR1) eXR1 SETUP RETURN 
ST LCSIX#3,XR1 ADDRESS 
* : 
LCSIXt LA #-*,XR? RESTORE INDEX REGISTER 1 
LCSIX B +-* RETURN TG CALLING ROUTINE 
= 
mn mn a ei ae an ee ee ee re ee ee ere eee an eee a eeneewenenenes 
* LOAD CGNTRGL STORAGE 
* 
ics ST LCSX4+3,ARR SAVE RETURN ADDRESS 
* 
8 LCSAR LOAD CONTROL STG ADDR REG 
B Lop LOAD MICROWORD INTO OP REG 
s 
8 SvPp EXECUTE SVP CONTROL STRING 
oc XL2*AGC2° SET K2 (SERVICE MODE) AND 
oc AL2{KREG) KO (CK STOP GVERRIDE) 
DC XL2*AESE* WRITE CONTROL STGRAGE LEFT 
oc XL2°*CEBE* WRITE CONTROL STORAGE RIGHT 
oC XL2*Q0E2¢ RESET K2 
oc AL2(KREG) 
* 
ucsx 8 +-* RETURN TO CALLING ROUTINE 
a 
De er tr re ee we. a ere: nee 
* LGAD CONTRGL STORE ADDRESS REGISTER (CSAR) 
= 
LCSAR st LCSARX4+3,ARR SAVE RETURN ADDRESS 
& 
8 HIOP STGP IOP EXECUTION 
* 
8 svP EXECUTE SVP CONTRCL STRING 
oC XL2*A0C2* SET K2 (SERVICE MODE) AND 
oc AL2 (UKREG) KO (CK STOP GVERRIDE) 
bc XL2*OOCA® CSAR 8B VALUE --> OP REG CR 
oc AL2(CSAR-1) 
oc XL2*OOCB* CSAR D VALUE --> OP REG Y 
oc AL2(CSAR} 
oc XL2°028F ¢ GP REG Y --> A REG --> D REG 
oC XL2*08aD* R2-R7 & D REG --> CSAR 
oC XL2*0GE2* RESET K2 
DC AL2(KREG) < 
= 


PROG ID 
PAGE 


C14-1; 
41a 


18M MAINTENANCE DIAGNOSTIC PROGRAM 


Ci41 = 3340 ATTACHMENT TESTS (PART 
ERR LOC OBJECT CODE ADDR STNT 
28F1 CO 87 0000 4162 
4163 
4164 
4165 
4166 
28F5 34 08 291A 4167 
4168 
2eF9 CO 87 29F7 4169 
4170 
28FD CO 87 2A0B 4171 
2901 A0C2 2902 4172 
2903 2CF2 2904 4173 
2905 0088 2906 4174 
2907 OOCA 2908 4175 
2909 2867 290A 4176 
2908 018C 290C 4177 
290D 20CA 290E 4178 
290F 2869 2910 4179 
2911 008C 2912 4180 
2913 O0E2 2914 4181 
2915 2CF2 2916 4182 
4183 
2917 CO 87 0000 4184 
4185 
4186 
4187 
4188 
291B 34 08 2932 4189 
4190 
291F CO 87 29F7 4191 
4192 
Sites, FS 2923 CO 87 2Aa08 4193 
2927 20C2 2928 4194 
2929 2CF2 292A 4195 
2928 0085 292C 4196 
292D 002D 292E 4197 
4198 
292F CO 87 0000 4199 
; 4200 
4201 
4202 
4203 
2933 34 08 2964 4204 
2937 34 01 2960 4205 
4206 
293B 35 01 2964 4207 
4208 
293F 1C 02 2€F5 02 4209 
4210 
2944 CO 87 2965 4211 
2948 CO 87 29C3 4212 
4213 
294C D2 01 03 4214 
4215 
294F 7D FF 00 4216 
2952 CO O1 293F 4217 
4218 
2956 D2 01 01 #219 
2959 34 01 2964 4220 
4221 
295D C2 01 0000 4222 
2961 CO 87 0006 4223 
4224 
4225 
4226 
4227 
2965 34 08 2988 4228 
4229 

‘ DATE 21AUG7TS OSNOV7S 

EC NO. 827785 827827 
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PART NOe- 4247605 
PAaGE 42 
1? MODEL 12 
SOURCE STATEMENT 
LCSARX 8 e+ RETURN TO CALLING ROUTINE 
= 
Qc cece ee res ee re ene ene ee ener en. ter ace 
* LOAD EXTERNAL ADDRESS REGISTERS 
s 
LEXTAR ST LXTARX4#3,ARR SAVE RETURN ADDRESS 
= 
8 HIOP HALT MICROPROCESSOR 
s 
B sve EXECUTE SVP CONTROL STRING 
oc XL2*a0C2¢ SET K2 (SERVICE MODE) aNd 
oc AL2(KREG) KO (CK STOP OVERRIDE? 
oc xL2°0088° X*00* —=-> OP REG C 
oc XL2*00CA® EXT ZONE VALUE ~-—> OP REG CR 
oC AL2(EXTZN) 
oc XL2°018C* R4-RT -—> EXT ZONE REG 
OC xXL2*20CA® EXT ADDR VALUE -—> OP REG CR 
oc AL2(EXTAR) 
oc XL2*008C® R3-RT ~=> EXT ADDR REG CEXTAR) 
DC XL2*00E2° RESET SERVICE MODE 
oc AL2(KREG) 
¢ 
LXTARX 8B st RETURN TO CALLING ROUTINE 
s 
Deneencemene Ae AES A SP EES A AS ES ES ES LE I I IS 
* SENSE D-REG 
2 
SDREG ST SDREGX43, ARR SAVE RETURN ADDRESS 
s 
B #10P 
s 
8 svP EXECUTE SVP CONTROL STRING 
DC XL2*20C2° SET K2 (SERVICE MODE) 
oc AL2(KREG) 
DC xL2*°0085° D=-REG -> X-REG 
oc XL2°002D* READ X—-REG 
2 
SDREGX 8 +-* RETURN TO CALLING RGUTINE 
= 
Rain ascii eens ithe ers anscas cow: ch iin ts ts sets ab campeaa 
* LOAD OP REG AND EXECUTE MICRO-INSTRUCTION (IMMEDIATE) 
& § 
LxoPI St LXOPIX43, ARR SAVE RETURN ADDRESS 
ST LxXOP1143,XR1 SAVE INDEX REGISTER 1 
* 
L LXOPIX¢3_XR1 POINT TO PARAMETER LIST 
Ed 
LXOPIA MVC OPREG(3),2¢,XR1) MOVE PARANSTER TO OP FIELD 
F 3 
8 Lop LOAD OP REG AND 
8 YOPRUN EXECUTE MICROINSTRUCTION 
Fy 
LA 30 eXR19_XR1 ADVANCE PARAMETER POINTER 
* 
CEI «OL gp XRL}P PX FFE BRANCH IF MORE MICRO- 
BNE  LXOPIA INSTRUCTIONS TO BE PROCESSED 
s 
La 1(eXR1) eXR1 SETUP ADDRESS FOR 
ST LXOPIX#3,XR1 RETURN TO CALLING ROUTINE 
+ 
&xXOPI1l LA *-* XR RESTORE INDEX REGISTER 1 
LxGPIX 8 + RETURN TO CALLING ROUTANE 
s 
Qe te ee at ae. a eres ec er et eee we ee eee a ——: ae eee ae ar amar gece 
* LOAD GP REGISTER 
& 
Lop ST LOPX4¢3,ARR SAVE RETURN ADDRESS 
x 


PROG ID Cié-1 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247605 
PAGE 4&2A 
C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
2969 CO 87 29F7 4230 8 IOP HALT MICROPROCESSOR 
4231 ¢ 
296D CO 87 2A0B 4232 8 sve EXECUTE SVP CONTROL STRING 
2971 A0C2 2972 4233 DC xXxL2*a0C2° SET K2 (SERVICE MODE) AND 
2973 2CF2 2974 4234 DC AL2( KREG) KO (CK STOP OVERRIDE? 
2975 00C8 2976 4235 oc xL2*00C8* C FIELD ~-> OP REG C 
2977 2CF3 2978 4236 oc AL2(C) 
2979 OOCA 297A 4237 DC XL2*OOCA' CR FIELD --> OP REG CR 
2976 2CF4 297C 4238 DC AL2(CR) 
297D O0CB 297E 4239 DC XL2*OOCB* Y FIELD --> OP REG Y 
297F 2CF5 2980 4240 oc AL2ty) 
2981 O00E2 2982 4241 DC XL2* 00E2¢ RESET SERVICE MODE 
2983 2CF2 2984 4242 oc AL2 (KREG) 
4243 © 
2985 CO 87 0000 4244 LOPX 8 e+ RETURN TO CALLING ROUTINE 
4245 © 
4246 Bem we we ore ere ee ee eee, Pe Se A EH SE ete SD LP BD SO AN ELE A OE AS I ET LES I LE TM SEED TE LNT LTO ATS OY AER SN EY AON 
4247 * EXECUTE MICRO-INSTRUCTION FROM OP REG 
4248 © 
2989 34 08 2998 4249 xoP ST XOPX¢3 2 ARR SAVE RETURN ADDRESS 
4250 © 
2980 CO 87 2A0B 4261 8 sve EXECUTE SVP CONTROL STRING 
2991 8882 2992 4252 DC XL2°8882¢ KO (CK STOP OVERRIDE? AND 
4253 * K6 (STOP AFTER ONE CYCLE? 
2993 OOAF 2994 4254 oc XL2*OOAF* START 10P "PROCESS* CYCLE 
4255 © 
2995 CO 87 0000 4256 xOPX 8 s-* RETURN TO CALLING ROUTINE 
4257 @ 
42 § 8 Goeewcwenn—. —. a a: 0 eto ae ae OO ED ee ene ee: ee ee eo 
4259 * RESET IOP CLOCK AND INITIALIZE INDEX REGISTER 
4260 * 
2999 34 08 29C2 4261 CLKRST ST CLKRSK*+3, ARR SAVE RETURN ADDRESS 
299D 3C 14 2866 4262 MVI INDEX,X*14* INITIAL INDEX ( PTR 000 } 
4263 * 
29A1 CO 87 29F7 4264 B HIOP HALT MICROPROCESSOR 
4265 * 
2985 CO 87 2008 266 8 sve EXECUTE SVP CONTROL STRING 
29a9 10C2 29AA 4267 oC XL2*10C2* SET K3 (CLOCK RESET} 
29AB 2CF2 29aC 4268 .,0C AL2(KREG) 
29AD 00C2 29KE 4269 ‘oC XL2°00C2°* RESET K3 
29AF 2CF2 2980 4270 oC AL2(KREG) | 
29B1 AOC2 2982 4271 oc XL2°a0c2° SET K2 (SERVICE MODE) AND 
2983 2CF2 2984 4272 DC AL2(KREG) KO (CK STUP GVERRIDE? 
2985 OOCB 2986 4273 oc XL2*00C8* INDEX VALUE --> OPREG Y 
29B7 2866 2988 4274 DC AL2CINDEX) 
2989 028F 29BA 4275 oc XL 2° 026F* OP REG Y —-> A REG --> D REG 
2988 8B8E 298C 4276 oC XL2*888E¢ D REG -=> INDEX REG 
2980 O8AE 29BE “277 oc XL2°O8AE* SERVICE ACCESS CYCLE 
4278 © 
29BF CO 87 0000 4279 CLKRSX 8 + RETURN TO CALLING ROUTINE 
4280 © 
4282 * START MICRO-PROGRAM EXECUTION 
4283 * 
4284 ¢ ENTER *IOPRUN® TO START IGP ( 1 PROCESS/ACCESS CYCLE ONLY ? 
4285 * ENTER *IGPGO' TO SETUP INDEX PRIOR TO *START/RUN® 
4286 * 
29C3 34 08 29F6 4287 IOPRUN ST I1OPGOX43, ARR SAVE RETURN ADDRESS 
2SC7 3A O& 2CF2 4288 SBN KREG»X*08' SET *HALT* CONTROL BIT 
29CB CO 87 29E9 4289 8 10PG02 GO "START 10P® 
4290 * 
29CF 34 08 29F6 4291 I10PGO ST 10PGOX43, ARR SAVE RETURN ADORESS 
4292 © 
2903 CO 87 2a08 4293 B svp EXECUTE SVP CONTROL STRING 
29D7 A0C2 29D8 4294 DC XL2*A0C2¢* SET K2 (SERVICE MODE} AND 
2909 2CF2 29DA 4295 DC AL2(KREG) KO (CK STOP OVERRIDE? 
29D8 OOCB 2900 4296 OC Xi2*O00CB* INDEX VALUE --> OPREG Y 
290D 2B66 29DE 4297 oc ALZ2C INDEX) 
DATE 21AUGT75 OSNOYTS PROG ID - C141" 
EC NO. 827785 827627 PAGE 2A 
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IBM MAINTENANCE OLAGNOSTIC PROGRAM PART NO 4247605 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 4247605 
4 PAGE 43 PAGE 43A 
4 C141 3340 ATTACHMENT TESTS (PART 1° MODEL 12 C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 
4 ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC GBJECT CODE ADOR STMT SOURCE STATEMENT 
7 290F 028F 29£9 4298 oc XL2*O28F * OP REG Y ~-> A REG --> OD REG - e325 Banna a 
a 29€1 8B8E 29E2 4299 oc XL2*8BeE* D0 REG --> INDEX REG L 4326 * COMMON SVP INTERFACE CONTROL SUBROUTINE 
29E3 O8AE 29€4 4300 oc XL2*O8AE* SERVICE ACCESS CYCLE 4327 * 
4301 # a 4328 * CONTROL (BITS 0-3 OF 2ND BYTE, EACH woRD) 
29£5 38 08 2CF2 4302 SBF KREG,X*08* RESET *HALT® CONTROL BIT te 4329 * BIT 0 ~ ON = SVP *CONTROL® COMMAND 
4303 * 4330 * CEE = SVP *SENSE* COMMANO 
. 29€9 CO 87 2A08 4304 10PGQ2~ =8 svP EXECUTE SVP CONTROL STRING i 4331 % BIT 1 - ON = ‘EXTENDED® OATA FIELO 
29—ED 00C2 29EE 4305 oc xL2*00C2* SET K-REG yk 4332 * BIT 2 — ON = ‘END® OF STRING 
29EF 2CF2 29FO 4306 oc AL2(KREG) 4333 # 
29F1 OOAE 29F2 4307 oc XL2* OOAE* START IOP PROCESS/ACCESS CYCLE: - 4334 Beem na rrr nn rrr 
4308 * cs 4335 
29F3 CO 87 0000 4309 1OPGOX 8 —* RETURN TO CALLING ROUTINE 2408 34 08 2A97 4336 SVP ST SVPX4#35ARR SAVE RETURN ADDRESS 
4310 * 2A0F 34 01 2A93 4337 st SVPX143eXR1L SAVE INDEX REGISTER 1 
: 431] ¢----------- wee ee a nn 4338 * 
4312 * HALT MICROPROCESSOR 2413 30 00 2854 4339 SNS  _SWS+0 * AMOP ® SENSE DATA SWS 
4313 ® 2A17 3D 82 2853 4340 CLI. LINKIDsX*82* * LINK * = AND GO TO amMoP 1F 
29F7 34 08 2A0A 4314 HIOP st HIOPX4+3eARR SAVE RETURN ADORESS 2A1B CO 81 2588 4341 BE AMOPLK * 'g82t © SwS 1 & 2 CONTAIN ‘82° 
4315 * 4342 * 
29FB 3A O8 2CF2 4316 SBN KREGsX*08! SET HALT BIT IN K REG VALUE 2A1LF 35 O1 2A97 4343 L SVPX43yXR1 POINT TO SVP STRING 
4317 * 4344 * 
29FF CO 87 2A08 4318 8 svP EXECUTE SVP CONTROL STRING 2A23 1C 00 2856 OL 4345 SVPO} MVC WORK1,1(19XR1) SAVE SVP ROUTINE CONTROL BITS 
2403 OOE2 2A04 4319 Dc XL2*O0E2* LOAD K REG 4346 * 
2405 2CF2 2A06 4320 oc AL2(KREG? 2A28 1C O1 2860 O01 4340 MVC  JOPOUT(2)e1¢eXR1L? SETUP SVP LINK 
4321 * 2A20 3B FO 2860 4348 SBF IOPOUTsxX*FO' CONTROL BYTES 
2a97 CO 87 0000 4322 HIOPX 8 4-% RETURN TL CALLING ROUTINE 4349 * 
4323 © 2431 D2 01 02 4350 LA 20 eXRLDeXR1 ADVANCE CONTROL STRING POINTER 
4351 * 
2A34 38 80 2856 4352 TBN WORK1.X*80° BRANCH IF 
2A38 F2 90 20 4353 JF SVPSNS SVP SENSE OPERATION 
4354 * 
; 2A3B 38 40 2856 4355 TBN WORK1L»X*40* BRANCH IF SVP DATA IS 
ee 2a3F F2 90 12 4356 JF SVPCTL CONTAINED IN CONTROL STRING 
“ \ 4357 * 
} 2042 1C O01 2A4C OL 4358 MVC = - BH 10020910 XR1) SETUP 
2047 OC 00 2A4E 0000 4359 MVC 0 47429 sve 
2A4D 3A 00 265F 4360 SBN I10QPOUT-1¢.4-* DATA 
me 4361 * 
my 2A51 02 01 02 4362 LA 2 eXR1) eXR1 ADVANCE CONTROL STRING POINTER 
4363 * 
2054 31 C5 2860 4364 SVPCTL LIO roPoUT,x*CS* DIAGNOSTIC LIO-1 (SVP CONTROL) 
—? 2A58 F2 87 10D 4365 J sveo2 
; 4366 * 
2A5B8 31 C7 2860 4367 SVPSNS LIG 10P0UT,X*CT* DIAGNOSTIC LIO-2 (SNS SETUP) 
- & 2A5& 30 C7 2862 4368 SNS  IQPEN»X*C7* DIAGNOSTIC SENSE 
| 4369 * : 
2463 38 40 2856 4370 TBN WORK1,X*40* BRANCH IF NO DATA MOVE REQUIRED 
io 2A67 F2 90 OF 4371 JE = SvPO2 
4372 * 
2A6A 1C O1 2aA72 01 4373 MVC} €408(2) 01 eXR1? MOVE SENSED DATA FROM 
2A6F OC 00 0000 2862 4374 MVC #=-€(19,IGPIN IOPIN TO ADDRESS IN CONTROL STRG 
4375 * 
2a75 D2 01 02 4376 LA  20eXR1)2XR1 ADVANCE CONTROL STRING POINTER 
ao ’ 4377 * 
2A78 38 20 2856 4378 SVP02 TBN WORK1LsX*20° BRANCH IF NOT 
2a7C CO 90 2A23 4379 BF SvPO1 YET END OF CONTROL STRING 
uO 4380 * 
| 2480 34 O1 2A97 +4381 ' §t S¥PX+3—XR1 SETUP RETURN ADORESS 
. t 4382 ® 
| 
2084 30 00 2854 4383 SNS SWSe0 @ AMOP ® SENSE DATA SwS 
24868 30 83 2853 4384 CLL LENKIOsgX*83* @ LINK @ AND GO TO AMOP 1F 
2a8C CO 81 2588 4385 BE AMOPLK # *93¢ ©& SWS 1 & 2 CONTAIN °63° 
. ; 4386 * 
. 2a90 C2 01 0000 4387 SvPX1 LA %—*,XR1 RESTORE INDEX REG 1 
be 2a94% CO 87 0000 4338 SVPX 8 +--+ ss RETURN TO TEST RTN GR SUBRTN 
Ro 4389 @ 
| Cc: ~~ 
DATE 21LAUG75 OSNOVTS PROG ID Ci4-1 | DATE 21AUG75 OSNOVT5S PROG 10D C14-1) 
EC NO. 827785 627827 PAGE 43 EC NO. 827785 827827 PAGE 43a 
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18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247605 TBM MAINTENANCE DIAGNOSTIC PROGRAM : ' PaRT NOW saree 
: PAGE 4h ; PAGE &4& 
C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 
ERR LOC OBJECT CODE : ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ; 
4391 SESESEFARESEEEEEESSEENESEEERE $EEE EES $EEEESEEEEEEEEEEEESERESO4640808608080 . 4426 SLs Ore ee yey ee ear ere merges Tver nee eee 
4392 * ’ es ¢ 442] 
4393 PRINT MESSAGES s 4422 & PROGRAM CONSTANTS : 
4394 * * 4423 
4395 SERETESESSCE ES SESEES EES EEEKES E445EE 24EEEEEEEESEERETEESEHOECESEESE44EREEESESD = GQ 24 SESEREEEESEESESSTESEESESESERTESES RECS EKVIEKSSERERERESHAKS ESE KESKKEKSESSSESSSSEEAREE i 
: 4396 4425 : 
°: 2498 4397 FSG EQU * VARIABLE MESSAGE AREA 2B36 Ol 2836 4426 11 oc W2.2'1* ‘ 
2A98 2AB5 4398 SEN Os Ct30 2837 GO02 2838 4427 I2 oc IL2*2¢ ‘ 
2AB6 40 2AB6 4399 oc CLie ¢ 2839 0003 283A 4428 13 oc i123? 
4400 + 2838 04 2838 4429 2 Pe pee 
2A87 4401 MSGO1 EQU * 283C 20 283C 4430 132 
2AB7 C5D9D94040E5F140 2AD2 4402 MSGOIN DC CL28*ERR Vi V2 V3 V4 V5 V6 V7 Vat 4431 * 
2ABF ESF240E5F340E5F4 4402 2830 Fl 283D 4432 D1 oc CLitye 
2ACT SOESF540E5F640E5 4402 2B3E F2 283E 4433 D2 oc CLit2¢ 
2ACF F740ES5F8 4402 4434 *% 
4403 * 283F 1234 2840 4435 yieee ee ee ncacs 
2AD3 4404 NSGO02 EQU * 2841 048C 2B42 4436 X048 0 
2AD3 4040405C5C5C40E3 2AEC 4405 MSGO2N oc Ci26* *#* TEST IS LOOPING #3 2843 22 2843 4437 X22 oc XL1¢* 22° 
be 2AD0B C5E2E340C9E240D3 4405 ' 2844 EF 2844 4438 XEF oc XLI°EF* 
a5 2AE3 D6D6DTC9D5C7405C 4405 4439 * 
2AEB SCS5C 4405 2845 0000 2B46 4440 ZERO oc XL2°00* 
4406 * 2B47 ll 2847 4441 ELEVEN ur ere 
28ED 4407 MSGO3 EQU *# 2848 2BF2 te 2B4S 4442 AALSD AL 
2AED D3D6C1C4C9D05C740 2AFF 4408 MSGO3N oc CLIO*LOADING SECTION Ci19* 264A 2C2E 284B 4443 ALSINX dc AL2{ALSDINe28) 
2AFS E2C5C3E3C9D60540 4408 284C 2CB2 2B4D 4444 ADLSIN DC AL2UDLSIN) 
2AFD C3F1F9 4408 : 2B4E 2CCE 284F 4445 DLSINX DC AL2(0LSIN¢28} 
A409" * 2850 2CEE 2B51 4446 OLSINY oc AL2(DLSIN+60} 
2600 4410 MSG04 Eou * 2. 4447 * 
2B00 E2C5C3E3C9D60540 2810 4421 MSGO4N DC CL17*SECTION C19 READY® = 
2803 C3FLFO940N9CS5C1C4 4411 
2B10 E8 4411 Ts 
de ot 44l2 + e 
2811 4413 MSGO5 EQU * 
2B11 D3D06C1C4C9D5C740 2823 4414 MSGOSN DC CLIO*LOADING SECTION C17* = 
2819 E2C5C3E3C9060540 4414 | 
ee 2B21 C3F1LFT7 4414 
= 4415 © ue 
2B24 4416 MS&06 EQU t. 
2B24 £2C5C3E3C9060540 2835 4417 MSGO6N oc CLIS*SECTION RE-STARTED® 
2B2C D9CS60E2E3C109E3 4417 . es i 
2834 C5C4 4417 ra 
4418 
74 
a 
bg 
fo 
Fe 
IC 
eo 
io 
DATE 21AaUG7S  OSNOVTS PROG 1D C141; DATE  21AUG75 ss OSNOW75 . . PROG 1D 14-1) 
f EC NO. 8277865 827827 PAGE 4% EC NO. 827785 827627 . ae 4 a _ PAGE a4A 
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1QM MAINTENANCE OIFAGNOSTIC PROGRAM 


Ci4l 3340 ATTACHMENT TESTS (PART 


ERR LOC OBJECT CODE 


2B52 00 
2853 
2655 
2857 
2859 
285B 
2650 
285F 
2861 
2863 
2B64 
2B65 


2866 
2867 
2868 
2B6A 
2B6C 
2B6E 
2676 


2872 


2892 


2BB2 


2802 


2BF2 


2c12 


2032 


2C52 


2c72 


2cB2 


2CF2 


’ DATE 21AaUG75 OSNOV?T 
EC NO. 827785 627827 


ADOR 


2852 


2B54 
2853 


2856 
2B58 


2B5A 
285C 
2B5E 


2860 
2862 


2863 


2865 
2864 
2B65 


2866 
2867 
2669 
2868 
2660 
286F 
2871 


2872 
2891 


2892 
2861 


2682 
2801 


2802 
2BF 1 


2BF2 
2c 


2C 12 
2€ 32 


2C 32 
2c5i 


2C52 
2c71 


2C72 
2c8l 


2C82 
2cFl 


2cr2 
2crs 


5 


STMT 


4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4464 
4465 
4466 
4467 
4468 
4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 
4477 
4478 
4479 
4480 
4482 
4482 
6483 
4484 
4485 
4486 
4487 
4488 
4489 
4490 
4491 
4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4500 
4501 
4502 
4503 
4504 
4505 
4506 
4507 
4508 
4509 
4510 
4511 
4512 
4513 
4514 
4515 
4516 


| 


PART NO- 4247605 
PAGE 45 


1) MODEL 12 


SQURCE STATEMENT 

GAUSERERESEESESERAAEEEE AREER EER EEER ERAS LA OEREESEEES EERE ES EASES SESS ESSE 

* m 

* RESERVED STGRAGE AREAS * 

* eeeeeee DO ** NGT ** ALTER THE RELATIVE POSITION OF THESE TABLES **** 

RARLAKSHAKASSEAESTRHE KKRSEE RERRERRREAES ERASER REREE SEERA ALEREREE SEE ADES TARE 

IND oC XL1*00! PROGRAM INDICATORS 

* 

SuS os XL2 DATA SWITCH SENSE AREA 

LINKIO EQU  SwS-2 DATA SWS 1 & 2 CONTAIN LINK iD 

* z 

WwORK1 DS XL2 USED BY COMMON COMMON 

WORK2 os XL2 SUBROUTINES PROGRAM 

* WORK 

WORKS oS XL2 FOR USE BY TEST AREAS 

WORK4S DS XL2 ROUTINES 

HORKS DS XL2 ee 

* 

‘yoPpouT OS XL2 COMMON IOP QUTPUT AREA 

IOPIN DS XL2 COMMON IGP INPUT AREA 

* *IOPIN® 

LENGTH OS XLL DATA LENGTH -— MULTIBYTE LOADS 

s 

ACR EQU #41 ADORESS COMPARE STOP VALUE 

ACRB os Xt2 

ACRO DS XL 

5 

INDEX DS XL1 INITIAL ALS INDEX VALUE 

EXTZN os XLE EXTERNAL ZONE VALUE 

EXTAR DS XL 2 EXTERNAL REGISTER ADDRESS 

ALSAR os XL2 ADOR LOCAL STORE ADORESS 

ZLSAR os xL2 ZONE LOCAL STORE AODRESS 

DLSAR DS XL2 DATA LGCAL STORE ADDRESS 

CSAR Ds XL2 CONTROL STORAGE ADDRESS j 

= ' 

EXT EQqU EXTERNAL REGISTER LOAD AREA 
oS XL32 

* . 

EXTIN FQU # EXTERNAL REGISTER SENSE AREA | 
DS XL32 

x 

ALSB8 equ * ADDR LOCAL STORE (8) LOAD AREA 
DS XL32 

2 i 

ALSBIN EQU) ®# ADDR LOCAL STORE (8) SENSE AREA 
os XL32 

* 

ALSO —EQUuU ® ADDR LOCAL STURE (0) LOAD AREA 
DS XL32 

a 

ALSDIN EQU = * ADDR LOCAL STORE (0D) SENSE AREA 
DS XL32 ! 

+ 

zLs —EQU)  ® ZONE LOCAL STORE LOAD AREA 
DS XL32 

* 

ZLSIN —EQU * ZONE LOCAL STORE SENSE AREA 
Ds XL32 | 

* ; 

OLS EQU DATA LOCAL STORE LOAD AREA 
DS XL64 

nd 

OLSIN —EQU) # DATA LOCAL STORE SENSE AREA 
DS XL 64 

* ( 

KREG pS xil K REGISTER LOAD AREA ' 

* 


OPREG €QU ¥42 OP REGISTER LOAD AREA 
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C141 3340 ATTACHMENT TESTS {PART 

ERR LOC O8JECT CODE ADOR STMT 

2CF3 2CF3 4517 

2CF4 2CF4 4518 

2cF5 ZCF5 4519 

4520 

2creé 2CF6 4521 

4522 

2cFT 2CF8B 4523 

4524 

2CFS 00 2CF9 4525 
DATE 21AUGT75 OSNOV75S 
EC NO. 827785 827827 


1} MODEL 12 


Ta Rott ene eR 


SOURCE STATEMENT 


Cc 
CR 
Y 


* 
LPCNT 
* 
SNSBYT 
+ 

CLR 


DS 
DoS 
oS 
oS 
OS 


boc 


XLI 
XL1 
Xii 
XL1 
XL2 


X¥L1*00° 


oct ees 


ons ao 
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TEST LOOP COUNTER 
3340 SENSE BYTES O & 1 
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‘3340 ATTACHMENT TESTS (PART 13 MODEL 12 
ERR LOC OBJECT CODE ADDR STME SOURCE STATEMENT 
4527. SS860SSFSSSSSSSEESESESEEEEEESEESSEEEEESEESSEEEESEEESESRESESSEESSEESSEEESE 
4528 2 * 
4529.¢ SYMBOL DEFINITIONS * 
4530 ¢ . : .., 
4531 SRESLIVEESS AEE S SS SESSH SETS SESS SESEE SK ESESHEESEESEE SESE SE SEKEERE VUESETESS ‘ 
4532 @ 
‘ 4533 ¢ LOCAL STORE REGISTERS 
4534 © 
0001 4535 xR1i eQu _ xxto1* INDEX REGISTER 2 
0002 4536 xR2 eau K*'o2* INDEX REGISTER 2 
4$37 ¢ 
0004 sore PSR E€QU x*04*. PROGRAM STATUS REGISTER 
4539 ¢ 
0040 med PMR EQU _ K* 408 - CURRENT LEVEL PROGRAM MODE REGISTER 
. & 1 ¢ 
0008 4542 ARR equ x*'os* CURRENT LEVEL ADDRESS RECALL REG 
0040 4543 PARR eQu = x*408 PROGRAM LEVEL ADDRESS RECALL REG 
4544 * 
0010 4545 IAR eQU = K* 108 CURRENT LEVEL INSTRUCTION ADDR REG 
0020 am PILAR EQU xX*20* PROGRAM LEVEL INSTRUCTION ADDR. REG 
* 
4549 * SECTION SENSE SWITCHES 
4550 * | 
0001 4551 SSW2F equ = x*o1* EXIT TO AMOP IF IN STG 
4552 @ 
4553 e meee meee | 
4554 @ , MESSAGE / HALT IDENTIFIERS 
_ 4555 ° 
0051 4556 HLT51 equ x*'s1°* SOLID ERROR DETECTED 
C052 4557 HLTS2 equ x*52¢ INTERMITTANT ERROR DETECTED 
— 7 0053 4558 HLTS3 EQU K* 53° ERROR OCCURRED ONLY ONCE : 
C100 4559 HLTOO equ x*C100* DUMMY HALT FOR *PRINT® CALL 
4560 © 
os * 3340 COMMUNICATION AREA (Com) tani aTORS ! 
ay 63 ¢ ' 
0080 4566 ADRSTP EQU x*80° MICROPROCESSOR ADDR STOP SET 
0010 4563 FAOFLG ©QU  x*10° LOAD SECTION FAO ONLY 
0001 peti amopsu 86 cQuU 0 x*Qle - AMOP IN EXECUTION INDICATOR 
4567 ¢ 
4568 t~ ee : 
4569 @ PROGRAM INDICATORS 
4570 + , 1 
0880 4571 TSTSW eou 8 xK*soe TEST STARTED 
“0040 4572 NORMNSW EQU x*40* TEST ENDED NORMALLY 
0020 4573 ERRSW equ = X* 208 TEST ENDED WITH ERROR CONDITION 
0020 4576 LPSH equ xXx*10¢ . TEST LOOP IN PROGRESS : 
4575 ¢ equ. x*os* i 
0004 4576 SWA eQu = x*O6* GENERAL ( MUST BE RESET ' 
0002 4577 SwB ecu x*02* PURPOSE BY USER) 
0001 4578 SwC equ x*o1* PROGRAM INDICATORS 
4579 ¢ 
“581 © TOP EXTERNAL REGISTER ADDRESSES i 
4582 *. - | 
0801 «583 CCH equ x*o1* CHANNEL COUNTER HIGH 
0002 4584 FBI EQu = xx*02° | 
0003 4585 OST -EQU = K*-038 ' 
0005 4586 FTG equ x*tose : 
0006 «S87 FTQ + ##$$EQU  xX*O6S | 
0007 4588 FHF €Qu x*07° | 
G609 4589 aDS equ x*o9* 
G00A 4590 FBI0A EQU = K*OA" “| 
@008 4591 HES equ x*oa? 
0000 4592 FIR €Qu _K*oD* : 
COGE 4593 FBO equ x*OE® le. 
OG0F 4594 SCH _£QuU = -K*OF® eal 
\ DATE 21AUGTS OSNOVTS PROG 10 Ci4-1 
€C NG. 627785 827827 PAGE *6 
1 
i 
1 
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PART NO. 
PAGE 


4247605 
468 


1) MODEL 12 











ERR LOC GBJECT CODE ADDR STMT SGURCE STATEMENT 
0011 4595 CCL equ x*11° 
t 0013 4596 DXC equ x*13° 
0015 4597 FTI Eou x*215° 
0616 4598 FCT EQU  X*16* 
0017 4599 S61 __ equ x27 
- G019 £600 600 . EQU  x*19¢ 
ee - @Q018 «601 Co2 Eou xX*1B¢ 
I OO1F 4602 SBO0 equ x*lF* 
0000 4603 MIARO equ x*00° ALS ADDR FOR MIAR FOR PROG 000 
% 0004 46046 MIAR1 €Qu xX*04* ALS ADOR FOR MIAR FOR PROG 001 
an OOLE 4605 0S1 equ) x*1e* ALS ADDR FOR DS ADDR OF PROG 7 (CHNL) 
OO0A 4606 DS2 equ —x*Oa* ALS ADOR FOR OS ADDR OF PROG 2 (FILE) 
” 0008 4607 -DS3 equ x*oB* ALS ADDR FOR CHNL TRAP INDEX 
G £608 ¢ 
eee 4610 * DCP SECTION REFERENCE TABLE 
C: Petters . 
0200 4612 SMOD EQU  Xx*0200* SYSTEM MODEL 
- 4613 * 
* 0202 4614 SIZE €QuU x*0202° MAIN STORAGE SIZE 
0204 «615 CPU ecu X*0204* CPU OPTIONAL FEATURES 
= ; 4616 * . 
% O20D 4617 SS8YTES EQU xX*020D* SECTION SENSE SWETGHES 26-2F 
‘£618 ¢ 
* 0212 4619 TEST equ x*0212¢ TEST CONSOLE SWITCHES 
ka? 0216 4620 LINK EQU xXx*0216° LINK TO NEXT ROUTINE OR SECTION 
O21A 4621 PRINT EQU  xK*O21A° PRINT A MESSAGE 
a OZ1E 4622 UNPACK EQU . x*021E* UNPACK DATA - HEX TO EBCODIC 
eS 0222 4623 HALT EQU X*6222° HALT AND DISPLAY HALT IDENTIFIER 
0226 4624 PACK EQU Xx*O226° PACK DATA ~ EBCDIC TO HEX 
és 022A “625 LOAD equ 4 x*022a° LOAD NEXT SECTION OR RECORD 
: € O22E 4626 EXIT -EQU  x*C22E* SECTION TERMINATE MESSAGE 
; £627 ¢ 
pes 0232 4628 UTAB equ xX*0232* DCP UNIT DEFINITION TABLE ENTRIES 
iC: 3 £629 © . . . 
' 4630 : : 
of 4631 ¢ OTHER REFERENCES EXTERNAL TO THIS SECTION 
ae 4632 ¢ : 
0800 4633 LPIMAG EQU xX*0800* 5203 PRINT IMAGE FIELD 
a % O878 4634 CHNFLG EQU x*08T7e* CHAIN IMAGE FLAG 
c ' 0879 4635 CRIFLG EQU x*OBTOF 3277 MICROCODE FLAG 
: OB7C 4636 LPDATA EQU x*OS87C* 5203 PRINT OATA FIELD 
: 4637 * 
©: 4000 4638 AMOP equ x*4000° ADAPTER MANUAL OPERATIONS PROGRAM 
4639 ¢ 
7% 6C00 4640 LDR- equ x*6coos 3340 MICROCODE LGADER FOR MOD 12 
a 4641 ; : 
4641 
C 4642 SRESSESESSSECKESSES SESS LESSSTSE SS CSSCESESSESSEKESSESSCES SE SESS SH SSS SEHSTS SES 
ge 4643 & * 
’ 4664 ¢ PATCH AREA FOLLOWS ( END OF CODE ) | e 
: 4645 & - 
f° 4666 Seesceseseccesecseseseessesesesecsceeeseceseeeeseaseeseeceeeeeeeesecess 
2CEA 4667 PATCH EQu * 
o 4648 @ 
€ FFEF 4649 END 
€o 
es 
° PATE 22AUGTS = OSNOV7S. PROG 10 ci4-1) 
EC NO. 827785 827827 PAGE 46A 
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: IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247605 18M MAINTENANCE OLAGNOSTIC PROGRAM PART NGo 4247605 
| PAGE 47 PAGE STA 
; C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 Ci4t 3340 ATTACHMENT TESTS (PART 1) MODEL i2 
| CROSS-REFERENCE 4G CROSS-REFERENCE 
| SYMBOL T LEN VALUE OEFN REFERENCES SYMBOL T LEN VALUE CEFN REFERENCES 
: AALSD A 002 2B49 4442 ALS36A A 901 13D6 1368 1308% 1502 
ACR A 001 2865 4472 ALS36B A OOL 13E£2 1373 3309% 1312* 1507 
i ACRB A 001 2864 4&73 ALS37 A 005 13C8 1364 1350 
: ACRD A 001 2865 4474 ALS40 A 004 i3D1 1367 1362 
ADLSIN A 002 2B4D 4444 1900 ALS5O A 006 13FF 1391 1417 
ADRSTP C COL 0080 4564 ALSS5S A OO1 1408 1395 1390 1415% 1416 
ADS C 001 0009 4589 ALS60 A 004 1449 1428 1478 1482 
AL>AR. A COZ 2868 4479 3971* 3983% 3984%* 3996% 4007% 4008* 4012 4029% ALS61 A 006 144D 1430 
ALSB A 001 2862 4490 OR821* 0822 0822* 0830 1221¥ 1222 1222# 1225* 1226* 2227% 1228* 27902 ALS62 A 002 145A 1434 1423% 1470 i473 1476* 1480*% 
i 2791 2791# 2793* 2794% 2795% 2796* 2797% 2798* 2799% 3972 ALS63 A OO1L 1487 1458 1424% 1477* 1481% 
; ALSBIN A 001 2802 4493 0180* 0188 0197 0683* 0735* 9736* 0740 0741* 0796 0797 O801 0802 ALS64 A 004 1488 1480 1474 
1306# 1335 1338 1341 1344 1347 1352 1358 1364 1367* 1369 1372* ALUTBL A 001 1C09 2684 2628 
1374 1391* 1401 1407 1409 1412 1430% 1440 1448 1450 1453 1463 ALUOL A 0OS 1C7TD 2629 2675 
1465 1488 1493 1497 1563 1508 2815 ALUOS A OOi 1C88 2633 2629% 
ALSO A OOlL 2BE2 4496 0824* 0825 0825* 0639 1223% 1224 1224* 1232* 12334 2788 2789 2789% ALUO9 A 0O3 i1CC7 2673 2668 
3533% 3534% 3535* 3536% 3997 4442 aMop C 001 4000 4638 3793 3815 
ALSDIN A O01 2Ci2Z2 4499 2762 2816 2888 3363 4443 AMOPGO A 004 2508 3815 3794 
ALSERA A 004 14F4 1510 1410 1413 AMOPID A 002 OALE 06030 3790 
ALSERB A 004 14F9 1513 1451 1454 AMGPLD A 006 2583 3796 3792 
ALSERC A 00% 14FE 1516 1466 AMOPLK A 004 2588 3780 346° 3492 3583 4341 4385 
ALSER1 A 004 OF6D 0791 0674 0692 AMOPSW C 001 0001 4566 3468 3491 
ALSER2 A 004 OF72 0794 0706 0768 AMOPS1 A 0C4& 25£0 3818 3785 
ALSER3 A 004 OF7B 0799 0707 0769 AMOPS2 A 00% 25DC 3817 2786 3797 
ALSER4 A 004 OF84 0804 AMOPX A 004 25€4 3819 3780% 3783 
ALSERS A 004 14C7 1485 1353 ARR C 001i 0008 4542 0819 0828 O970 O977 10601 1797 1948 1955 2785 2812 3457 3480 
ALSER6 A 004 1400 1490 1359 . 3576 3602 3639 3743 3780 3829 3840 5866 3902 3938 3967 3978 
ALSERT A 004 1409 1495 1365 : 3992 4002 4047 4053 4076 4101 4128 4146 4167 4189 4204 228 
ALSERS A 004 14E2 1500 1370 4249 4261 4287 4291 4314 4336 
ALSER9 A 00% 14EB 1505 1375 BEGIN A 004 2329 3480 0869 1037 1204 1589 1879 2012 2287 2466 2622 2728 2859 2932 
ALSEXP A 001 1503 1536 1305# 1310 1349 1355 1487 1492 3033 3163 3312 ie Soe eee 
ALSGEA A 004 1E24 2840 2612% BEGINX A 004 2406 3564 3457% 3480* 
ALSGET A 004 iDDA 2812 2760 2886 3361 BEGINO A 004 233E 3491 3483 
ALSGE2 A 004 1DF2 2820 2837 BEGINIL A 004 23FE 2560 3477 
ALSGE3 A 001 106% 2821 2817* 2832 2836 BGNIGP A 004 22F3 3457 0053 0106 0174 0256 0426 0509 C656 1294 1676 
ALSGES A OO1 1€00 23827 2818% 28337 BGNIO A 00% 2308 3468 3460 
ALSGE9 A 004 1620 2839 2813% + BGNTST A 004 240A 3576 0057 9063 0113 0178 0260 638i 0432 0457 0516 0555 0663 0715 
ALSINX A 062 2B84B 4443 2768 2899 3369 O778 0876 0897 0933 1046 1219 1302 1388 1428 1602 1683 1712 
ALSLOC A 004 OFET 0849 0820® 0829* Lf 1745 1883 2018 2135 2211 2292 2494 2546 2626 2748 2876 2957 
ALSLOD A 004 OFA8 0828 0723 1296 3086 3179 3259 3354 3414 
ALSLOE A 0G4 OFEB 0850 819% 08284 800 C 001 0019 4600 
ALSLGF A 004 OF89 0819 0783 BRACC A OOlL 1735 1852 173% 1844 20468 2057 2067 2086 2151 2175 2225 2232 2244 2301 
ALSLO A 001 OFBS 0832 0831% 0835* C836 0840* 0843 2305 2332 2338 2344 
ALSLOS A 003 OFBS 0833 0841 0844 BRCHK A OO1L 1736 1852 1758 1823 2050 2061 2071 2089 2161 2179 2230 2235 2249 2303 
ALSLOB A 004 OFD7T 0843 0837 2308 2334 23642 
ALSLO9 A 004 OFDF 0846 0826 BREGOS A 004 OCFO 0447 0442 
ALSSEA & 004 1006 2804 2785? BREGOS A 004 Of2C 0480 0466 
ALSSET A 004 1092 2785 2750 2878 2959 3356 BRMIAR A 002 1732 1849 1687. 1700 1704 3732 1761 1629 1831 2767* 2768 2898* 2899 2981% 
ALSSE9O A 004 1002 2803 2786% 2982 2985 3124* 3125 3368 3369 
ALSSW A OG1 OF&C 078° 0658% C682* 0700* 0702 0705 0711% 0734% 0739% 0764 0767 BRSIAR A 002 1734 1850 1738 i764 1836 1838 
ALSTBL A 003 1506 1538 1297 BRXREG A 001 1730 1848 1694 1725 1821 2044 2079 2329 2353 2646 2452 2658 2665 2687 
ALSOA & 001 OE€B8D 0727 0659* 0720* 0735 0740 0747 0750% 0758 O761* C773 0780* 2758 2775. 
ALSOD A 004 O£DF 6739 0732 BROS A 006 1626 1704 1698 
ALSOS A 004 O€63 0685 0680 BRO9 A O06 1670 1738 1729 
sat ALSO6 A 004 OE88 0702 0698 BR10 A 004 1679 1741 1736 
haa ALSO? A 004 O&99 0709 0703 BRI05 A 003 LEE2 2889 2900 
ALSOB8 A CO% OEB? 0725 0721* 0731 0748 C751 0753 0756* O759 0762 0782* 0785 BR110 A 004 LEAD 2907 2891 
ALSO9 A O01 O€88 0726 O719# 0743 0746% O757* 0781 BR112 A 004 1€82 2910 2895 
ALS1O A 004 OEEF 06743 0729 0737 BR20 A 0O& 16DE 1797 1692 1723 1756 
ALS15 A 006 OFOE 0753 0744 BR21 A OCL 16FO 1807 1687 
ALS20 A Q04 OF31 0764 0754 BR22 A 001 %6F2 1809 1688* 1715¢ 
AtS2i & 004 OF462 O771 0765 BR23. A COOL 16F4 1811 1689% 1716% 
ALS30 A 004 1342 1301 1381 BR24 A OOL l6F6 1813 16902 1749% 
ALS32 4 004 1377 1316 1311 BR30 & 004 172C 1846 1797 
ALS33 A O01 1378 1317 1302@ 13034 BR40 A 004 1686 1772 1695 1726 
ALS35 A 001 1383 1326 1304* 1361 ; BR41 A 004 1688 1774 1701 
ALS36 A 004 13C2 1361 1356 _ BRSIA A 004 16CO 1777 1702 = 
DATE 2LAUGTS OSNOV75 Proc ID Ci4-1 = OATE 21AuG75 OSNOVTS PROG ID Clé—1)3 
EC NO. 827785 827827 PAGE “7 EC NG. 827785 827827 PAGE 470 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART ND. ~~ 4247605. IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247605 i 
; PAGE 48 an PAGE 46A . 
C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 C141 3340 ATTACHMENT TESTS {PART 2) MODEL 12 ‘ 
CROSS-REFERENCE e CROSS-REFERENCE 
i 
SYMBOL T LEN VALUE OEFN REFERENCES _ SYMBOL T LEN VALUE DEFN REFERENCES : 
BR41B A 0G& 16CS 1780 1705 DLSIN A OOl 2CB2 4511 1893 2374 2456 2532 2538 2971 3108 3211 3116 3200. 3203 3206 i 
BR42 A 004 16CA 1783 1732 1739 ; 3287 3290 3907 4444 4445 4446 
BR43 A 004 16CF 1786 1735 DLSINX A 002 284F 4445 2985 
BR44 A 004 16D4 1789 1759 DLSINY A 002 2851 4%446 2982 i 
BR45 A 004 21609 1792 1762 1765 DLSLOC A 004 1820 1970 1949® 1956% : 
C A O01 2CF3 4517 0278 0305 036% 0373 1086 .1092 3945 4011 4081 4236 DLSLOD A 004 ILT7EE 1955 1886 2131 2295 2490 2546 2961 
CCH C 001 0001 4583 DLSLOE A 004 1824 1971 1948% 1955% 
CCL C 001 0011 4595 DLSLOF A 004 1709 1948 1906 
CHNELG C 001 0878 4634 DLSLOS A 001 I7FF 1959 1958 1962% 1963 
CLKRST A 004 2999 4261 3516 DLSLO5 A 003 17FE 1960 1964 
CLKRSX A 004 29BF 4279 4261% DLSLOS A 006 1812 1966 1953 
CLR A 001 2CF9 4525 3474 34748 3497 3497¢ DLSO3 A 004 1758 1888 1908 
CoM A 001 0a19 0026 3468 3491 3759 3765 3788 DLSOS A 004 1771 1894 1901 
ce2 Cc 001 O018 4601 . DLSO6 A 003 1778 1897 1922 
CPAT A ool o896 0271 0262% 0291 0294% 0298 0301% 0305 0333* 0339% 0345¢ 0361 0370 OLS20 a 004 1798 1910 19046 
cPu C 001 0204. 4615 OLS25 A 004 1703 1924 1917 
CR & 00% 2CF& 4518 0280 0309 0365 0374 1088 1095 3219 3224 3230 3946¢ 4012% 4059% OLS30 A 002 17D5 1932 1919 
4082* 4238 DLS31 A 002 17D7 1933 19206 
CRPAT A001 O898 0273 0263% 0295* 0302 0309 03348 0340¢ 0346 0362 06371 DREGTB A COL ODFE. 0614 0557 
CRTFLG C 001 0879 4635 DREGOL A 005 ODAF 0558 0576 
CRYSW A 0Ol OCBF 0400 0265* 0267*% 0308* 0312* 0316* 0317 0320 0323 0326 0332¢ 03384 0344% DREGO2 A OOL ODSF 0564 . u558> 
0350 0353 0356 DREGO3 A 001 ODC1 0566 0559% 
CRYOL A GO4 OBSC 0267 0336 0342 0348 DREGOS6 A 004 ODEO 06582 0s72 : 
CRYO2 A 004 0886 0291 0286 DREG21 A 004 OD69 0525 0547 
CRYO3 A 004 OBC9 0298 0292 DREG22 A 001 OD71 0528 05208 0538 0542¢ 
CRYOS A O06 OBDC 0305 06299 OREG23 A 001 ODTA 0534 0521 0543% . 
CRYOS A 006 OBEO 0309 0306 DREG24 & 004 ODA3 0549 0539 i 
CRY06 A 00S OBF6 0313 0310 OREG25 A 004 DES 0589 0536 
CRYO? A 004 OCO3 O317 0314 _ OREG26 A 001 ODED 0592 0518% 0541¢ : 
_ CRY11 A 004 .0C26 0332 0321 _ DREG27 A COL ODFS 0598. 0519s 054644 rr 
CRYL2 A 004 OC3A 0338 0324 DREG28 A 002 ODFB 0599 0523* 05468 . : 
CRY13 A 004 OC4E 0344 0327 _ pst C 001 0003 4585 3507 : 
CRY14 A 004 O€62 0350 0318 :.  pSk C 001 OO1E 4605 : 
CRY1S A 004 OC88 0368 0351 0354 0357 DS2 C 001 OO0A 4606 ; 
CRY¥19 Aa 004 OC99 0381 0330 DS3 € 001 cocs 4607 4 
CRY22 A 004 OCB6 0395 0391 DXC C 001 0013 4596 3509 j 
CSAR A 002 2871 4482 3212* 3221 3227* 4105* 4116® 4154 4156 Di A 001 283D 4432 3669 i 
CSOTC A O01 1188 1074 1052@ 1092 1163 1128 1160° 2 A 001 283E 4433 { 
CSOTCR A OG1 1780 1676 1054# 1095 1104 1115 1126 ELEVEN A 001 2847 4441 0138 1476 1477 ‘ 
CSOTY A OOl 1118F 1078 1055# 1098 1127% ENDRTN A OOL 22E12 3436 3310 : 
cssw A 001 128A 1186 10494 L107# 1110 «.L13® 1118 1140 1149 1163¢ LIT2* 1175¢ 1597 1620*% ERRHLT A 002 2530 3727 3719% : 
1628 1633 1639% 2020* 2060* 2064 2069% 2073% 2077% 2081¢ 2083 2102 ERRP A 004 2501 3703 3617 3694 i 
2105 2108 2112 2237* 2167* 2173* 2177# 2181% 2183 2189 2192 2355% ERRPRT A 004 246A 3639 0075 0078 0132 0150 0224 0219 022¢ 0288 0359 0368 0395 0444 
2963% 2975* 2978* 2990 2993 / : 0450 0484 0882 0597 0791 079% O799 0804 0941 0946 0951 0956 i 
CSSW4 AocOk 1288 1185 1047# 1048% 1101 1102# 1103 1160 1166 1169 \ ( 1152 1155 1248 1485 1490 1495 12500 1505 1510 1513 1516 1643 i 
CSOO =A 004 «15D: 1052 112& 1138 1771 1%77@ 1777 «#1780 783 1786 1789 1792 1927 1930 2114 2117 ; 
CSOL A 004 1173 1061 1129 2120 2123 2126 2198 2201 2204 2241 2246 2424 2427 2430 2433 i 
CcSso3 A 001 1179 1063 10S50@ 1201 1134 L1137# 1166 c 2436 2439 2442 2445 2448 2453 2458 2524 2535 2589 2594 2670 j 
CSO3A & 004 11EL LILO 1105 2773 2907 2910 2996 2999 3128 3132 3134 3137 3140 3193 3209 j 
CS04 a 004 11€C 1115 1108 21111 41164 %2b173 #1176 3233 3280 3293 3374 3428 ; i 
CSOSA 004 120A 11226 1116 ERRPX A 004 24E0 3689 36846 i 
CSO6 A 004 121A 2231 1120 ERRPXL A 004 2408 3686 36604 $ 
CS09. A 004 1233 1140 1135 ERRPOO A 004 2472 3642 
CS14 A 004 1242 1448 1141 ERRPOL A 002 2498 3659 36398 3667 
CS15 A 004 1252 1155 1150 ERRPOZ A 006 24AD 3669 3681 
CS30 & 066 1257 1160 1093 1096 1099 ERRPOS A 002 24€4 3677 3673¢ 
CS30A A 006 1268 1266 1161 ERRPOS A 002 24C& 3678 3665* 3680* 
CS30B A 004 1262 2175 1167 1176 ERRPOS A 003 24D1 3683 3670 
C17 A 002 2573 3763 3747 3750 ERRSW C 003 0020 4573 3616 3696 
C19 A002 25CD 3807 3790 3793 EXIT C€ 001 O22E 4626 ee | 
OLS A 001 2C72 4508 1892 1903 1916 1950# 1951 1951# 1957 2380¢ 3251¢ 3871 EXT A 001 2872 4484 3500® 3503¢ 3513¢ 3865 : 
DLSAR A 002 286F 4481 1889% 1966¢ 2371¢ 2381¢ 2402% 25298 2572¢ 2968¢ 3105¢ 3197* 3261* 3284* . €XTAR A 002 2869 44678 3501% 3505¢ 3507¢ 3509¢ 3511¢ 3514% 3831 3846 4179 
3872 3880 3893% 3908 3915 39294 EXTIN A QO1 2892 4487 i. 
DLSCNT A 001 1708 2935 1885* 1910 1921¢ 1924 EXTZN A 001 2867 4477 4176 j 
DLSER] A 004 2700 1916 1895 . FAQID A 00z OA2Z20 0031 - ‘ 
DLSER3 A 00% L17CF 2930 2911 ©1925 . FAOFLG C 001 0010 4565 3765 i 
DATE 2LAUGTS oSuOv7s ‘ PROG 1D Cl4-1 DATE 21aucTs OSNOV?TS PROG 10 C14-1) 
EC NO. 827785 - 827827 PAGE 43 EC NO. 827765 827827 PAGE 48a os 
4 - 3 
: , CG : 
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IBM MAINTENANCE OIAGNOSTIC PROGRAM 


3340 ATTACHMENT TESTS (PART 1) MODEL 12 


-—.. C141 

SYMBOL T LEN VALUE 
FBI C€ 001 0002 
FBIOA C C01 OO0A 
FBO C 001 OO0E 
FCT C 001 0016 
. FFFF A 002 22E4 
FHF C 001 0007 
FTG C 001 0005 
FTI Cc 001 0015 
FTO C 001 0006 
FTR Cc 001 0000 
HALT C 001 0222 
HES Cc 001 0008 
HIOP & 004 29F7 
HIGPX A 004 2A07 
HLTIO A 002 250A 
HLTOO C 001 C100 
HLT51 C 001 0051 
HLT52 C 001 0052 
HLT53 C 001 0053 
LAR Cc 001 0010 
IMMOS A 006 2064 
IMMO6 A 006 206E 
immMos A OCi 2087 
IMM10 A 004 2088 
IMM11 A 004 2080 
IMM12 A 004 2092 
iMM13 A 004 2097 
IND A 001 2852 
INDEX A 001 2866 
1OoPGO A 004 29CF 
1OPGOX A 004 29F3 
10PGO2 A 004 29€9 
1OPIN A 002 2862 
toPouT A 002 2860 
IOPRUN A 004 29C3 
11 A COL 2836 
12 A 002 2838 
13 A 002 283A 
132 & 001 2B3C 
14 A 001 2838 
KREG A 001 2CF2 
KREGO3 A 004 0826 
KREGOS A 004 0842 
KREGOS A 004 OBSL 
KREGOS A 004 O85A 
KREGOD A 004 0863 
LALSB A 004 2737 
LALSB1 A C04 2720 
LALSB2 A 005 2747 
-LALSO A 004 2760 
LALSO] A 00% 2756 
LALSC2 A 00S 2770 
LALSX A 004 27TEE 
LALSX1 A 004 27EA 
LALSX2 A 004 27DE 
LALSOL A 004 2789 
LALSO2 A 004 2783 

1 > BATE 21AUGTS 

EC NG. 827785 


CEFN 


4584 
4590 
4593 
4598 
3440 
4588 
4586 
4597 
4587 
4592 
4623 
4691 
4314 
4322 
3707 
4559 
4556 
4557 
4558 
4545 
3120 
3122 
3129 
3131 
3134 
3137 
3146 
4455 


4476 
4291 
4309 
4304 
4468 


4467 
4287 
4426 


4427 
4428 
4430 
4429 
4514 


0194 
0208 
0214 
0219 
0224 
3978 
396T 
3983 
4002 
3992 
4007 
4042 
4041 
4036 
4011 
£025 


OSNOVTS 
827827 


REFERENCES 


0066 
35132 
3511 


3500* 
3726 


3869 
4314 
36117 
3466 
3701 
3691 
3611 


3102 
3126 
3120% 
3098 
3109 
3112 
3215 
3459 
3642 
1238* 
1240 
4287% 
4289 
0129 
0535 
0741 
1617 
2592 
4347* 
4212 
0746 
2833 
4116 
1391 
1430 
1137 


3852 
4152 
43024 
0216 
0221 
0195 
0209 
0198 
Q668 
0846 
4035 
0686 
0847 
4036 
3967* 
39682 
4026 
3973 
4020 


0069 
3514 


3501 


3905 


36914 
3489 


3122 
3101 


3475 
3688 
2752+ 
2753 
£291* 


0193 
os7l 
O878* 
2075 
2824 
4348 


0750 
3227 
3680 
1415 
3858 


4160 
4306 


3253 
1234 


1717 
1235 


3978* 
3979% 


3986 


CROSS~REFERENCE 


0080 
3831 


3503* 


4148 


3701% 
3757 


3122* 


3475* 
3693 
2883* 
2884 


0194 
0600 
088s 
2165 
2830 
4360% 


0835 
3613 


1624 
3878 


4173 
4316% 


2800 


1720 
2801 


3982 
3993% 


3998 


aos 


4169 


3719 
3803 


3482 
3696* 
29643 
2965 


0207* 
0667* 
0890 
2171 
3097 
4364 


0919 
3698 


3887 
4182 
4320 


3531 


1750 
3537 


39928 
4003% 


4032 


0522 


4191 


3813 


3498 
3724% 
3357% 
3092 


0208 
0673 
0906 
2347 
3100" 
4367 


0923 
3892 


3913 
4195 


1753 


40022 


0599 


4230 


3496* 
3981 
42624% 
3285 


0217 
0679 
0913 
2368 
3120 


0984 
3893 


3923 
4234 


3088 


4006 


PART NO. 
PAGE 


1306 


4264 


3578% 3604 3607 3610% 3616 3619% 
400S* 4019 4031 4034 4040* 

4274 42971 

3272 3359 3420 


0222 0285 0390 0447 0465 0477 
0683 0685* 0691 0697 0728 0736 
0944 0949 0954 1245 1307* 1498 
2399 2405 2451 2521 2527 2568 
3190 3277 3425 4368 4374 


1625 1921 1962 2591 2596 2832 
3928 3929 3955 3956 4028 4029 


4015* 4£038*% 4066 4069 4135 4139 
4242 4268 4270 4272 288% 4295 


3181 3264 3268 3416 


4023 


?RGG ID 
PAGE 


4247605 
4 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C141 


SYMBOL 


LBI05 
LB110 
LB1105 
LB1106 
LB1107 
L61109 
L81110 
LB81115 
Lcs 
LCSAR 
LCSARX 
LCcS!i 
LCSIX 
LCSIX1l 
LcSiol 
LCSi02 
LCSL 
LCSR 
LCSX 
LOLS 
LDLSX 
LOLSX1 
LOLSsO! 
LOLSO2 
i.DR 
LORGO 
LORIDO 
LORLD 
LENGTH 


~ LEXT 


(oS 


en 


LEXTAR 
LEXTX 
LEXTXL 
LEXTOR 
LFHF 
LFHFX 
LINK 


LINKID 
11003 
tL 1006 
LLKERA 
LLKERB 
LLKERL 
LLKER2 
LLKER3 
LLKER4S 
LLKERS 
LLKERS 
LLKERT 
LLKERB 
LLKERS 
LLK20 
LLK22 
LLK22 
LLK25 
LMBI 
LMBIX 
LMBIX1 
LMBIOL 
LOAD 
,ooPp 
LOaPX 


DATE 
EC NO- 


3340 ATTACHMENT TESTS (PART 1) MODEL 12 


T LEN VALUE 


A ool 1882 
A 004 18CO 
A 003 1F36 
A 004 1F43 
A 003 1F47 
A 004 1F69 
A 004 1F7C 
A 004 1F81 
A 004 2861 
A 004 2801 
A 004 28F1 
A&A 004 2871 
A 004 28A0 
A 004 28A9 
A 005 2885 
A 003 28A2 
A 001 1191 
A 00) 1193 
A 004 28C0 
A 004 262C 
A 004 267A 
A 004 2676 
A 004 2638 
A 002 2653 
C 001 6C00 
A 004 2574 
A 002 OAIC 
A 004 2550 
A 001 2863 
A 004 25F8 
A 004 28F5 
A 004 2628 
A 004 2624 
& 002 26158 
& 004 25E8 
A 004 25F4 
Cc 001 0216 


A 002 2853 
& 004 OA71 
A 004 OAT6 
A 004 1862 
A 004 1868 
A 004 18632 
A 004 1836 
A 004 18386 
A 004 1840 
A 004 1845 
A 004 184A 
A 004 184F 
A 004 1854 
A 004 1859 
A 004 1LADE 
A OOL 2LAFT 
A 001 1806 
A 004 1829 
A 004 2837 
A 004 2860 
& 004 2869 
A 004 2843 
C 001 O22A 
A 003 2421 
A 004 2428 


21AUG75 
827785 


DEFN 


2520 
2529 
2972 
2978 
2980 
2990 
2999 
3002 
4128 
4146 
4162 
4101 
4123 
4122 
4108 
4119 
1080 
1082 
424i 
3866 
3897 
3896 
3871 
3882 
4640 
3765 
0029 
3753 
4470 


3840 
4167 
3861 
3860 
3854 
3829 
3835 
4620 


4458 
0075 
0078 
2453 
2458 
2424 
2427 
2430 
2433 
2436 
2439 
2442 
2445 
2448 
2386 
2398 
2404 
2420 
4076 
4096 
4095 
4081 
4625 
3586 
3589 


OSNOV7S 
827827 


REFERENCES 


2526 
2522 
2986 
2973 
2976 
2983 
2994 
2991 
4110 
3213 
4146* 
1212 
4101% 
4102% 
4117 
4114 
1039* 
1040 
4128* 
1968 
3866* 
3867% 
3894 
3874* 
3443 
3751 
3747 
3748 
0989* 
3892% 
3502 
3843 
38404 
3841* 
38484 


3829* 
0073 
0631 
1976 
2714 
3582 
cO058 
oo70 
2406 
2345 
2306 
2309 
2339 
2342 
2348 
2351 
2369 
2375 
2400 
2418 
2384* 
2385% 
2409 
0871 
4076 
4077* 
4090 
3761 
3608 
3576* 


2537 


2988 


4130 


2733 
4104 


1102 
1123* 


2382 


3890 


3750 


1888* 
3925 
3504 


008s 
0636 
2239 
2777 
4340 


2408 
2412* 


1041 
4079 


3805 
3614 


CROSS-REFERENCE 


2861 
4120 


1119 
11324 


3262 


3766 


19€7* 
392a% 
3506 


0146 
OT7T4 
2254 
2845 
4384 


2421% 


12609 
40934 


2934 3035 3165 3238 3245 


1122* 1131# 1169 


3544 


2949* 
3952 
3508 


0158 
0929 
2421 
2903 


2450 


1316 


2967 
3955* 
3510 


0212 
1144 
2464 
2916 


2455 


1591 


3643 3699 3734 


31044 
3970% 
3512 


0230 
1266 
2587 
3003 


1636 


3196* 
39954 
3515 


0398 
1471 
2609 
3008 


1678 


3283* 
4025 
3833 


0410 
1634 
2678 
3116 


2730 


3316 


3540® 
4028* 


0487 
1768 
2694 
3146 


2880 


3379 


3543* 
4039 


0492 
1857 
2699 
3296 


PART NO- 
PAGE 


3549 


35872 3889 


0579 0626 
1862 1914 
2704 2709 
3430 3445 


4247605 
“9A 


2952 3349 3518 


Prac 10 
PAGE 


C141) 
494 





memento 


IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247605 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. £247605 


PAGE 50 : : PAGE SOA 

C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 C141 3340 ATTACHMENT TESTS (PART 1) MODEL 12 
CROSS~REFERENCE oe CROSS-REFERENCE 

SYMBOL T LEN VALUE OEFN REFERENCES SYMBOL T LEN VALUE OEFN REFERENCES 
Lop A 004 2965 4228 3949 4016 4063 4085 4131 4213 RTN A 001 OA03 0017 3654 
LOPX A 006 2985 4244 42288 RTNOA A 001 0D3D 0489 0424 i 
LPCNT A OOL 2CF6 522 0596* 11486 1728 3560* 3613% 3620* 3698% RTNOB A 00 OD45 0505 0491 : 
LPDATA C 001 O87C 4636 RTNOC A 001 O£0B 0623 0507 t 

erie LPIMAG C 001 0800 4633 RTNOD & 001 O£13 0628 0625 i 
LPSW C OCL 0010 4574 3459 3482 3607 3642 3724 RTNOE A 002 OE1B 0633 0630 ; 
LXOPI] & 004 2933 4204 35%6 RINOF A OOL O£23 0652 0635 i 
LXOPIA A 00S 2935 4209 4217 RTNOL A 001 OAZA 0049 0019 { 
LXOPIX A 00% 2962 4223 4204 4207 4220¢ . . RTNO2 A 001 0A83 0085 0051 
LXOPIi £094 295D 4222 4205% RTNO3 A O0OL OABB 0102 0087 
LXTARX A 004 293% 184 4167% RTNOS A 001 OAFB 0155 0104 
L2LS A004 2602 3938 088) 0990 2950 3541 RTNO5 A 001 0800 0170 0157 
LZLSX A004 271C 3961 3938% RINO6 A O01 0868 0227 0172 
LZLSX1 A 004 2718 39450 3939% 3953 RTNOT A001 OB7O 0252 0229 
LZLS01 A 00% 26€6 3945 3958 , RTNO8 A OOL OCCO 0407 0254 
MIARO CC 001 0000 4603 3417 3423 RTNO9 A OO1L OCCB 0422 0409 
MIAR1L € 001 C004 44604 RTNIA A& OOL 1830 2008 1975 
MOVER] A 004 1040. 2569 2569 RTN1B A OOlL 2LAOB 2251 2010 
MOVER2 A 004 1£53 2594 2578 - RTNIC A 001 1813 2283 2253 
MOVER3 A 002 165B 2597 2575* RTN10 A OOL 1870 2461 2285 
MOVTBL A 001 i€5C 2599 2550 RTNLE A001 1878 2484 2463 
MOVOO A 004 18D8 2542 2533 RTN1F A001 1C65 2606 2486 
MOVO1 .AO0OS 18E8B 2551 2584 : : RIN10 A OO1 OFEF 0865 0654 
MOV25 A OC] IBFA 2556 2551% 2566 RTN11L A OO1 1132 1033 0867 
MOV26 A001 IBFC 2558 25528 RINL2 A OOl i28E 1200 1035 
MOV30 A OCOl ICIA 2572 2566% 2567# : RTN13 A COL 1332 1290 1202 
MOV32 A001 1€30 2576 25742 RTN14 A O01 1559 1585 1292 
MOV35 & 004 1€42 2586  j$2581 , RTNIS A OOL 1564 1672 #1587 
MPL A 00% 253D 3743 3472 3495 RTN16 & 001 1737 1854 1674 
MPLX A 004 2584 3771 3743% Se |. RTNL7 A OOl 173F 1859 1856 (st eter 
MPLEL A 004 257C 3768 37446% .. 8 RTNI6 A GOL 1747 1875 1861 
MPLX2. A 004 .2580 3769 37458 '  — - RTNIT9) «A 001 «41828 1973 1877 
MSG A O00L @A9S 4397 3545 3650 3655 36624 3664 3716 ' RIN2A A 001 LEBF 2928 2915 
MSGN A 030 ZABS 4398 3645 3645 36465 3706 3716 3717 RTN2B A001 2F&9 3005 2930 
MSGOL A 001 2AB7 4401 3711 RTN2C A001 1F92 3029 3007 
MSGOIN. A 028 2A02 4402 3711 3712 ' . ¥N2D A 001 209C 3243 3031 

. MSGO2- A001 2A03 4404 3731 RTNZE A001 20A4 3159 3145 
MSGO2N A 026 2AEC 4405 3731 3732 : RINZF A 00} 21C0 3308 +$‘%3:161 
™SGO3 A001 Z2AED 44507 3501 : | RIN2Z0 A 001 12C6D 2618 2608 
MSGO3N A019 2AFF 4408 3801 3802 . ; RITN21 A001 LCEE 2692 2620 
MSGOS A OOL 2800 4410 3811 :  &TN22 A 001 1CF6 2696 2693 
MSGOGN A 017 2610 411 3811 3812 RIN23 A001 ACFE 2701 2698 
MSGOS A 001 2812 4413 3755 RTN24 A QOL 1D06 2706 2703 
‘MSGOSN A 019 28234414 3755 3756 : . RTIN25 A O0Ol IDOE 2711 2708 
MSGO06 A 001 2824 4416 3464 3487 i. RITN26 A OOl 1016 2724 2713 
MSGO6N A 018 2835 4417 3464 3465 3487 3488 ; RIN27 A O0Ol LE28 2842 2726 
NOOPOS A 003 106C 2763 2769 . . RTN28 & 001 1€30 2855 2844 
NOOPO9 A 00% 1087 2773 2764 | § RIN29 A OO1 LEB 2913 2857 
NORMN A 004. 242C 3602 G059 O072 0145 0221 0329 0393 0448 0478 0549 G578 O709 O77! ;  SALSB A 004 27F2 4047 0676 0725 O787 2163 2820 
; 0893 0926 1143 1265 1377 1419 1468 1631 2707 1742 #767 1923 '  SALSBA A 002 OF69 0787 0721 0782 
2092 2186 2238 2420 2542 2586 2677 2771 2902 3002 3117 3231 | SALSO A 004 2801 4053 0694 O788 1242 2169 2826 309% 3187 3274 3422 
3291 3372 3426 | SALSDA A 002 OF6B 0788 0731 0753 O756 
NORMSW C 002 0040 4572 3610 3693 ; SALSX & 004 2833 4072 4047* 4053% 4058 40014 
NORMX A GO% 2466 3625 3602® 3605 1 SALSX1 A 004 282F 4071 40489 40548 
NORMOL A 004 2430 3604 : | SALSOL A 004 280D 4058 4051 
OPREG A 001 2CF5 4516 0116* 0123 0126 0153 0437 9441 1056 1057 10574 4108¢ 4209*% SBYTES C 001 0200 %617 3782 
Pack € COl 0226 4624. |. $80 C 001 OO1F 4602 
PARR C001 0040 «543 $81 COOL -0017T 4599 
PATCH A OO1 2CFA 4647 . SCN C 001 GOOF 4594 3505 2 
PFC & 002 OADT 0019 | SDLS.)— A 004 «=26TE 3902 1890 2372 2403 2530 2573 2969 3106 3198 3285 
PIAR € 001 6020 4546 i SDLSX A 004 26CE 3933 3902* 
PID aA 002 GAOL 0015 3442 3471 3494 3649 3796 '  SDESXL A 004 26Ca 3932 3903¢ 3926 
PMR C 001 0060 «540 ; ; SOLSO1 A 004 268A 3907 3930 
PRENT COOL OZ1A 4622 3462 3485 3703 3709 3714 3729 3753 3799 3809 | SOLSO2 A 002 26AD 3921 2574 2575 39098 
PsR C 061 o004 4538 , . SDREG A 004 2518 4189 0672 0690 0883 os 
RDALSB A 002 282A “067 4050% 4056% 1». SDREGX A 004 292F 4199 4189¢ 
. . | . ee 
‘3 DATE 21AuUS75 OQSNOVTS PROG 1D c14-1' © pate 21AUGTS OSNOVTS ; PROG 10 C1415 yo -@ 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C141 


SYMBOL 


SINCOS 
SINCO9 
SINC LS 
SINC 16 
SINC19 
SINC 20 
SINC30 
SINC35 
SIZE 
SLKERA 
SLKERB 
SLKERL 
SLKER2 
SLKERS 
SLKERG 
SLKERS 
SLKER6 
SLKERT 
SLKERS 
SLKOO 
SLKOL 
SLKO2 
SLKO4 
SLKO5 
SLKO6 
SLKO7 
SLKOTA 
SLKO8 
SLK20 
SLK25 
SLK26 
SLK2T 
SLK28 
SLK30 
SLK5O 
SLK55 
SMOD 
SNSBYT 
SSW2F 
START 
SvP 


SVPCTL 
SYVPEC 
SYPSNS 
SVPX 
SV¥PX1 
SVPOL 
SVPG2 
SWA 
SWB 
SWC 
SHS 
TBONOS 
TBON1O 
TEST 
TRAPOS 
TRAPOS 
TRAPOG 
TRAPOT 
TRAPOB 
TRAPLO 
TSTSw 


DATE 
EC NG. 


3340 ATTACHMENT TESTS (PART 1) MODEL 12 


T LEN VALUE 
A 004 20€7 
A 004 210A 
A 004 210F 
& 004 2113 
A 004 2138 
& 004 2143 
& 004 219C¢ 
A 004 2187 
C 001 0202 
& 004 19F9 
4 004 1A02 
A 004 190C 
A 004 1911 
A 004 1916 
A 004 I19AE 
A 004 1983 
A 004 1988 
A 004 1918 
A 004 1920 
A 004 1846 
& 002 1862 
A 004 188E 
A 004 189C 
A 004 18A7 
A 004 1882 
& 004 186D 
A 004 18C8 
A 004 18F0 
A 004 1925 
A 004 1969 
A 004 1979 
A 004 1984 
A 004 198F 
A 004 199D 
A 004 1980 
A 001 19C8 
C 001 06200 
A 002 2CF8 
C 001 0001 
A 001 6000 
A 004 2a08 
A 004 2A54 
A 025 0Aa39 
& 904 2A58 
A 004 2A94 
A 004 2aA90 
& 005 2A23 
A 004 2A78 
€ 001 0004 
Cc 00: o002 
€ 001 0001 
A 002 2854 
&£ 003 2242 
A 004 2250 
€ 001 O22 
A 004 12DA 
A 001 12E6 
A 001 13062 
& 004 1303 
A 004 1310 
& 004 1329 
€ 003 oO80 
2iAUGT5 
827785 


DEFN 


3196 
3209 
3212 
3213 
3230 
3233 
3283 
3293 
4614 
2241 
2246 
2114 
2117 
2120 
2198 
2201 
2204 
2123 
2126 
2020 
2038 
2061 
2067 
2071 
2075 
2079 
2083 
2102 
2131 
2169 
2175 
2179 
2183 
2189 
2211 
2217 
4612 
4523 
4551 
0006 
4336 


4364 
9033 
4367 
4388 
4387 
4345 
4378 
4576 
4577 
4578 
4457 
3364 
3374 
4619 
1232 
1237 
1249 
1251 
1261 
1265 
4571 


O5NOV75 
827827 


CROSS-REFERENCE 
REFERENCES 


3191 
3201 
3207 
3228 
3222 
3225 
3278 
3288 


3204 


2233 
2236 
2106 
2103 
2112 
2193 
2196 
2196 
2087 
2096 
2098 
2016% 2054 
2058 
2055 
2068 
2062 
2076 
2080 
2084 
2095 
2166 
2172 
2176 
21860 
2184 
2187 
2243 


2109 


2094 2097* 


2065 2072 


2248 


3782 


0108 
0589 
2213 
3876 
4318 
4356 
3759% 
4353 
43364 
4337 
4379 
4365 
3981 
4005 


O1lL7? 
0909 
2296 
3911 


0184 
1008 
2313 
4064 


0202 
1061 
2356 
4133 


0268 
1324 
2386 
4150 


3788* 


4343 43817 


4371 
4019 
4019 


4031 
4031 


4034 
4046 


4040 


3581# 
3370 
3365 
3562 
1259 
1229 
1230% 
1246 
1255 
1252 
3578 


4239% 4383% 4458 


1263 
1251 
1257 


1254 
1261* 


1258% 1262¢ 


3604 3688 


0383 
1393 
2413 
4171 


0433 
1432 
2498 
4193 


0458 
1456 
2553 
4232 


& §. 6 = @. 


0470 
1607 
2631 
4251 


0480 
1799 
2755 
4266 


PART 8O. 
PAGE 

0525 ©0562 
2021 2138 
3215 38650 
4293 4304 
PROG ID 
PAGE 


4247605 
Si 


Renee we me ener ee 


IBM MAINTENANCE OLAGNOSTIC PROGRAM 


Ci4i 


SYMBOL 


uCTO 
udT1 
UNPACK 
UT AB 
WORKI 
WORK2 
WORKS 
WORK4 
WORKS 
XEF 
xOP 
XOPX 
XREGO4 
XREGOS 
XREGOT 
XREGOS 
XREGOO 
XR1 


XR2 


x048C 
X1234 
X22 

¥ 
YPAT 
ZERO 
2us 


ZLSAR 
ZLSER 
ZLSER2 
ZLSER3 
ZLSER4 
ZLSERS 
ZLSIN 
ZLSLOC 
ZLSLOD 
ZLSLOE 
ZLSLOF 
ZLSLO4 
ZLSLO5 
ZLStLO9 
ZLSSNS 
ZLSOA 
ZLSO3 
ZLSO7 
ZLSO8 
ZLSO9 


DATE 
eC NG. 


3340 ATTACHMENT TESTS (PART 13 


“~ 


OprprPrPpyprprPprprprprprpranrp yp 


oO 


PPPrrrrp 


rPPPPPrPrPrprPprrpprprrprrprprpr 


LEN V 


003 
003 
001 
001 
002 
002 
002 
602 
002 
001 
004 
004 
004 
ool 
004 
004 
004 
O01 


ool 


002 
002 
ocl 
onl 
001 
002 
ool 


002 
004 
004 
004 
004 
004 
001 
004 
004 
004 
004 
0o1 
003 
006 
004 
001 
0o1 
004 
004 
001 


21AUG7 
827785 


ALUE 


OAT 
OAOF 
O21E 
0232 
2856 
2858 
285A 
285C 
285E 
2844 
2989 
2995 
OAAL 
OAAD 
OACA 
OAET 
OAEF 
0001 


0002 


2642 
2B40 
2843 
2CF5 
OB9A 
2B46 
2C32 


2B6D 
1094 
109D 
1i0A6 
LOAF 
15DF 
2C52 
10F8 
10CS 
1OFF 
1084 
10DA 
1009 
1O0ED 
1103 
1044 
1018 
103A 
103E 
1042 


5 


DEFN 


0022 
0023 
4622 
4628 
4460 
4461 
4463 
4464 
4465 
4438 
4249 
4256 
0116 
6120 
0135 
0145 
0150 
4535 


4536 


4436 
4435 
4437 
4519 
0275 
4440 
4502 


4480 
0941 
0946 
0951 
0956 
1643 
4505 
0992 
0977 
0993 
0970 
0981 
0982 
0988 
1001 
0905 
0884 
0902 
0903 
0904 


OSNOV75 
827827 


oe 


© & @ 2 @. ® @ @ * @. - @. 
P 2 Reltnaty age, Gee ae tn cae a = 
= : , rey Peas . = ~ 
ie ~e : , 
a7 


MODEL 12 
CROSS—-REFERENCE 

REFERENCES 
3647 3652 3657 3675 
3442 3471 3494 3796 
0065* 0068* 0069 C082 6083 4345* 
3660 3662 3669% 
1899* 1909 
3950 4017 4086 
4249% 
0140 0143 
O115*% 0126 0135 O136* 0139 01424 
0130 
0136 
0127 
0522* 0523 0545* 0546 0557* 0558 
0830* 0833 0834 0834% 08394 0849 
0992¥* 1002 1003 1004 1005 1005 
1308 1309 1352 1358 1364 1379 
1899 1919 1949 1956 1957* 1960 
2580 2533 2583* 2628* 2629 2667 
2766* 2767 2786 2803* 2813 2815* 
2890 2893 2894 2897 2897% 2898 
2987* 3121% 3123 3123% 3124 3363% 
3665 3667* 3672 3672% 3673 3683 
3818* 3841 3845* 3846% 3848 3860* 
3907* 3906* 3909 3932% 3939 3941% 
3972* 3979 3982+ 3982 3985 3985* 
4J009% 4013 4022 022% 4023 4030 
4060 4060* 4061 4071* 4077 40794 
4093 4095* 4102 4104* 4105 4106 
4119* 4120 4122* 4205 207% 4209 
4222% 4337 4343% 4345 4347 4350 
4376% 4381 43872 
18934 1894 1898 1898* 1920 2816* 
38i7% 
1731 1738 1761 1764 
1697 1700 1704 
0282 0313 0366 95375 1096 1098 
0264* 0296* €303* 0313 032325* 0341+* 
0065 0545 0879 0988 1047 1889 
O880* 0972* 0973 OST7T3* C979 2941 
394) 
O0879% 0988* 2948% 35394 3942 3943*% 
0886 
0891 
0907 
0914 
1629 
O97T1# 0978 
0900 1594 
O3970# 0977% 
0936 
09804# 0984 0985 
0986 
0975 
0888 90903 
0899% 0920 0923% 0928 0935 0953 
0943 0948 : 
0938 
0921 0924 
0902* 0916 09192 


4352 4355 

0152 

0559 0574 

C971 0978 

1006 1016 
13792 1380 

1961 1961 
2673 2673* 
2824 2834 

2971* 2972 

3364 3367 

36834 3684 

3867 38719 
3942* 3947 

3993 3997*% 
4030* 4041% 
4082 4088 

4106* 4108 

421% 4214* 
4350* 4358 

2830 2835 


3947* 4013% 
03474 0363 
1966 2968 
2942 2943* 


3946 3956% 


370 44378 


0574% 
G9T9* 
129T7* 
18924 
1970*% 
2674 
2834% 
2980 
3367% 
3686* 
3872¢ 
3957 
4003 
4048 
4088* 
4112 
4216 
4362 


28338 


40832 
0372 
3105 
29444 


0575 
0982 
1302 
1894 
2550* 
2T62* 
2839F 
2980* 
3368 
3744 
3874 
3957 
4006 
4054 
4089 
4112 
£219 
43626 


3745 


4240 


3197 
2945% 
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9820 0829 

09383 99834 

1306 1305 

1897 1897% 

2551 2552 

2763 2766 

23887 2889 

298i 2987 

3640 3664* 

3768*% 3785 

3896* 3903 

3960* 3968 

£007 46009 

4055* 405¢ 

£092 40922 

4113 4119 

4219% 4220 

4373 4376 

3769* 3766 

2946% 2947 

PROG ID C14-15 
PAGE SA 
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C141 


SYMBOL 


ZLS20 
ZLS50 
ZLS51U 
ZLS52 
ZLS61 
ZLS61A 
ZLS62 
ZLS63 
ZLS65 
ZLS68 
ZLS70 


3340 ATTACHMENT TESTS (PART 1) MODEL 12 


T 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 


LEN 


004 
001 
004 
004 
004 
001 
004 
001 
001 
004 
004 


VALUE 


1078 
1121 
1129 
1120 
i573 
157C 
LS7F 
1585 
i592 
i59C 
1583 


OEFN 


0926 
1010 
1016 
1017 
1601 
1604 
1607 
1609 
1616 
1621 
1628 


CROSS~REFERENCE 
REFERENCES 


0917 

1004# 

1002 

1001# 1003 1006* 
1641 
1596* 1640¢ 
1626 

1603* 1621 
1605* 1625¢ 
1618 

1622 


1624 


TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 


DATE 
EC nO. 


Ameen 
NAG anche pen 


21AUG75 
827785 


OSNOV75S 
827827 


PART NO. 
PAGE 


PROG ID 
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4247605 


52 
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4 


| 
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Ci4l 


THE CHARACTER 


3340 ATTACHMENT TESTS (PART 13 MODEL 12 


OBJECT CARD LISTING 


PART NOo 


4247605 


PAGE S2Aa 


INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 


CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 60 


GBK GBD PN 42 


TCOVIOMD & BTs 
S6¢ chee eeweans 
T YR 
T+-24 & H-aBGH?I 
T+-D? <BGIFYMH>< 
Te-9DLK35 B<t 63 
T+-2VOH*BEZBGIFY 
T4-_-{$0,Q?HAICT 
Te->Hi6. /2JDH @ 
T+-70 D-Za0AH.1& 
T+-ONWC3"B9V( 63 
Te#-1<a 2"@2 S+ H 
T4#-2GTCYBC «3a<é> 
T+=3BOH#UETQ.V-> 
T#-3°2<BG /O1 4 
T+~48/2EHOH*DB: S 
T4+—530H*BE-Y CMP 
T#-6>TOBE B4*%2_ 


T+#-72G (70 © =67 
T+~8U~-SH*8YS, 30 
T4#-9-C=" /2.3{ 


DATE 
EC nO. 


21AUG75 
827785 


47604 EC 827827 


Nae AE 

” /26HO*#HH*#AG183 
S9B_NHSOB D.OH 
e072 LD8 K_Sav_ 
KBD42°EE BOC /0H 
OH. 2-K" /2Y HHH 
"B7C 70HDAO <0<B 
"K235 6<BEB_Sa/_ 
3B9$2 66:0 2°CE_ 
<7°HE.a8G1B32/7< 
Ol .WCO 69, s0> 
QBovza234.1P /26 
‘OH®SBaBGI » /2Y 
B"8Y-TOF! 8<8BB_ 
”/CHOBO +6a8GH? 1 
S@-EVIE (*-HAGCO 
A *8GH->Y——-BH HY 
Aw{$ /2J0HS.UHGH 


1$C3+C.7 /2eHI 


OSNOV7S 
827827 


3340 ATTACHMENT 


/2EHC OsNS_F<*E 
BE-< B?T /2.30H* 
EOHSUE- * £D_sYD 
OAG -E<BGH?1 /26 
* 7” 40H QTOAHE. 
GH? /2EHLAa.vT2 
EOH*UE- 8.->0a7Z 
Z* >Qa-po+s <706 
28 2") D.vTO 8 
<#A <2"HEG3——C.™ 
HOH*DB:SB H- SSB 
sHHHETOAC.IM / 
Sa@Z OOH*DB:SB QY 
” /26H1 Lat#Losc~u 
“Cs4a Sil (sTO 


STO T+ 6,Q7HE0_H 


< Cia “OGAB G 


sQZBG13* ZZBGHIZ 


TESTS — MODEL 12 


eceesesenevetscane 


SOCCOHSQ( K_OHDL 
08: SSOH*UBT3"8D4 


OC- HeK_G+l H.*B 


Hl »438GH-_*--8 


2 JG /2ES0H*6ESB 
"B9-a"0>EL <23_ 
<1C .VTO B9-a > 
ofMeW2HAACZ C.a 
@ >EOH*.TCYDC.a 
2DA-8E 2"a/ JOH* 
| 8<96B8_SazZ DOH® 
_+8&-% * sHEASBGIFY 
-TOF! B<88B_SOA 
@"O51L 11a sSHAH>E 
KC-XB K_F( 0(=aB 
e ee - ® 
A X7® < ACE" /26 
ee oe ee 
"C +DaBG /Qt 8 


*3S$_SO 01$*8GI°%H 


eeseveee 
84008488 


2 67 /2ER0H*BERB 
@3S350H*DB0BI 4 
EeDDa ED_OHeHYes 
D D4,4W=B HE «LZ 
GIFYBB2%,0Z8GIFY 
oC." /2Y¥.0HH SB 
E*CD.V2HECCO>B90 
Be 2"3aZA0+ -<28H 
@.0>01 1@.WC3"B9, 
UESQ.V->0B97%323 
U.<BGIFYECH*BE-_ 
"oe HeQe &183 /23 
U.<aGi->v--F20He 
& &7#0H*DB: SBBHT 
GCOX /2Z0H*UBSH 
SOHSBESBGIFY OHS 
sou*BE-6 CS! /0H 


1*8,Q7HABTYAC60 


PROG ID 


CL 81 THROUGH 96 


€1410000 


eevee 


7-4€ 1410001 
ee LEvc1610002 
GIFY "S0C1410003 
"S& 09-C1410006 
GIB0 EHYC1410005 
BHEH JYMC1410006 
KB4< 2401410007 
H HR 118C1410008 
a"0z =DEC1410009 
SEL- 3€%C1410010 
“70% 1a0€1410011 
4.1m 4H 1410012 
H 0 LOaci410013 
D<< 92001410014 
ves 3Y 1410015 
@SSH 'D4C1410016 
AC<8 OT-C1410017 
De:- 42801410018 
OCO 7R#C1410019 


< B& 630014610020 


14-1) 


PAGE 52a 








} 
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oe Seg 


- EC NOW 


18M MAINTENANCE DIAGNOSTIC PROGRAM 


C141 


CL 1 THROUGH 16 


T#-2E4S_S1 9 O26 
T4-aNIB0@ "20H 
T+-a6C 942_Save 
T4-*.>=",aYDEC D 
160", /$ /zenila 
T+-=XOHSUE-C /2J 
T+-"S( -[#TEACE, 
T+/ VOHSXNTHA C 
T+#/AQOH*S 0 *°3S_ 
T+/8L 1 Jace2HAF 8 
14+/C+0H#UE-HEFB_ 
2 Sis 
T+/010188 KO2I 
Ts/ED-CMADL * AD 
TH/E"S" /2EHC D 


T+/F:T-BH HY SOH 


T+/G5.1P JIPC. 
T+/HOST-EDRG2DA0 
T+/1,DN49~1HHaZ 
TG/HHDPX2 JDt AH 
T4¢/.HD- L<*BGH2Xx 
T+/<C?LOFHaaao27 


T+/<= 1. ,9YD~1EM 


DATE 21AUG75 


827765 


3340 ATTACHMENT TESTS (PART 


CL 17 THROUGH 32 


G164 3SBGHJS*3S_ 
UsTO C»Z@_:"C D 
&+-HIs 0 H*Ee760 
a>-*, 1 4>3780,7 
#2L0 CoB< G2 COX 
DOS7KH" | #2JDHS? 
BK>21 1>PO tH 
"70D J<#BGH2Xx 
Sa-E30H*U.<BGI Y 
“poe (T7*00L - J 
SOHSUE/HEFB_SOH* 
£6X0 (HA 68 DIY 
/ (HA LEADLE s2¥ 
KTB_F! RTLO DYY 
18H4 S BH H>>TZ: 


KSILEOC KTAFJIC 


SDAFJ4¢/ JU@HGDNG 
HOH®U.<BG /Qa K3 


<ORG2 E-: HAHHOH® 


42-TSIT3*°OHSYSE 
Al QK:30 DOHA B87 


K: “HACCOEDOH@AJ. 


OSNOV75 
827827 


13 MODEL 12 


OBJECT CARD LISTING 


Ct 33 THROUGH 48 


$a-GSOH*Y & *35_ 
+>-* ZOHS 1D<BG IH 
“Fie m OT490.22-J- 
" esTIH ¢2*86C.* 
” /0=10H*4_252H D 
MiP s2U0<CEHCe8 
A £8 C#U, (T4—Cax 
“2-781 /26Hl 
@ AADOH*E2L0 DD. 
=C- &JBZ60H*E 138 
UE/HEJB_SOHSUES 
s(T4-Dly JERE D 
DHH S-H< HO .#H 
@ AEOIA JS30 004 
+CY8 KB33 DYS" A 
KTJF. 1 sad THAAZY 
a*1F (1 1asT301007 
6+< KS2HEASBGIFY 
JWCZ-DY, /16% 


8 A"aBGI Y 


21 %CZBG12C /2) 


eOH®KSETO-DOHA 1. 


CL 49 THROUGH 64 


SaYDD+-H1 $CUCCE3 
“te sQ2HA. 4 Cov 
+” 28130"*0:*OHD 
9 O'Zas H+ DISIH 
4 E*DilaeseosHe 
2 638 K221H 1>*B 
»0-OAHG4, JT346C. 
“/10C C4 H6.2 NB 
G180**1.ADOHDSEZB 
4BADB( D&"T3".ED 
oSK_FIB -Qa8Gl_. 
AC so De KTZ8 
a AFIL &*s0a.te 
weIMC AFSOHL OT 
EDY,2/0%8DAnHa2 
"(E341 JULZEDR< 


OH*UEs ( AH( DO? 


@ B75CAB, 48751 
Ol O,RZBGHe® /2- 


eOH*K6Z8G1B83 70H 


PART NO. 
PAGE 53 


CL 65 THROUGH 80 


20 ve &*%a/ceay- 
{E"HAD3YAC6O< 6? 
408 Cr4,(286C,* 
£<*HG+*BG1B0" #0: 
24L3".AD<GSOE.AG 
GC#-"y =90 O1><6 
” /2SKOHSZE3T+HO. 
”7/2V.0HH H3U-H6. 
GI _Ya"1ap0Hee_<e 
<GS 16.£62/284BA0 
B& OH* CEHOL 
GH2USDAFJ+1 JUaB 
Z**EGH->Y--B8. Ye 
PCE JTK340 DKNOS 
Dey KST7"DO7z Je 
‘OAEQAYDHC- 33K 
2-£-sHAHHOHSU8 4 
Z0603-A ZOLOCHAU 


AGC4 H6.2-EP /25 


ODo NO*BGH?I1 /0= YOO KC#C1410042) . 
PROG ID even 

PAGE 53 | 

| 


4247605 


Cu 81 THROUGH 96 


SOH® 336C1410021 
KC,4 PH4C1410022 
(68 NS8C1410023 
Segvugecaaieack 
ee” gveC 1410025 
273* N00C1410026 
GI2 72001410027 
2° PQ 1A-C1410028 
2DEQ 30YC1410029 
GOCY 50DC1410030 
Bt D 3C €1410031 


& JD */4C1410032 


GHC® £,4C1410033 


eTY8 QLDC1410034 — 


00a 4:UC1410035 


#0AH =DMC1410036 | 


@0H* 6KOC1410037: 


—_— 


DYZ "0HC1410038: - 


3$aC 1410039: - 


i 
i 
| 


@AKZ 1/0C1410040: = 


D Ce J-<C1610041, 


ed 


e 


' 


C. 
C 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C142 


CL 1 THROUGH 16 


T+/(9EEL /26HG. 
1+/4+4( 0C*OH#DB=S 
T4/12as IGS +406 
1#/£0~78 0 DLE*B 
T+/SvenHELES E % 
T+ /K---FHHYSHT=S 
T4#/L$-6HO! -aMO-H 
T+/MGESHs 5B8_ SOH* 
T#/NSAS TAZ1 BDJ 
T+#/0<0A,0357H"1E 
T4/PG HO oL4 H6- 
T+/QBHC 3C/8>1U93 
T+/0 *SAS6OH*O07T4 


T+/R8*<BGI64 <B 


_ T+/E30H*U.<B61 Y 


T+/$> /$ (25D <B 


- . T+#/#Z--BHDOYY4S8S 


TAS®2E3P /0 
T4/)1E- PlaBG /0 
14/3 a-D24-D 
TH/-P *7HADTEAE °M 
T+/-L( -Q13EAFB< 
DATE 21AUG75 

—C NO. 827785 


3340 ATTACHMENT TESTS (PART 


CL 17 THROUGH 32 


L30D:-A(#G t-0- 
8 HYSTS>¢TY#8—-A 
** Les DL-"HEB U4 
GI Ya AEC 0.42% 
vIC7-E 2? Jt" OHs 
B FM.43-AH'.2UGAa 
AD 8 EEU,J08 EH* 
UETHL 5 S2NOH®UEUH 
DBM/ BUAEB41-CFA 
"ESL /2¢ZOH*Y(8T 
2-f6: JHHI® N/-H 
$x"a: /HHIA WH<B 
4E3C2 EMC Aei3® 
GI64A <BGE_8*TA® 
ABASGOHEXSE OH 
GIFYEOH®UESC /2J 
B H"Y--BE DUP< A 
P ANGOH*BE/— FBT 
AB-HA( D,O-4AHSY 
4 /aPC= POBSECH* 
a"221CCegz821ave 


OSNOV75S 
827827 


1? MODEL 12 


OBJECT CARD LISTING 


CL 33 THROUGH 48 CL 49 THROUGH 64 


* AMC GOAH*<S9C3 
(HOH L22L 00.5 A 
"GAO DMELZCH*M 
BOH*DB=SB HYST8> 
U.CO EEUa AKGOHs 
9 K?LaZA80H*0B=S 
, J@BGEDUSEAIR ID 
LaS700H*UEVC /25 
WCO1-CWJXC6S DHK 
“oH*E2L0 EPO Au 
AD 8 EOM,| 8 ERH 
GEP] /2J50 AM E3= 
2-£0( A®2H4C2 RT 
0a-E-+ D&* 7HEDOS 
XSED OHSOTTV E3$ 
D<<aGIFZ OH®UEVC 


CE3EY--BH>HH L/* 
/2<ZOH*UBTO ET 
eL® AETD®°"2123YD 
PSCV"E*T2U P /2J 


Ul -QI3ZGAFBIB KI 


“HeH® AlO /O D=H 


GH*M RK20¢ <N “H 


* B2NO DMSTZCH*O 


+2HH JK?KSHH.T?S 
UB-0 AH*<, +88GH-? 
8 HYSTOS( &<,4TU 
M/ABGEOX #250 74 
Dacacirzo. 
HDQS DYBI082-EHB 
HoH*usTO EQMa Ao 
s(gBGEPa8 Jntas 
” 12.30H8¥( 8C"0H® 
2/9VU As2HaC2 RS 
AE3H, & 7HARC-HE3P 
2UC-( J#2H@.2-LE 
” 72. 500<BGIFZ0t - 
1 DvP<DS8 CDB--A 
“/1->10 -COdAHES 
HOH*P6*BGE5Z9+1~ 


@eeeoeeone 


D <BGIFYK 


2% PW70 «(HA 68 


PART NO. 
PAGE 


CL 65 THROUGH 80 


B+ HN SHEACYED=. 
SHAS H*HAO OM13- 
«200 DM: 386183 
8 FM,43-BH*.2U<0 
Y—-Bit:va<T=SB DM 
BH .20Fs s2EZ1m 
che. s2s00/rCH" | 
AC 6A OCBB O1BH 
DEE2—-E0K,E:T F<C 
KOH®DB:SB HZBTS> 
voHsu.C-BDY, DH 
ustTO E? a0/$2ICe 
” /26Z0H*UBTODE?H 
2uF .2/0Ul JeaTis. 
(C geaties2-K? 28 
P.a8GH-?Y——FHHY= 
sE3< K/*4SHH TES 
, SZBGIX#B K120-H 
Gaz _OH*U.<BG /0 


Seeeeeseaneoeoee eens 


E"ae(T5 EF" Jn 


PROG ID 
PAGE 


® ©eeeoeoe 0808 080068686806 OO ®*eeeoeeeeeeeeeee © 


4247605 
53A 


Ci 81 THROUGH 96 


* 72-- KQHC 1410043 
BEE< a1 €1410044 
K &< aKZC1410045 
9°S% 39701410046 
4>- 11UC1410047 


4Ooe *LHeC 1410068 
” 726 EetHC1410049 
EHB 7$4C1410050 
<F80 32¥C1410051 
+TYB8 NCHC1410052 
OOH® 3#4C1410053 
0°CO $/7C1410054 
aTag 2 001410055 
2° ND €/C1410056 
ZOH* 0£0C1410057 
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